paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 00:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation of i8086 compiler

Browse Source 
git-svn-id: trunk@27566 -
This commit is contained in:
florian 2014-04-13 19:28:59 +00:00
parent 6fd98d604a
commit 18233f2c0c
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/x86/cgx86.pas
View File

@ -185,7 +185,7 @@ unit cgx86;
function UseAVX: boolean; function UseAVX: boolean;
begin 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; end;

4
compiler/x86/nx86inl.pas
View File

@ -251,6 +251,7 @@ implementation
function tx86inlinenode.first_fma : tnode; function tx86inlinenode.first_fma : tnode;
begin begin
{$ifndef i8086}
if ((cpu_capabilities[current_settings.cputype]*[CPUX86_HAS_FMA,CPUX86_HAS_FMA4])<>[]) and if ((cpu_capabilities[current_settings.cputype]*[CPUX86_HAS_FMA,CPUX86_HAS_FMA4])<>[]) and
((is_double(resultdef)) or (is_single(resultdef))) then ((is_double(resultdef)) or (is_single(resultdef))) then
begin begin
@ -258,6 +259,7 @@ implementation
Result:=nil; Result:=nil;
end end
else else
{$endif i8086}
Result:=inherited first_fma; Result:=inherited first_fma;
end; end;
@ -768,6 +770,7 @@ implementation
i : integer; i : integer;
gotmem : boolean; gotmem : boolean;
begin begin
{$ifndef i8086}
if (cpu_capabilities[current_settings.cputype]*[CPUX86_HAS_FMA,CPUX86_HAS_FMA4])<>[] then if (cpu_capabilities[current_settings.cputype]*[CPUX86_HAS_FMA,CPUX86_HAS_FMA4])<>[] then
begin begin
paraarray[1]:=tcallparanode(tcallparanode(tcallparanode(parameters).nextpara).nextpara).paravalue; paraarray[1]:=tcallparanode(tcallparanode(tcallparanode(parameters).nextpara).nextpara).paravalue;
@ -834,6 +837,7 @@ implementation
end; end;
end end
else else
{$endif i8086}
internalerror(2014032301); internalerror(2014032301);
end; end;