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

* fixed i8086 compilation

Browse Source 
git-svn-id: trunk@29807 -
This commit is contained in:
Jonas Maebe 2015-02-23 08:51:59 +00:00
parent d85b49755c
commit 1a949eae1f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/x86/aasmcpu.pas
View File

@ -672,6 +672,7 @@ implementation
localsize:=fillsize; localsize:=fillsize;
while (localsize>0) do while (localsize>0) do
begin begin
{$ifndef i8086}
if CPUX86_HAS_CMOV in cpu_capabilities[current_settings.cputype] then if CPUX86_HAS_CMOV in cpu_capabilities[current_settings.cputype] then
begin begin
for j:=low(alignarray_cmovcpus) to high(alignarray_cmovcpus) do for j:=low(alignarray_cmovcpus) to high(alignarray_cmovcpus) do
@ -682,6 +683,7 @@ implementation
dec(localsize,length(alignarray_cmovcpus[j])); dec(localsize,length(alignarray_cmovcpus[j]));
end end
else else
{$endif not i8086}
begin begin
for j:=low(alignarray) to high(alignarray) do for j:=low(alignarray) to high(alignarray) do
if (localsize>=length(alignarray[j])) then if (localsize>=length(alignarray[j])) then