paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 19:09:21 +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); procedure ungetiftemp(list: taasmoutput; const ref : treference);
{ Allocate space for a local } { Allocate space for a local }
procedure getlocal(list: taasmoutput; size : longint;def:tdef;var ref : treference); procedure getlocal(list: taasmoutput; size : longint;def:tdef;var ref : tparareference);
procedure UnGetLocal(list: taasmoutput; const ref : treference); procedure UnGetLocal(list: taasmoutput; const ref : tparareference);
end; end;
var var
@ -588,7 +588,7 @@ unit tgobj;
end; 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 var
varalign : longint; varalign : longint;
begin begin
@ -597,12 +597,12 @@ unit tgobj;
{ can't use reference_reset_base, because that will let tgobj depend { can't use reference_reset_base, because that will let tgobj depend
on cgobj (PFV) } on cgobj (PFV) }
fillchar(ref,sizeof(ref),0); fillchar(ref,sizeof(ref),0);
ref.base:=current_procinfo.framepointer; ref.index:=current_procinfo.framepointer;
ref.offset:=alloctemp(list,size,varalign,tt_persistent,nil); ref.offset:=alloctemp(list,size,varalign,tt_persistent,nil);
end; end;
procedure ttgobj.UnGetLocal(list: taasmoutput; const ref : treference); procedure ttgobj.UnGetLocal(list: taasmoutput; const ref : tparareference);
begin begin
FreeTemp(list,ref.offset,[tt_persistent]); FreeTemp(list,ref.offset,[tt_persistent]);
end; end;
@ -611,7 +611,10 @@ unit tgobj;
end. end.
{ {
$Log$ $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) * fixed crashes on direction=1 systems (mainly by Peter)
Revision 1.45.4.2 2004/09/07 20:52:10 peter Revision 1.45.4.2 2004/09/07 20:52:10 peter