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

- don't allocate/deallocate the fpu registers in tcg.[de]allocallcpuregisters on the i8086

Browse Source 
git-svn-id: trunk@24505 -
This commit is contained in:
nickysn 2013-05-15 08:24:07 +00:00
parent ec6ff22588
commit 512ca83f33
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cgobj.pas
View File

@ -697,14 +697,14 @@ implementation
procedure tcg.allocallcpuregisters(list:TAsmList);
begin
alloccpuregisters(list,R_INTREGISTER,paramanager.get_volatile_registers_int(pocall_default));
{$if not(defined(i386)) and not(defined(avr))}
{$if not(defined(i386)) and not(defined(i8086)) and not(defined(avr))}
if uses_registers(R_FPUREGISTER) then
alloccpuregisters(list,R_FPUREGISTER,paramanager.get_volatile_registers_fpu(pocall_default));
{$ifdef cpumm}
if uses_registers(R_MMREGISTER) then
alloccpuregisters(list,R_MMREGISTER,paramanager.get_volatile_registers_mm(pocall_default));
{$endif cpumm}
{$endif not(defined(i386)) and not(defined(avr))}
{$endif not(defined(i386)) and not(defined(i8086)) and not(defined(avr))}
end;
@ -720,14 +720,14 @@ implementation
procedure tcg.deallocallcpuregisters(list:TAsmList);
begin
dealloccpuregisters(list,R_INTREGISTER,paramanager.get_volatile_registers_int(pocall_default));
{$if not(defined(i386)) and not(defined(avr))}
{$if not(defined(i386)) and not(defined(i8086)) and not(defined(avr))}
if uses_registers(R_FPUREGISTER) then
dealloccpuregisters(list,R_FPUREGISTER,paramanager.get_volatile_registers_fpu(pocall_default));
{$ifdef cpumm}
if uses_registers(R_MMREGISTER) then
dealloccpuregisters(list,R_MMREGISTER,paramanager.get_volatile_registers_mm(pocall_default));
{$endif cpumm}
{$endif not(defined(i386)) and not(defined(avr))}
{$endif not(defined(i386)) and not(defined(i8086)) and not(defined(avr))}
end;