httpserver_20080306/uint32.inc

   1 { Copyright (C) 2005 Bas Steendijk and Peter Green
   2   For conditions of distribution and use, see copyright notice in zlib_license.txt
   3   which is included in the package
   4   ----------------------------------------------------------------------------- }\r
   5 type\r
   6   {delphi 3 and before do not have a 32 bits unsigned integer type,\r
   7   but longint has the correct behavior - it doesn't on newer delphi versions}\r
   8   {$ifndef fpc}\r
   9     {$ifdef ver70}{$define pred4}{$endif} {tp7}\r
  10     {$ifdef ver80}{$define pred4}{$endif} {delphi 1}\r
  11     {$ifdef ver90}{$define pred4}{$endif} {delphi 2}\r
  12     {$ifdef ver100}{$define pred4}{$endif} {delphi 3}\r
  13   {$endif}\r
  14   uint32={$ifdef pred4}longint{$else}longword{$endif};\r