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

+ save the absolute variable's segment to the ppu file after r25666

Browse Source 
* incremented the ppu version

git-svn-id: trunk@25672 -
This commit is contained in:
nickysn 2013-10-06 00:32:10 +00:00
parent 3b895ec0e8
commit f165cee058
2 changed files with 15 additions and 7 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} {$endif Test_Double_checksum}
const const
CurrentPPUVersion = 163; CurrentPPUVersion = 164;
{ buffer sizes } { buffer sizes }
maxentrysize = 1024; maxentrysize = 1024;

20
compiler/symsym.pas
View File

@ -2057,9 +2057,9 @@ implementation
ref:=nil; ref:=nil;
asmname:=nil; asmname:=nil;
abstyp:=absolutetyp(ppufile.getbyte); abstyp:=absolutetyp(ppufile.getbyte);
{$ifdef i386} {$if defined(i386) or defined(i8086)}
absseg:=false; absseg:=false;
{$endif i386} {$endif i386 or i8086}
case abstyp of case abstyp of
tovar : tovar :
ref:=ppufile.getpropaccesslist; ref:=ppufile.getpropaccesslist;
@ -2068,9 +2068,13 @@ implementation
toaddr : toaddr :
begin begin
addroffset:=ppufile.getaword; addroffset:=ppufile.getaword;
{$ifdef i386} {$if defined(i386)}
absseg:=boolean(ppufile.getbyte); absseg:=boolean(ppufile.getbyte);
{$endif i386} {$elseif defined(i8086)}
absseg:=boolean(ppufile.getbyte);
if absseg then
addrsegment:=ppufile.getaword;
{$endif}
end; end;
end; end;
end; end;
@ -2088,9 +2092,13 @@ implementation
toaddr : toaddr :
begin begin
ppufile.putaword(addroffset); ppufile.putaword(addroffset);
{$ifdef i386} {$if defined(i386)}
ppufile.putbyte(byte(absseg)); ppufile.putbyte(byte(absseg));
{$endif i386} {$elseif defined(i8086)}
ppufile.putbyte(byte(absseg));
if absseg then
ppufile.putaword(addrsegment);
{$endif}
end; end;
end; end;
ppufile.writeentry(ibabsolutevarsym); ppufile.writeentry(ibabsolutevarsym);