pgtypes.pas

   1 {io core originally for linux bworld}\r
   2 \r
   3 { Copyright (C) 2005 Bas Steendijk and Peter Green\r
   4   For conditions of distribution and use, see copyright notice in zlib_license.txt\r
   5   which is included in the package\r
   6   ----------------------------------------------------------------------------- }\r
   7 \r
   8 unit pgtypes;\r
   9 interface\r
  10   type\r
  11     {$ifdef cpu386}{$define i386}{$endif}\r
  12     {$ifdef i386}\r
  13       taddrint=longint;\r
  14     {$else}\r
  15       taddrint=sizeint;\r
  16     {$endif}\r
  17     paddrint=^taddrint;\r
  18 \r
  19 implementation\r
  20 end.\r