* make it compile with main branch

compiler/tgobj.pas

@@ -103,8 +103,8 @@ unit tgobj;
           procedure ungetiftemp(list: taasmoutput; const ref : treference);
 
           { Allocate space for a local }
-          procedure getlocal(list: taasmoutput; size : longint;def:tdef;var ref : treference);
-          procedure UnGetLocal(list: taasmoutput; const ref : treference);
+          procedure getlocal(list: taasmoutput; size : longint;def:tdef;var ref : tparareference);
+          procedure UnGetLocal(list: taasmoutput; const ref : tparareference);
        end;
 
      var
@@ -588,7 +588,7 @@ unit tgobj;
       end;
 
 
-    procedure ttgobj.getlocal(list: taasmoutput; size : longint;def:tdef;var ref : treference);
+    procedure ttgobj.getlocal(list: taasmoutput; size : longint;def:tdef;var ref : tparareference);
       var
         varalign : longint;
       begin
@@ -597,12 +597,12 @@ unit tgobj;
         { can't use reference_reset_base, because that will let tgobj depend
           on cgobj (PFV) }
         fillchar(ref,sizeof(ref),0);
-        ref.base:=current_procinfo.framepointer;
+        ref.index:=current_procinfo.framepointer;
         ref.offset:=alloctemp(list,size,varalign,tt_persistent,nil);
       end;
 
 
-    procedure ttgobj.UnGetLocal(list: taasmoutput; const ref : treference);
+    procedure ttgobj.UnGetLocal(list: taasmoutput; const ref : tparareference);
       begin
         FreeTemp(list,ref.offset,[tt_persistent]);
       end;
@@ -611,7 +611,10 @@ unit tgobj;
 end.
 {
   $Log$
-  Revision 1.46  2004-09-20 07:32:02  jonas
+  Revision 1.47  2004-09-20 15:40:21  peter
+    * make it compile with main branch
+
+  Revision 1.46  2004/09/20 07:32:02  jonas
     * fixed crashes on direction=1 systems (mainly by Peter)
 
   Revision 1.45.4.2  2004/09/07 20:52:10  peter