paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 16:19:35 +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}
const
CurrentPPUVersion = 163;
CurrentPPUVersion = 164;
{ buffer sizes }
maxentrysize = 1024;

20
compiler/symsym.pas
View File

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