diff --git a/compiler/ppu.pas b/compiler/ppu.pas index 80f8635c89..5f018cae0d 100644 --- a/compiler/ppu.pas +++ b/compiler/ppu.pas @@ -43,7 +43,7 @@ type {$endif Test_Double_checksum} const - CurrentPPUVersion = 174; + CurrentPPUVersion = 175; { buffer sizes } maxentrysize = 1024; diff --git a/compiler/symdef.pas b/compiler/symdef.pas index 623f98d36c..ba246c140e 100644 --- a/compiler/symdef.pas +++ b/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; diff --git a/compiler/utils/ppuutils/ppudump.pp b/compiler/utils/ppuutils/ppudump.pp index 53a3e37cfc..bddc07a48c 100644 --- a/compiler/utils/ppuutils/ppudump.pp +++ b/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;