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

* fix of out (intel syntax) applied

Browse Source
This commit is contained in:
florian 1998-03-31 15:21:00 +00:00
parent 5f42622327
commit f0548b50a8
2 changed files with 860 additions and 849 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1694
compiler/msgtxt.inc
View File

File diff suppressed because it is too large Load Diff

15
compiler/rai386.pas
View File

@ -1544,6 +1544,14 @@ var
else else
Message(assem_e_invalid_size_in_ref); Message(assem_e_invalid_size_in_ref);
end; end;
OPR_CONSTANT: { const,reg }
Begin { OUT const,reg }
if (instruc = A_OUT) and (opsize = S_B) then
p^.concat(new(pai386,op_reg_const(instruc,
opsize,operands[1].reg,operands[2].val)))
else
Message(assem_e_invalid_size_in_ref);
end;
else { else case } else { else case }
Begin Begin
Message(assem_f_internal_error_in_concatopcode); Message(assem_f_internal_error_in_concatopcode);
@ -3350,8 +3358,11 @@ Begin
end. end.
{ {
$Log$ $Log$
Revision 1.1 1998-03-25 11:18:15 root Revision 1.2 1998-03-31 15:21:01 florian
Initial revision * fix of out (intel syntax) applied
Revision 1.1.1.1 1998/03/25 11:18:15 root
* Restored version
Revision 1.19 1998/03/24 21:48:34 florian Revision 1.19 1998/03/24 21:48:34 florian
* just a couple of fixes applied: * just a couple of fixes applied: