* adapted to Delphi 3

compiler/globals.pas

@@ -36,7 +36,7 @@ unit globals;
 {$ifdef linux}
       linux,
 {$endif}
-{$ifdef Delphi4}
+{$ifdef Delphi}
       sysutils,
       dmisc,
 {$else}
@@ -1568,7 +1568,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.62  2000-05-12 05:55:04  pierre
+  Revision 1.63  2000-05-12 08:58:51  pierre
+   * adapted to Delphi 3
+
+  Revision 1.62  2000/05/12 05:55:04  pierre
    * * get it to compile with Delphi by Kovacs Attila Zoltan
 
   Revision 1.61  2000/05/11 09:37:25  pierre

compiler/ppu.pas

@@ -262,19 +262,11 @@ implementation
 *****************************************************************************}
 
 var
-{$ifdef Delphi}
-  Crc32Tbl : array[0..255] of longword;
-{$else Delphi}
   Crc32Tbl : array[0..255] of longint;
-{$endif Delphi}
 
 procedure MakeCRC32Tbl;
 var
-{$ifdef Delphi}
-  crc : longword;
-{$else Delphi}
   crc : longint;
-{$endif Delphi}
   i,n : byte;
 begin
   for i:=0 to 255 do
@@ -282,7 +274,7 @@ begin
      crc:=i;
      for n:=1 to 8 do
       if odd(crc) then
-       crc:=(crc shr 1) xor $edb88320
+       crc:=(crc shr 1) xor longint($edb88320)
       else
        crc:=crc shr 1;
      Crc32Tbl[i]:=crc;
@@ -302,7 +294,7 @@ var
 begin
   if Crc32Tbl[1]=0 then
    MakeCrc32Tbl;
-  InitCrc:=$ffffffff;
+  InitCrc:=longint($ffffffff);
   for i:=1to Length(Hstr) do
    InitCrc:=Crc32Tbl[byte(InitCrc) xor ord(Hstr[i])] xor (InitCrc shr 8);
   Crc32:=InitCrc;
@@ -1006,7 +998,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.57  2000-05-11 06:54:29  florian
+  Revision 1.58  2000-05-12 08:58:51  pierre
+   * adapted to Delphi 3
+
+  Revision 1.57  2000/05/11 06:54:29  florian
     * fixed some vmt problems, especially related to overloaded methods
       in objects/classes
 
@@ -1082,4 +1077,4 @@ end.
     * C alignment added for records
     * PPU version increased to solve .12 <-> .13 probs
 
-}
+}