Browse Source

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

git-svn-id: trunk@33733 -

Jonas Maebe 9 years ago
parent
commit
46166c89cb
3 changed files with 2 additions and 21 deletions
  1. 1 16
      compiler/nbas.pas
  2. 0 4
      compiler/ncgbas.pas
  3. 1 1
      compiler/ppu.pas

+ 1 - 16
compiler/nbas.pas

@@ -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;
 
 

+ 0 - 4
compiler/ncgbas.pas

@@ -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;
 
 

+ 1 - 1
compiler/ppu.pas

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