فهرست منبع

- 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 سال پیش
والد
کامیت
d020a32b9a
2فایلهای تغییر یافته به همراه1 افزوده شده و 14 حذف شده
  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 }