paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 13:28:26 +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 for i := 1 to maxvarregs do
if assigned(regvars[i]) then if assigned(regvars[i]) then
begin 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.a_load_reg_reg(list,OS_INT,OS_INT,reg,reg);
cg.ungetregister(list,tvarsym(regvars[i]).localloc.register); cg.ungetregister(list,tvarsym(regvars[i]).localloc.register);
end; end;
@ -670,7 +670,10 @@ end.
{ {
$Log$ $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 - removed taicpu.is_reg_move because it's not used anymore
+ support tracking fpu register moves by rgobj for the ppc + support tracking fpu register moves by rgobj for the ppc