paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 12:29:25 +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:=[]; flowcontrol:=[];
do_firstpass(code); do_firstpass(code);
{$ifdef i386} {$if defined(i386) or defined(i8086)}
procdef.fpu_used:=node_resources_fpu(code); procdef.fpu_used:=node_resources_fpu(code);
if procdef.fpu_used>0 then if procdef.fpu_used>0 then
include(flags,pi_uses_fpu); include(flags,pi_uses_fpu);
{$endif i386} {$endif i386 or i8086}
{ Print the node to tree.log } { Print the node to tree.log }
if paraprintnodetree=1 then if paraprintnodetree=1 then

12
compiler/symdef.pas
View File

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