paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-20 21:39:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

bugfix OS32

Browse Source 
git-svn-id: branches/tg74/avx512@39648 -
This commit is contained in:
tg74 2018-08-19 16:35:23 +00:00
parent 7b8715184a
commit 7c5cefad36
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/aasmcpu.pas
View File

@ -753,7 +753,7 @@ implementation
); );
{$elseif defined(i386)} {$elseif defined(i386)}
{ Intel style operands ! } { Intel style operands ! }
opsize_2_type:array[0..2,topsize] of longint=( opsize_2_type:array[0..2,topsize] of int64=(
(OT_NONE, (OT_NONE,
OT_BITS8,OT_BITS16,OT_BITS32,OT_BITS64,OT_BITS16,OT_BITS32,OT_BITS32, OT_BITS8,OT_BITS16,OT_BITS32,OT_BITS64,OT_BITS16,OT_BITS32,OT_BITS32,
OT_BITS16,OT_BITS32,OT_BITS64, OT_BITS16,OT_BITS32,OT_BITS64,
@ -794,7 +794,7 @@ implementation
); );
{$elseif defined(i8086)} {$elseif defined(i8086)}
{ Intel style operands ! } { Intel style operands ! }
opsize_2_type:array[0..2,topsize] of longint=( opsize_2_type:array[0..2,topsize] of int64=(
(OT_NONE, (OT_NONE,
OT_BITS8,OT_BITS16,OT_BITS32,OT_BITS64,OT_BITS16,OT_BITS32,OT_BITS32, OT_BITS8,OT_BITS16,OT_BITS32,OT_BITS64,OT_BITS16,OT_BITS32,OT_BITS32,
OT_BITS16,OT_BITS32,OT_BITS64, OT_BITS16,OT_BITS32,OT_BITS64,
@ -3720,7 +3720,9 @@ implementation
bytes[0] := $62; bytes[0] := $62;
bytes[1] := ((EVEXmm and $03) shl 0) or bytes[1] := ((EVEXmm and $03) shl 0) or
{$ifdef x86_64}
((not(rex) and $05) shl 5) or ((not(rex) and $05) shl 5) or
{$endif x86_64}
((EVEXr and $01) shl 4) or ((EVEXr and $01) shl 4) or
((EVEXx and $01) shl 6); ((EVEXx and $01) shl 6);