paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 23:53:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tarraydef.ppuload/ppuwrite: use ppufile.getasizeint/putasizeint for reading/writing lowrange and highrange as they're asizeint type, not aint

Browse Source 
git-svn-id: trunk@24491 -
This commit is contained in:
nickysn 2013-05-13 12:37:11 +00:00
parent ec720322bc
commit ae74cd17d2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/symdef.pas
View File

@ -3039,8 +3039,8 @@ implementation
{ the addresses are calculated later } { the addresses are calculated later }
ppufile.getderef(_elementdefderef); ppufile.getderef(_elementdefderef);
ppufile.getderef(rangedefderef); ppufile.getderef(rangedefderef);
lowrange:=ppufile.getaint; lowrange:=ppufile.getasizeint;
highrange:=ppufile.getaint; highrange:=ppufile.getasizeint;
ppufile.getsmallset(arrayoptions); ppufile.getsmallset(arrayoptions);
symtable:=tarraysymtable.create(self); symtable:=tarraysymtable.create(self);
tarraysymtable(symtable).ppuload(ppufile) tarraysymtable(symtable).ppuload(ppufile)
@ -3079,8 +3079,8 @@ implementation
inherited ppuwrite(ppufile); inherited ppuwrite(ppufile);
ppufile.putderef(_elementdefderef); ppufile.putderef(_elementdefderef);
ppufile.putderef(rangedefderef); ppufile.putderef(rangedefderef);
ppufile.putaint(lowrange); ppufile.putasizeint(lowrange);
ppufile.putaint(highrange); ppufile.putasizeint(highrange);
ppufile.putsmallset(arrayoptions); ppufile.putsmallset(arrayoptions);
ppufile.writeentry(ibarraydef); ppufile.writeentry(ibarraydef);
tarraysymtable(symtable).ppuwrite(ppufile); tarraysymtable(symtable).ppuwrite(ppufile);