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

* fix wrong registers in reference

Browse Source
This commit is contained in:
peter 2003-08-26 12:42:45 +00:00
parent b55ac2f5c3
commit d5a6a5b7f9
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/x86/rax86.pas
View File

@ -310,6 +310,8 @@ begin
so:=operands[i].opr.symofs;
operands[i].opr.typ:=OPR_REFERENCE;
Fillchar(operands[i].opr.ref,sizeof(treference),0);
operands[i].opr.ref.index.enum:=R_INTREGISTER;
operands[i].opr.ref.base.enum:=R_INTREGISTER;
operands[i].opr.ref.symbol:=s;
operands[i].opr.ref.offset:=so;
end;
@ -716,7 +718,10 @@ end;
end.
{
$Log$
Revision 1.6 2003-06-20 12:57:15 pierre
Revision 1.7 2003-08-26 12:42:45 peter
* fix wrong registers in reference
Revision 1.6 2003/06/20 12:57:15 pierre
* fix a bug preventing correct reading of intel 'mov [edi],al'
Revision 1.5 2003/06/07 10:23:50 peter