paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +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;
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;

4
compiler/x86/nx86inl.pas
View File

@ -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;