paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 04:37:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@30542 -
This commit is contained in:
florian 2015-04-11 11:36:01 +00:00
parent 4b7ae00620
commit e0b27e1688
3 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ppu.pas
View File

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

14
compiler/symdef.pas
View File

@ -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;

6
compiler/utils/ppuutils/ppudump.pp
View File

@ -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;