paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 16:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compile for oldregvars

Browse Source
This commit is contained in:
peter 2004-09-27 15:14:08 +00:00
parent 30a4185153
commit ba87da9bc2
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/ncgutil.pas
View File

@ -1029,14 +1029,14 @@ implementation
begin begin
{$ifdef OLDREGVARS} {$ifdef OLDREGVARS}
case ressym.localloc.loc of case ressym.localloc.loc of
LOC_CFPUREGISTER: LOC_CFPUREGISTER,
LOC_FPUREGISTER: LOC_FPUREGISTER:
begin begin
location_reset(restmploc,LOC_CFPUREGISTER,funcretloc^.size); location_reset(restmploc,LOC_CFPUREGISTER,funcretloc^.size);
restmploc.register:=ressym.localloc.register; restmploc.register:=ressym.localloc.register;
end; end;
LOC_CREGISTER: LOC_CREGISTER,
LOC_REGISTER: LOC_REGISTER:
begin begin
location_reset(restmploc,LOC_CREGISTER,funcretloc^.size); location_reset(restmploc,LOC_CREGISTER,funcretloc^.size);
@ -1090,10 +1090,10 @@ implementation
inc(href.offset,4); inc(href.offset,4);
cg.a_load_ref_reg(list,OS_32,OS_32,href,resloc.registerlow); cg.a_load_ref_reg(list,OS_32,OS_32,href,resloc.registerlow);
end; end;
LOC_REGISTER : LOC_CREGISTER :
cg.a_load_reg_reg(list,OS_32,OS_32,restmploc.registerlow,resloc.registerlow); cg.a_load_reg_reg(list,OS_32,OS_32,restmploc.registerlow,resloc.registerlow);
else else
internalerror(200409201); internalerror(200409203);
end; end;
if getsupreg(resloc.registerhigh)<first_int_imreg then if getsupreg(resloc.registerhigh)<first_int_imreg then
begin begin
@ -1110,10 +1110,10 @@ implementation
inc(href.offset,4); inc(href.offset,4);
cg.a_load_ref_reg(list,OS_32,OS_32,href,resloc.registerhigh); cg.a_load_ref_reg(list,OS_32,OS_32,href,resloc.registerhigh);
end; end;
LOC_REGISTER : LOC_CREGISTER :
cg.a_load_reg_reg(list,OS_32,OS_32,restmploc.registerhigh,resloc.registerhigh); cg.a_load_reg_reg(list,OS_32,OS_32,restmploc.registerhigh,resloc.registerhigh);
else else
internalerror(200409201); internalerror(200409204);
end; end;
end end
else else
@ -1722,6 +1722,7 @@ implementation
{ When there is assembler code we can't use regvars } { When there is assembler code we can't use regvars }
if (cs_regvars in aktglobalswitches) and if (cs_regvars in aktglobalswitches) and
not(pi_has_assembler_block in current_procinfo.flags) and not(pi_has_assembler_block in current_procinfo.flags) and
not(pi_uses_exceptions in current_procinfo.flags) and
(vo_regable in varoptions) then (vo_regable in varoptions) then
begin begin
localloc.loc:=LOC_CREGISTER; localloc.loc:=LOC_CREGISTER;
@ -2093,7 +2094,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.218 2004-09-26 17:45:30 peter Revision 1.219 2004-09-27 15:14:08 peter
* fix compile for oldregvars
Revision 1.218 2004/09/26 17:45:30 peter
* simple regvar support, not yet finished * simple regvar support, not yet finished
Revision 1.217 2004/09/25 14:23:54 peter Revision 1.217 2004/09/25 14:23:54 peter