Browse Source

- removed no longer used tprocdef.fpu_used field for i386/i8086 (the one
place where it was used, we now handle the consequence directly)

git-svn-id: trunk@27435 -

Jonas Maebe 11 years ago
parent
commit
d020a32b9a
2 changed files with 1 additions and 14 deletions
  1. 1 2
      compiler/psub.pas
  2. 0 12
      compiler/symdef.pas

+ 1 - 2
compiler/psub.pas

@@ -1286,8 +1286,7 @@ implementation
         do_firstpass(code);
         do_firstpass(code);
 
 
 {$if defined(i386) or defined(i8086)}
 {$if defined(i386) or defined(i8086)}
-        procdef.fpu_used:=node_resources_fpu(code);
-        if procdef.fpu_used>0 then
+        if node_resources_fpu(code)>0 then
           include(flags,pi_uses_fpu);
           include(flags,pi_uses_fpu);
 {$endif i386 or i8086}
 {$endif i386 or i8086}
 
 

+ 0 - 12
compiler/symdef.pas

@@ -714,9 +714,6 @@ interface
 {$endif oldregvars}
 {$endif oldregvars}
           import_nr    : word;
           import_nr    : word;
           extnumber    : word;
           extnumber    : word;
-{$if defined(i386) or defined(i8086)}
-          fpu_used     : byte;
-{$endif i386 or i8086}
 {$if defined(arm)}
 {$if defined(arm)}
           { the arm paramanager might need to know the total size of the stackframe
           { the arm paramanager might need to know the total size of the stackframe
             to avoid cyclic unit dependencies or global variables, this infomatation is
             to avoid cyclic unit dependencies or global variables, this infomatation is
@@ -4801,9 +4798,6 @@ implementation
          import_nr:=0;
          import_nr:=0;
          inlininginfo:=nil;
          inlininginfo:=nil;
          deprecatedmsg:=nil;
          deprecatedmsg:=nil;
-{$if defined(i386) or defined(i8086)}
-          fpu_used:=maxfpuregs;
-{$endif i386 or i8086}
       end;
       end;
 
 
 
 
@@ -4899,9 +4893,6 @@ implementation
            deffile.AddExport(mangledname);
            deffile.AddExport(mangledname);
          { Disable po_has_inlining until the derefimpl is done }
          { Disable po_has_inlining until the derefimpl is done }
          has_inlininginfo:=false;
          has_inlininginfo:=false;
-{$ifdef i386}
-         fpu_used:=maxfpuregs;
-{$endif i386}
       end;
       end;
 
 
 
 
@@ -5231,9 +5222,6 @@ 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;
-{$if defined(i386) or defined(i8086)}
-        tprocdef(result).fpu_used:=fpu_used;
-{$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 }