paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make it compile with main branch

Browse Source
This commit is contained in:
peter 2004-09-20 15:40:21 +00:00
parent d9223a48da
commit 9575b739fb
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/tgobj.pas
View File

@ -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