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

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

View File

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

View File

@ -490,8 +490,6 @@ interface
case tempinfo^.location.loc of
LOC_REFERENCE:
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 }
end;
LOC_REGISTER,
@ -516,8 +514,6 @@ interface
tg.ChangeTempType(current_asmdata.CurrAsmList,tempinfo^.location.reference,tempinfo^.temptype);
{ adapt location }
location.reference := ref;
inc(location.reference.offset,offset);
location.reference.alignment:=newalignment(location.reference.alignment,offset);
end;

View File

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