tcalpext.pp 1.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445
  1. {****************************************************************}
  2. { CODE GENERATOR TEST PROGRAM }
  3. {****************************************************************}
  4. { NODE TESTED : secondcalln() }
  5. {****************************************************************}
  6. { PRE-REQUISITES: secondload() }
  7. { secondassign() }
  8. { secondcalln() }
  9. { secondadd() }
  10. { secondtypeconv() }
  11. {****************************************************************}
  12. { DEFINES: }
  13. {****************************************************************}
  14. { This test check that the code created by Free Pascal for }
  15. { functions declared with cdecl modifier are correct }
  16. {****************************************************************}
  17. {$define USE_PASCAL_OBJECT}
  18. {$MODE OBJFPC}
  19. {$STATIC ON}
  20. {$R+}
  21. { Compile ptest.o }
  22. uses
  23. strings,
  24. ptest,
  25. ctypes
  26. ;
  27. {$ifdef USE_PASCAL_OBJECT}
  28. {$ifdef win32}
  29. {$ifdef ver1_0}
  30. {$L ptest.ow}
  31. {$else}
  32. {$L ptest.o}
  33. {$endif}
  34. {$else}
  35. {$L ptest.o}
  36. {$endif not win32}
  37. {$endif USE_PASCAL_OBJECT}
  38. {$i tcalext.pp }