paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 13:11:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed rangecheck error

Browse Source
This commit is contained in:
peter 2003-10-30 17:12:49 +00:00
parent 17caa136da
commit c8300cab51
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/ncgcal.pas
View File

@ -478,7 +478,7 @@ implementation
location.register:=NR_FPU_RESULT_REG; location.register:=NR_FPU_RESULT_REG;
{$ifdef x86} {$ifdef x86}
tcgx86(cg).inc_fpu_stack; tcgx86(cg).inc_fpu_stack;
{$else x86} {$else x86}
cg.ungetregister(exprasmlist,location.register); cg.ungetregister(exprasmlist,location.register);
hregister := cg.getfpuregister(exprasmlist,location.size); hregister := cg.getfpuregister(exprasmlist,location.size);
cg.a_loadfpu_reg_reg(exprasmlist,location.size,location.register,hregister); cg.a_loadfpu_reg_reg(exprasmlist,location.size,location.register,hregister);
@ -719,7 +719,7 @@ implementation
end; end;
LOC_FPUREGISTER,LOC_CFPUREGISTER: LOC_FPUREGISTER,LOC_CFPUREGISTER:
begin begin
include(regs_to_push_fpu,procdefinition.funcret_paraloc[callerside].register); include(regs_to_push_fpu,getsupreg(procdefinition.funcret_paraloc[callerside].register));
end; end;
LOC_MMREGISTER,LOC_CMMREGISTER: LOC_MMREGISTER,LOC_CMMREGISTER:
begin begin
@ -728,10 +728,6 @@ implementation
end; end;
end; end;
{ Save registers destroyed by the call }
{$warning fime saveusedotherregisters.}
{ cg.saveusedotherregisters(exprasmlist,pushedother,regs_to_push_other);}
{ Initialize for pushing the parameters } { Initialize for pushing the parameters }
oldpushedparasize:=pushedparasize; oldpushedparasize:=pushedparasize;
pushedparasize:=0; pushedparasize:=0;
@ -929,10 +925,6 @@ implementation
cg.deallocexplicitregisters(exprasmlist,R_INTREGISTER,paramanager.get_volatile_registers_int(pocall_default)); cg.deallocexplicitregisters(exprasmlist,R_INTREGISTER,paramanager.get_volatile_registers_int(pocall_default));
end; end;
{ restore registers }
{$warning fixme restoreusedotherregisters}
{ rg.restoreusedotherregisters(exprasmlist,pushedother);}
{ release temps of paras } { release temps of paras }
release_para_temps; release_para_temps;
@ -1154,7 +1146,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.134 2003-10-29 21:24:14 jonas Revision 1.135 2003-10-30 17:12:49 peter
* fixed rangecheck error
Revision 1.134 2003/10/29 21:24:14 jonas
+ support for fpu temp parameters + support for fpu temp parameters
+ saving/restoring of fpu register before/after a procedure call + saving/restoring of fpu register before/after a procedure call