Răsfoiți Sursa

- removed symcpu dependencies

git-svn-id: trunk@31047 -
Jonas Maebe 10 ani în urmă
părinte
comite
75a6ba4113
2 a modificat fișierele cu 6 adăugiri și 17 ștergeri
  1. 5 16
      compiler/defutil.pas
  2. 1 1
      compiler/fmodule.pas

+ 5 - 16
compiler/defutil.pas

@@ -337,7 +337,7 @@ interface
 implementation
 implementation
 
 
     uses
     uses
-       verbose,cutils,symcpu;
+       verbose,cutils;
 
 
     { returns true, if def uses FPU }
     { returns true, if def uses FPU }
     function is_fpu(def : tdef) : boolean;
     function is_fpu(def : tdef) : boolean;
@@ -1208,21 +1208,10 @@ implementation
           classrefdef,
           classrefdef,
           pointerdef:
           pointerdef:
             begin
             begin
-{$ifdef x86}
-              if (def.typ=pointerdef) and
-                 (tcpupointerdef(def).x86pointertyp in [x86pt_far,x86pt_huge]) then
-                begin
-                  {$if defined(i8086)}
-                    result := OS_32;
-                  {$elseif defined(i386)}
-                    internalerror(2013052201);  { there's no OS_48 }
-                  {$elseif defined(x86_64)}
-                    internalerror(2013052202);  { there's no OS_80 }
-                  {$endif}
-                end
-              else
-{$endif x86}
-                result := int_cgsize(def.size);
+              result:=int_cgsize(def.size);
+              { can happen for far/huge pointers on non-i8086 }
+              if result=OS_NO then
+                internalerror(2013052201);
             end;
             end;
           formaldef:
           formaldef:
             result := int_cgsize(voidpointertype.size);
             result := int_cgsize(voidpointertype.size);

+ 1 - 1
compiler/fmodule.pas

@@ -44,7 +44,7 @@ interface
     uses
     uses
        cutils,cclasses,cfileutl,
        cutils,cclasses,cfileutl,
        globtype,finput,ogbase,
        globtype,finput,ogbase,
-       symbase,symconst,symsym,symcpu,
+       symbase,symconst,symsym,
        wpobase,
        wpobase,
        aasmbase,aasmtai,aasmdata;
        aasmbase,aasmtai,aasmdata;