paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 19:29:27 +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 (not(InsTabMemRefSizeInfoCache^[opcode].ConstSize in [csiMultiple, csiUnkown])) then
begin begin
case InsTabMemRefSizeInfoCache^[opcode].ConstSize of case InsTabMemRefSizeInfoCache^[opcode].ConstSize of
csiNoSize: ot := ot and (not(OT_SIZE_MASK)) or OT_IMMEDIATE; csiNoSize: ot := ot and OT_NON_SIZE or OT_IMMEDIATE;
csiMem8: ot := ot and (not(OT_SIZE_MASK)) or OT_IMMEDIATE or OT_BITS8; csiMem8: ot := ot and OT_NON_SIZE or OT_IMMEDIATE or OT_BITS8;
csiMem16: ot := ot and (not(OT_SIZE_MASK)) or OT_IMMEDIATE or OT_BITS16; csiMem16: ot := ot and OT_NON_SIZE or OT_IMMEDIATE or OT_BITS16;
csiMem32: ot := ot and (not(OT_SIZE_MASK)) or OT_IMMEDIATE or OT_BITS32; csiMem32: ot := ot and OT_NON_SIZE or OT_IMMEDIATE or OT_BITS32;
csiMem64: ot := ot and (not(OT_SIZE_MASK)) or OT_IMMEDIATE or OT_BITS64; csiMem64: ot := ot and OT_NON_SIZE or OT_IMMEDIATE or OT_BITS64;
else else
; ;
end; end;

2
compiler/x86/rax86.pas
View File

@ -1890,7 +1890,7 @@ begin
; ;
end; end;
if asize<>0 then 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;
end; end;
else else