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

- removed no longer used and unsafe ttemprefnode.create_offset()

Browse Source 
functionality

git-svn-id: trunk@33733 -
This commit is contained in:
Jonas Maebe 2016-05-21 10:28:28 +00:00
parent 712e4f90d6
commit 46166c89cb
3 changed files with 2 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/nbas.pas
View File

@ -214,7 +214,6 @@ interface
tempinfo: ptempinfo; tempinfo: ptempinfo;
constructor create(const temp: ttempcreatenode); virtual; constructor create(const temp: ttempcreatenode); virtual;
constructor create_offset(const temp: ttempcreatenode;aoffset:longint);
constructor ppuload(t:tnodetype;ppufile:tcompilerppufile);override; constructor ppuload(t:tnodetype;ppufile:tcompilerppufile);override;
procedure ppuwrite(ppufile:tcompilerppufile);override; procedure ppuwrite(ppufile:tcompilerppufile);override;
procedure resolveppuidx;override; procedure resolveppuidx;override;
@ -224,8 +223,6 @@ interface
procedure mark_write;override; procedure mark_write;override;
function docompare(p: tnode): boolean; override; function docompare(p: tnode): boolean; override;
procedure printnodedata(var t:text);override; procedure printnodedata(var t:text);override;
protected
offset : longint;
private private
tempidx : longint; tempidx : longint;
end; end;
@ -1024,14 +1021,6 @@ implementation
begin begin
inherited create(temprefn); inherited create(temprefn);
tempinfo := temp.tempinfo; tempinfo := temp.tempinfo;
offset:=0;
end;
constructor ttemprefnode.create_offset(const temp: ttempcreatenode;aoffset:longint);
begin
self.create(temp);
offset := aoffset;
end; end;
@ -1040,7 +1029,6 @@ implementation
n: ttemprefnode; n: ttemprefnode;
begin begin
n := ttemprefnode(inherited dogetcopy); n := ttemprefnode(inherited dogetcopy);
n.offset := offset;
if assigned(tempinfo^.hookoncopy) then if assigned(tempinfo^.hookoncopy) then
{ if the temp has been copied, assume it becomes a new } { if the temp has been copied, assume it becomes a new }
@ -1073,7 +1061,6 @@ implementation
begin begin
inherited ppuload(t,ppufile); inherited ppuload(t,ppufile);
tempidx:=ppufile.getlongint; tempidx:=ppufile.getlongint;
offset:=ppufile.getlongint;
end; end;
@ -1081,7 +1068,6 @@ implementation
begin begin
inherited ppuwrite(ppufile); inherited ppuwrite(ppufile);
ppufile.putlongint(tempinfo^.owner.ppuidx); ppufile.putlongint(tempinfo^.owner.ppuidx);
ppufile.putlongint(offset);
end; end;
@ -1141,8 +1127,7 @@ implementation
begin begin
result := result :=
inherited docompare(p) and inherited docompare(p) and
(ttemprefnode(p).tempinfo = tempinfo) and (ttemprefnode(p).tempinfo = tempinfo);
(ttemprefnode(p).offset = offset);
end; end;

4
compiler/ncgbas.pas
View File

@ -490,8 +490,6 @@ interface
case tempinfo^.location.loc of case tempinfo^.location.loc of
LOC_REFERENCE: LOC_REFERENCE:
begin begin
inc(location.reference.offset,offset);
location.reference.alignment:=newalignment(location.reference.alignment,offset);
{ ti_valid should be excluded if it's a normal temp } { ti_valid should be excluded if it's a normal temp }
end; end;
LOC_REGISTER, LOC_REGISTER,
@ -516,8 +514,6 @@ interface
tg.ChangeTempType(current_asmdata.CurrAsmList,tempinfo^.location.reference,tempinfo^.temptype); tg.ChangeTempType(current_asmdata.CurrAsmList,tempinfo^.location.reference,tempinfo^.temptype);
{ adapt location } { adapt location }
location.reference := ref; location.reference := ref;
inc(location.reference.offset,offset);
location.reference.alignment:=newalignment(location.reference.alignment,offset);
end; end;

2
compiler/ppu.pas
View File

@ -43,7 +43,7 @@ type
{$endif Test_Double_checksum} {$endif Test_Double_checksum}
const const
CurrentPPUVersion = 182; CurrentPPUVersion = 183;
ppubufsize = 16384; ppubufsize = 16384;