paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 03:46:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed load64 which shouldn't do a make_simple_ref

Browse Source
This commit is contained in:
florian 2005-01-25 20:58:30 +00:00
parent 6c2c1debcc
commit 4efb72e13d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/sparc/cgcpu.pas
View File

@ -1315,7 +1315,6 @@ implementation
begin begin
{ Override this function to prevent loading the reference twice } { Override this function to prevent loading the reference twice }
tmpref:=ref; tmpref:=ref;
tcgsparc(cg).make_simple_ref(list,tmpref);
cg.a_load_reg_ref(list,OS_32,OS_32,reg.reghi,tmpref); cg.a_load_reg_ref(list,OS_32,OS_32,reg.reghi,tmpref);
inc(tmpref.offset,4); inc(tmpref.offset,4);
cg.a_load_reg_ref(list,OS_32,OS_32,reg.reglo,tmpref); cg.a_load_reg_ref(list,OS_32,OS_32,reg.reglo,tmpref);
@ -1328,7 +1327,6 @@ implementation
begin begin
{ Override this function to prevent loading the reference twice } { Override this function to prevent loading the reference twice }
tmpref:=ref; tmpref:=ref;
tcgsparc(cg).make_simple_ref(list,tmpref);
cg.a_load_ref_reg(list,OS_32,OS_32,tmpref,reg.reghi); cg.a_load_ref_reg(list,OS_32,OS_32,tmpref,reg.reghi);
inc(tmpref.offset,4); inc(tmpref.offset,4);
cg.a_load_ref_reg(list,OS_32,OS_32,tmpref,reg.reglo); cg.a_load_ref_reg(list,OS_32,OS_32,tmpref,reg.reglo);
@ -1458,7 +1456,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.103 2005-01-24 22:08:32 peter Revision 1.104 2005-01-25 20:58:30 florian
* fixed load64 which shouldn't do a make_simple_ref
Revision 1.103 2005/01/24 22:08:32 peter
* interface wrapper generation moved to cgobj * interface wrapper generation moved to cgobj
* generate interface wrappers after the module is parsed * generate interface wrappers after the module is parsed