* unified typing and ppu reading/writing of setdef fields regarding aint/asizeint

git-svn-id: trunk@30542 -

compiler/ppu.pas

@@ -43,7 +43,7 @@ type
 {$endif Test_Double_checksum}
 
 const
-  CurrentPPUVersion = 174;
+  CurrentPPUVersion = 175;
 
 { buffer sizes }
   maxentrysize = 1024;

compiler/symdef.pas

@@ -880,7 +880,7 @@ interface
           elementdef : tdef;
           elementdefderef : tderef;
           setbase,
-          setmax   : aword;
+          setmax   : asizeint;
           constructor create(def:tdef;low, high : asizeint);virtual;
           constructor ppuload(ppufile:tcompilerppufile);
           function getcopy : tstoreddef;override;
@@ -3285,9 +3285,9 @@ implementation
       begin
          inherited ppuload(setdef,ppufile);
          ppufile.getderef(elementdefderef);
-         savesize:=ppufile.getaint;
-         setbase:=ppufile.getaint;
-         setmax:=ppufile.getaint;
+         savesize:=ppufile.getasizeint;
+         setbase:=ppufile.getasizeint;
+         setmax:=ppufile.getasizeint;
          ppuload_platform(ppufile);
       end;
 
@@ -3304,9 +3304,9 @@ implementation
       begin
          inherited ppuwrite(ppufile);
          ppufile.putderef(elementdefderef);
-         ppufile.putaint(savesize);
-         ppufile.putaint(setbase);
-         ppufile.putaint(setmax);
+         ppufile.putasizeint(savesize);
+         ppufile.putasizeint(setbase);
+         ppufile.putasizeint(setmax);
          writeentry(ppufile,ibsetdef);
       end;
 

compiler/utils/ppuutils/ppudump.pp

@@ -3319,11 +3319,11 @@ begin
              readcommondef('Set definition',defoptions,setdef);
              write  ([space,'     Element type : ']);
              readderef('',setdef.ElType);
-             setdef.Size:=getaint;
+             setdef.Size:=getasizeint;
              writeln([space,'             Size : ',setdef.Size]);
-             setdef.SetBase:=getaint;
+             setdef.SetBase:=getasizeint;
              writeln([space,'         Set Base : ',setdef.SetBase]);
-             setdef.SetMax:=getaint;
+             setdef.SetMax:=getasizeint;
              writeln([space,'          Set Max : ',setdef.SetMax]);
            end;