diff options
author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-04-13 19:28:59 +0000 |
---|---|---|
committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-04-13 19:28:59 +0000 |
commit | e7e08e8080d33620ad3e6a3c92e116aa92345c79 (patch) | |
tree | 5cf5d9f2b785e5b8d8a7c74addc6349fed42cf50 | |
parent | 4b73c510d98845318421813e9697eeca601c1242 (diff) | |
download | fpc-e7e08e8080d33620ad3e6a3c92e116aa92345c79.tar.gz |
* fix compilation of i8086 compiler
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@27566 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | compiler/x86/cgx86.pas | 2 | ||||
-rw-r--r-- | compiler/x86/nx86inl.pas | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/compiler/x86/cgx86.pas b/compiler/x86/cgx86.pas index 0a31abe557..e40a2c9a29 100644 --- a/compiler/x86/cgx86.pas +++ b/compiler/x86/cgx86.pas @@ -185,7 +185,7 @@ unit cgx86; function UseAVX: boolean; begin - Result:=(current_settings.fputype in fpu_avx_instructionsets) or (CPUX86_HAS_AVXUNIT in cpu_capabilities[current_settings.cputype]); + Result:=(current_settings.fputype in fpu_avx_instructionsets) {$ifndef i8086}or (CPUX86_HAS_AVXUNIT in cpu_capabilities[current_settings.cputype]){$endif i8086}; end; diff --git a/compiler/x86/nx86inl.pas b/compiler/x86/nx86inl.pas index 06a562baed..1d6e02486a 100644 --- a/compiler/x86/nx86inl.pas +++ b/compiler/x86/nx86inl.pas @@ -251,6 +251,7 @@ implementation function tx86inlinenode.first_fma : tnode; begin +{$ifndef i8086} if ((cpu_capabilities[current_settings.cputype]*[CPUX86_HAS_FMA,CPUX86_HAS_FMA4])<>[]) and ((is_double(resultdef)) or (is_single(resultdef))) then begin @@ -258,6 +259,7 @@ implementation Result:=nil; end else +{$endif i8086} Result:=inherited first_fma; end; @@ -768,6 +770,7 @@ implementation i : integer; gotmem : boolean; begin +{$ifndef i8086} if (cpu_capabilities[current_settings.cputype]*[CPUX86_HAS_FMA,CPUX86_HAS_FMA4])<>[] then begin paraarray[1]:=tcallparanode(tcallparanode(tcallparanode(parameters).nextpara).nextpara).paravalue; @@ -834,6 +837,7 @@ implementation end; end else +{$endif i8086} internalerror(2014032301); end; |