paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 03:37:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed regvars compilation

Browse Source
This commit is contained in:
Jonas Maebe 2004-05-30 15:36:55 +00:00
parent e122ea8dc7
commit d49fa72a0d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/regvars.pas
View File

@ -647,7 +647,7 @@ implementation
for i := 1 to maxvarregs do
if assigned(regvars[i]) then
begin
reg:=cg.makeregsize(tvarsym(regvars[i]).localloc.register,OS_INT);
reg:=cg.makeregsize(list,tvarsym(regvars[i]).localloc.register,OS_INT);
cg.a_load_reg_reg(list,OS_INT,OS_INT,reg,reg);
cg.ungetregister(list,tvarsym(regvars[i]).localloc.register);
end;
@ -670,7 +670,10 @@ end.
{
$Log$
Revision 1.74 2004-02-08 20:15:42 jonas
Revision 1.75 2004-05-30 15:36:55 jonas
* fixed regvars compilation
Revision 1.74 2004/02/08 20:15:42 jonas
- removed taicpu.is_reg_move because it's not used anymore
+ support tracking fpu register moves by rgobj for the ppc