tw36544b.pp 390 B

123456789101112131415161718
  1. { %target=win32,win64,wince }
  2. { %needlibrary }
  3. { %result=-1073741502 }
  4. { ToDo: check whether the exit code is the same for the following targets: darwin,linux,freebsd,solaris,beos,aix,android,haiku }
  5. {$mode objfpc}
  6. uses
  7. sysutils;
  8. {$ifndef windows}
  9. {$linklib tw36544a}
  10. {$endif}
  11. procedure library_procedure; external {$ifdef windows}'tw36544a'{$endif};
  12. begin
  13. library_procedure;
  14. end.