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

* fixed the alignment filler in code sections on i8086 to always use nops,

Browse Source 
instead of using the optimized instructions for 386+, which assume also a
  32-bit address and operand size, so they didn't work even on a 386+ in real
  mode

git-svn-id: trunk@33371 -
This commit is contained in:
nickysn 2016-03-28 15:04:28 +00:00
parent 13e1bf4066
commit b562bcfdbd
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/x86/aasmcpu.pas
View File

@ -667,6 +667,15 @@ implementation
#$0F#$1F#$00, #$0F#$1F#$00,
#$66#$90, #$66#$90,
#$90); #$90);
{$ifdef i8086}
alignarray:array[0..5] of string[8]=(
#$90#$90#$90#$90#$90#$90#$90,
#$90#$90#$90#$90#$90#$90,
#$90#$90#$90#$90,
#$90#$90#$90,
#$90#$90,
#$90);
{$else i8086}
alignarray:array[0..5] of string[8]=( alignarray:array[0..5] of string[8]=(
#$8D#$B4#$26#$00#$00#$00#$00, #$8D#$B4#$26#$00#$00#$00#$00,
#$8D#$B6#$00#$00#$00#$00, #$8D#$B6#$00#$00#$00#$00,
@ -674,6 +683,7 @@ implementation
#$8D#$76#$00, #$8D#$76#$00,
#$89#$F6, #$89#$F6,
#$90); #$90);
{$endif i8086}
var var
bufptr : pchar; bufptr : pchar;
j : longint; j : longint;