paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 13:10:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed ref/loc problems

Browse Source
This commit is contained in:
Jonas Maebe 2003-06-03 15:49:49 +00:00
parent fc90d8ab4b
commit cbe4a3abd1
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ncgutil.pas
View File

@ -1306,7 +1306,7 @@ implementation
r2.enum:=R_INTREGISTER;
r2.number:=NR_FUNCTION_RETURN64_HIGH_REG;
cg.a_reg_alloc(list,r2);
cg64.a_load64_ref_reg(list,resloc,joinreg64(r,r2){$ifdef newra},false{$endif});
cg64.a_load64_loc_reg(list,resloc,joinreg64(r,r2){$ifdef newra},false{$endif});
end
else
{$endif cpu64bit}
@ -1343,7 +1343,7 @@ implementation
r2.enum:=R_INTREGISTER;
r2.number:=NR_FUNCTION_RETURN64_HIGH_REG;
cg.a_reg_alloc(list,r2);
cg64.a_load64_ref_reg(list,resloc,joinreg64(r,r2){$ifdef newra},false{$endif});
cg64.a_load64_loc_reg(list,resloc,joinreg64(r,r2){$ifdef newra},false{$endif});
end
else
{$endif cpu64bit}
@ -1867,7 +1867,7 @@ implementation
begin
r:=rg.getregisterint(list,OS_INT);
r2:=rg.getregisterint(list,OS_INT);
cg64.a_load64_ref_reg(list,resloc,joinreg64(r,r2){$ifdef newra},false{$endif});
cg64.a_load64_loc_reg(list,resloc,joinreg64(r,r2){$ifdef newra},false{$endif});
end
else
{$endif cpu64bit}
@ -1896,7 +1896,7 @@ implementation
begin
r:=rg.getregisterint(list,OS_INT);
r2:=rg.getregisterint(list,OS_INT);
cg64.a_load64_ref_reg(list,resloc,joinreg64(r,r2){$ifdef newra},false{$endif});
cg64.a_load64_loc_reg(list,resloc,joinreg64(r,r2){$ifdef newra},false{$endif});
end
else
{$endif cpu64bit}
@ -1971,7 +1971,10 @@ implementation
end.
{
$Log$
Revision 1.119 2003-06-03 15:06:37 daniel
Revision 1.120 2003-06-03 15:49:49 jonas
* fixed ref/loc problems
Revision 1.119 2003/06/03 15:06:37 daniel
* fixed conflict marks
Revision 1.118 2003/06/03 13:01:59 daniel