GEANT321/comad/gcadd.cxx

   1 /**************************************************************************
   2  * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
   3  *                                                                        *
   4  * Author: The ALICE Off-line Project.                                    *
   5  * Contributors are mentioned in the code where appropriate.              *
   6  *                                                                        *
   7  * Permission to use, copy, modify and distribute this software and its   *
   8  * documentation strictly for non-commercial purposes is hereby granted   *
   9  * without fee, provided that the above copyright notice appears in all   *
  10  * copies and that both the copyright notice and this permission notice   *
  11  * appear in the supporting documentation. The authors make no claims     *
  12  * about the suitability of this software for any purpose. It is          *
  13  * provided "as is" without express or implied warranty.                  *
  14  **************************************************************************/
  15
  16 /*
  17 $Log$
  18 */
  19
  20 #if defined(CERNLIB_WINNT)
  21   #define gcaddc GCADDC
  22   #define gcaddf GCADDF
  23   #define gcaddd GCADDD
  24   #define gcaddi GCADDI
  25   #define gcaddl GCADDL
  26   #define type_of_call _stdcall
  27 #else
  28   #define gcaddc gcaddc_
  29   #define gcaddf gcaddf_
  30   #define gcaddd gcaddd_
  31   #define gcaddi gcaddi_
  32   #define gcaddl gcaddl_
  33   #define type_of_call
  34 #endif
  35
  36 extern "C" char* type_of_call gcaddc(char *arg)
  37 {
  38   return arg;
  39 }
  40 extern "C" double* type_of_call gcaddd(double *arg)
  41 {
  42   return arg;
  43 }
  44 extern "C" int*  type_of_call gcaddi(int  *arg)
  45 {
  46   return arg;
  47 }
  48 extern "C" float* type_of_call gcaddf(float *arg)
  49 {
  50   return arg;
  51 }
  52 extern "C" int* type_of_call gcaddl(int *arg)
  53 {
  54   return arg;
  55 }