* Moved taitempalloc

compiler/aasm.pas

@@ -256,6 +256,14 @@ unit aasm;
          Constructor init(_Kind: TMarker);
        end;
 
+       paitempalloc = ^taitempalloc;
+       taitempalloc = object(tai)
+          allocation : boolean;
+          temppos,
+          tempsize   : longint;
+          constructor alloc(pos,size:longint);
+          constructor dealloc(pos,size:longint);
+       end;
 
 { for each processor define the best precision }
 { bestreal is defined in globals }
@@ -722,6 +730,30 @@ uses
        Kind := _Kind;
      End;
 
+{*****************************************************************************
+                                TaiTempAlloc
+*****************************************************************************}
+
+    constructor taitempalloc.alloc(pos,size:longint);
+      begin
+        inherited init;
+        typ:=ait_tempalloc;
+        allocation:=true;
+        temppos:=pos;
+        tempsize:=size;
+      end;
+
+
+    constructor taitempalloc.dealloc(pos,size:longint);
+      begin
+        inherited init;
+        typ:=ait_tempalloc;
+        allocation:=false;
+        temppos:=pos;
+        tempsize:=size;
+      end;
+
+
 
 {*****************************************************************************
                                   AsmSymbol
@@ -933,7 +965,10 @@ uses
 end.
 {
   $Log$
-  Revision 1.54  1999-07-29 20:53:55  peter
+  Revision 1.55  1999-08-01 23:55:55  michael
+  * Moved taitempalloc
+
+  Revision 1.54  1999/07/29 20:53:55  peter
     * write .size also
 
   Revision 1.53  1999/07/22 09:37:28  florian

compiler/i386asm.pas

@@ -53,14 +53,6 @@ type
      constructor dealloc(r : tregister);
   end;
 
-  paitempalloc = ^taitempalloc;
-  taitempalloc = object(tai)
-     allocation : boolean;
-     temppos,
-     tempsize   : longint;
-     constructor alloc(pos,size:longint);
-     constructor dealloc(pos,size:longint);
-  end;
 
   pai386 = ^tai386;
   tai386 = object(tai)
@@ -163,30 +155,6 @@ uses
       end;
 
 
-{*****************************************************************************
-                                TaiTempAlloc
-*****************************************************************************}
-
-    constructor taitempalloc.alloc(pos,size:longint);
-      begin
-        inherited init;
-        typ:=ait_tempalloc;
-        allocation:=true;
-        temppos:=pos;
-        tempsize:=size;
-      end;
-
-
-    constructor taitempalloc.dealloc(pos,size:longint);
-      begin
-        inherited init;
-        typ:=ait_tempalloc;
-        allocation:=false;
-        temppos:=pos;
-        tempsize:=size;
-      end;
-
-
 {*****************************************************************************
                                  Tai386 Constructors
 *****************************************************************************}
@@ -1524,7 +1492,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.16  1999-07-05 20:25:32  peter
+  Revision 1.17  1999-08-01 23:55:53  michael
+  * Moved taitempalloc
+
+  Revision 1.16  1999/07/05 20:25:32  peter
     * merged
 
   Revision 1.15  1999/07/05 11:56:55  jonas