From 9575b739fbafc98a5ad81e7dfdc490f0bb73ddf1 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 20 Sep 2004 15:40:21 +0000
Subject: [PATCH] * make it compile with main branch
---
compiler/tgobj.pas | 15 +++++++++------
1 file changed, 9 insertions(+), 6 deletions(-)
diff --git a/compiler/tgobj.pas b/compiler/tgobj.pas
index fe2895d53e..622733786d 100644
--- a/compiler/tgobj.pas
+++ b/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