Browse Source

* remove temptype, use tempinfo.temptype instead

peter 22 years ago
parent
commit
ab1f33f68b
2 changed files with 11 additions and 7 deletions
  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) }
        { size (the size is separate to allow creating "void" temps with a custom size) }
        ttempcreatenode = class(tnode)
        ttempcreatenode = class(tnode)
           size: longint;
           size: longint;
-          temptype: ttemptype;
           tempinfo: ptempinfo;
           tempinfo: ptempinfo;
           { * persistent temps are used in manually written code where the temp }
           { * persistent temps are used in manually written code where the temp }
           { be usable among different statements and where you can manually say }
           { be usable among different statements and where you can manually say }
@@ -615,7 +614,7 @@ implementation
         new(tempinfo);
         new(tempinfo);
         fillchar(tempinfo^,sizeof(tempinfo^),0);
         fillchar(tempinfo^,sizeof(tempinfo^),0);
         tempinfo^.restype := _restype;
         tempinfo^.restype := _restype;
-        temptype := _temptype;
+        tempinfo^.temptype := _temptype;
       end;
       end;
 
 
     function ttempcreatenode.getcopy: tnode;
     function ttempcreatenode.getcopy: tnode;
@@ -624,7 +623,6 @@ implementation
       begin
       begin
         n := ttempcreatenode(inherited getcopy);
         n := ttempcreatenode(inherited getcopy);
         n.size := size;
         n.size := size;
-        n.temptype := temptype;
 
 
         new(n.tempinfo);
         new(n.tempinfo);
         fillchar(n.tempinfo^,sizeof(n.tempinfo^),0);
         fillchar(n.tempinfo^,sizeof(n.tempinfo^),0);
@@ -783,7 +781,7 @@ implementation
         inherited create(tempdeleten);
         inherited create(tempdeleten);
         tempinfo := temp.tempinfo;
         tempinfo := temp.tempinfo;
         release_to_normal := true;
         release_to_normal := true;
-        if temp.temptype <> tt_persistent then
+        if tempinfo^.temptype <> tt_persistent then
           internalerror(200204211);
           internalerror(200204211);
       end;
       end;
 
 
@@ -853,7 +851,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $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
     * getposition added to retrieve the the current tai item
 
 
   Revision 1.54  2003/06/08 18:27:15  jonas
   Revision 1.54  2003/06/08 18:27:15  jonas

+ 5 - 2
compiler/ncgbas.pas

@@ -270,7 +270,7 @@ interface
           internalerror(200108222);
           internalerror(200108222);
 
 
         { get a (persistent) temp }
         { get a (persistent) temp }
-        tg.GetTemp(exprasmlist,size,temptype,tempinfo^.ref);
+        tg.GetTemp(exprasmlist,size,tempinfo^.temptype,tempinfo^.ref);
         tempinfo^.valid := true;
         tempinfo^.valid := true;
       end;
       end;
 
 
@@ -316,7 +316,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $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
     * getposition added to retrieve the the current tai item
 
 
   Revision 1.34  2003/05/17 13:30:08  jonas
   Revision 1.34  2003/05/17 13:30:08  jonas