浏览代码

* remove temptype, use tempinfo.temptype instead

peter 22 年之前
父节点
当前提交
ab1f33f68b
共有 2 个文件被更改,包括 11 次插入7 次删除
  1. 6 5
      compiler/nbas.pas
  2. 5 2
      compiler/ncgbas.pas

+ 6 - 5
compiler/nbas.pas

@@ -103,7 +103,6 @@ interface
        { size (the size is separate to allow creating "void" temps with a custom size) }
        ttempcreatenode = class(tnode)
           size: longint;
-          temptype: ttemptype;
           tempinfo: ptempinfo;
           { * persistent temps are used in manually written code where the temp }
           { be usable among different statements and where you can manually say }
@@ -615,7 +614,7 @@ implementation
         new(tempinfo);
         fillchar(tempinfo^,sizeof(tempinfo^),0);
         tempinfo^.restype := _restype;
-        temptype := _temptype;
+        tempinfo^.temptype := _temptype;
       end;
 
     function ttempcreatenode.getcopy: tnode;
@@ -624,7 +623,6 @@ implementation
       begin
         n := ttempcreatenode(inherited getcopy);
         n.size := size;
-        n.temptype := temptype;
 
         new(n.tempinfo);
         fillchar(n.tempinfo^,sizeof(n.tempinfo^),0);
@@ -783,7 +781,7 @@ implementation
         inherited create(tempdeleten);
         tempinfo := temp.tempinfo;
         release_to_normal := true;
-        if temp.temptype <> tt_persistent then
+        if tempinfo^.temptype <> tt_persistent then
           internalerror(200204211);
       end;
 
@@ -853,7 +851,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.55  2003-06-09 12:20:47  peter
+  Revision 1.56  2003-06-09 18:26:46  peter
+    * remove temptype, use tempinfo.temptype instead
+
+  Revision 1.55  2003/06/09 12:20:47  peter
     * getposition added to retrieve the the current tai item
 
   Revision 1.54  2003/06/08 18:27:15  jonas

+ 5 - 2
compiler/ncgbas.pas

@@ -270,7 +270,7 @@ interface
           internalerror(200108222);
 
         { get a (persistent) temp }
-        tg.GetTemp(exprasmlist,size,temptype,tempinfo^.ref);
+        tg.GetTemp(exprasmlist,size,tempinfo^.temptype,tempinfo^.ref);
         tempinfo^.valid := true;
       end;
 
@@ -316,7 +316,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.35  2003-06-09 12:20:47  peter
+  Revision 1.36  2003-06-09 18:26:46  peter
+    * remove temptype, use tempinfo.temptype instead
+
+  Revision 1.35  2003/06/09 12:20:47  peter
     * getposition added to retrieve the the current tai item
 
   Revision 1.34  2003/05/17 13:30:08  jonas