mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 22:47:59 +02:00
- removed no longer used and unsafe ttemprefnode.create_offset()
functionality git-svn-id: trunk@33733 -
This commit is contained in:
parent
712e4f90d6
commit
46166c89cb
@ -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;
|
||||
|
||||
|
||||
|
@ -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;
|
||||
|
||||
|
||||
|
@ -43,7 +43,7 @@ type
|
||||
{$endif Test_Double_checksum}
|
||||
|
||||
const
|
||||
CurrentPPUVersion = 182;
|
||||
CurrentPPUVersion = 183;
|
||||
|
||||
ppubufsize = 16384;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user