GEANT321/comad/gcadd.cxx

   1 #if defined(CERNLIB_WINNT)
   2   #define gcaddc GCADDC
   3   #define gcaddf GCADDF
   4   #define gcaddi GCADDI
   5   #define gcaddl GCADDL
   6   #define type_of_call _stdcall
   7 #else
   8   #define gcaddc gcaddc_
   9   #define gcaddf gcaddf_
  10   #define gcaddi gcaddi_
  11   #define gcaddl gcaddl_
  12   #define type_of_call
  13 #endif
  14
  15 extern "C" char* type_of_call gcaddc(char *arg)
  16 {
  17   return arg;
  18 }
  19 extern "C" int*  type_of_call gcaddi(int  *arg)
  20 {
  21   return arg;
  22 }
  23 extern "C" float* type_of_call gcaddf(float *arg)
  24 {
  25   return arg;
  26 }
  27 extern "C" int* type_of_call gcaddl(int *arg)
  28 {
  29   return arg;
  30 }