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

* indirect register refs with movsx/movzx fixed

Browse Source
This commit is contained in:
carl 1998-09-02 15:16:44 +00:00
parent 6a5a4973cc
commit 5532caf597
1 changed files with 54 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
compiler/ra386att.pas
View File

@ -966,12 +966,57 @@ const
if (instruc in [A_MOVZX,A_MOVSX]) then
Message(assem_f_internal_error_in_handleextend)
else
if (instruc = A_MOVSB) or (instruc = A_MOVSBL)
or (instruc = A_MOVSBW) or (instruc = A_MOVSWL) then
instruc := A_MOVSX
if (instruc = A_MOVSB) or (instruc = A_MOVSBL) then
Begin
instruc := A_MOVSX;
{ Indirect memory reference with register }
{ no size determined, therefore we determine it }
{ with the suffix. }
if instr.operands[1].size = S_NO then
instr.operands[1].size := S_B;
end
else
if (instruc = A_MOVZB) or (instruc = A_MOVZWL) then
instruc := A_MOVZX;
if (instruc = A_MOVSBW) then
Begin
instruc := A_MOVSX;
{ Indirect memory reference with register }
{ no size determined, therefore we determine it }
{ with the suffix. }
if instr.operands[1].size = S_NO then
instr.operands[1].size := S_B;
end
else
if (instruc = A_MOVSWL) then
Begin
instruc := A_MOVSX;
{ Indirect memory reference with register }
{ no size determined, therefore we determine it }
{ with the suffix. }
if instr.operands[1].size = S_NO then
instr.operands[1].size := S_W;
end
else
if (instruc = A_MOVZB) then
Begin
instruc := A_MOVZX;
{ Indirect memory reference with register }
{ no size determined, therefore we determine it }
{ with the suffix. }
if instr.operands[1].size = S_NO then
instr.operands[1].size := S_B;
end
else
if (instruc = A_MOVZWL) then
Begin
instruc := A_MOVZX;
{ Indirect memory reference with register }
{ no size determined, therefore we determine it }
{ with the suffix. }
if instr.operands[1].size = S_NO then
instr.operands[1].size := S_W;
end;
With instr do
Begin
@ -3692,7 +3737,10 @@ end.
{
$Log$
Revision 1.10 1998-09-02 01:24:09 carl
Revision 1.11 1998-09-02 15:16:44 carl
* indirect register refs with movsx/movzx fixed
Revision 1.10 1998/09/02 01:24:09 carl
* bugfix of PUSH opcode with constants
Revision 1.9 1998/08/21 08:45:49 pierre