paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 00:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compilation on i386 fixed

Browse Source 
git-svn-id: trunk@42655 -
This commit is contained in:
florian 2019-08-11 19:35:34 +00:00
parent 7f8dc75604
commit 4c9a0403f4
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/x86/aasmcpu.pas
View File

@ -1601,11 +1601,11 @@ implementation
(not(InsTabMemRefSizeInfoCache^[opcode].ConstSize in [csiMultiple, csiUnkown])) then
begin
case InsTabMemRefSizeInfoCache^[opcode].ConstSize of
csiNoSize: ot := ot and (not(OT_SIZE_MASK)) or OT_IMMEDIATE;
csiMem8: ot := ot and (not(OT_SIZE_MASK)) or OT_IMMEDIATE or OT_BITS8;
csiMem16: ot := ot and (not(OT_SIZE_MASK)) or OT_IMMEDIATE or OT_BITS16;
csiMem32: ot := ot and (not(OT_SIZE_MASK)) or OT_IMMEDIATE or OT_BITS32;
csiMem64: ot := ot and (not(OT_SIZE_MASK)) or OT_IMMEDIATE or OT_BITS64;
csiNoSize: ot := ot and OT_NON_SIZE or OT_IMMEDIATE;
csiMem8: ot := ot and OT_NON_SIZE or OT_IMMEDIATE or OT_BITS8;
csiMem16: ot := ot and OT_NON_SIZE or OT_IMMEDIATE or OT_BITS16;
csiMem32: ot := ot and OT_NON_SIZE or OT_IMMEDIATE or OT_BITS32;
csiMem64: ot := ot and OT_NON_SIZE or OT_IMMEDIATE or OT_BITS64;
else
;
end;

2
compiler/x86/rax86.pas
View File

@ -1890,7 +1890,7 @@ begin
;
end;
if asize<>0 then
ai.oper[i-1]^.ot:=(ai.oper[i-1]^.ot and not OT_SIZE_MASK) or asize;
ai.oper[i-1]^.ot:=(ai.oper[i-1]^.ot and OT_NON_SIZE) or asize;
end;
end;
else