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

+ enable tprocdef.fpu_used for i8086 also

Browse Source 
git-svn-id: branches/i8086@23835 -
This commit is contained in:
nickysn 2013-03-14 16:33:37 +00:00
parent 89de81d4a9
commit 30d661734c
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/psub.pas
View File

@ -1203,11 +1203,11 @@ implementation
flowcontrol:=[];
do_firstpass(code);
{$ifdef i386}
{$if defined(i386) or defined(i8086)}
procdef.fpu_used:=node_resources_fpu(code);
if procdef.fpu_used>0 then
include(flags,pi_uses_fpu);
{$endif i386}
{$endif i386 or i8086}
{ Print the node to tree.log }
if paraprintnodetree=1 then

12
compiler/symdef.pas
View File

@ -622,9 +622,9 @@ interface
procendtai : tai;
import_nr : word;
extnumber : word;
{$ifdef i386}
{$if defined(i386) or defined(i8086)}
fpu_used : byte;
{$endif i386}
{$endif i386 or i8086}
{$ifdef mips}
{ needed for stabs debugging }
total_local_size : longint;
@ -4085,9 +4085,9 @@ implementation
import_nr:=0;
inlininginfo:=nil;
deprecatedmsg:=nil;
{$ifdef i386}
{$if defined(i386) or defined(i8086)}
fpu_used:=maxfpuregs;
{$endif i386}
{$endif i386 or i8086}
end;
@ -4511,9 +4511,9 @@ implementation
tprocdef(result).import_name:=stringdup(import_name^);
tprocdef(result).import_nr:=import_nr;
tprocdef(result).extnumber:=$ffff;
{$ifdef i386}
{$if defined(i386) or defined(i8086)}
tprocdef(result).fpu_used:=fpu_used;
{$endif i386}
{$endif i386 or i8086}
tprocdef(result).visibility:=visibility;
tprocdef(result).synthetickind:=synthetickind;
{ we need a separate implementation for the copied def }