tw3812.pp 316 B

123456789101112131415161718
  1. { %fail }
  2. { Source provided for Free Pascal Bug Report 3812 }
  3. { Submitted by "Sergey@michint" on 2005-03-22 }
  4. { e-mail: }
  5. type
  6. LARGE_INTEGER = record
  7. LowPart : Cardinal;
  8. HighPart : LongInt;
  9. end;
  10. procedure t(li1: Large_Integer); stdcall;
  11. begin
  12. end;
  13. begin
  14. t(Large_Integer(1111111111111111));
  15. end.