syscall.pp 309 B

12345678910111213141516171819
  1. unit syscall;
  2. interface
  3. {$define FPC_USE_SYSCALL}
  4. {$i sysnr.inc}
  5. {$i syscallh.inc}
  6. implementation
  7. {$ifdef FPC_HAS_SETSYSNR_INC}
  8. {$define FPC_COMPILING_SYSCALL_UNIT}
  9. {$I setsysnr.inc}
  10. {$endif FPC_HAS_SETSYSNR_INC}
  11. {$ifdef FPC_HAS_SETSYSNR_INC}
  12. begin
  13. SetSyscallNumbers;
  14. {$endif FPC_HAS_SETSYSNR_INC}
  15. end.