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

* Fixed internalerror

Browse Source
This commit is contained in:
daniel 2003-01-13 23:00:18 +00:00
parent 6b5175e8fc
commit 509618b646
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/cgx86.pas
View File

@ -1659,6 +1659,7 @@ unit cgx86;
r.number:=NR_EDI; r.number:=NR_EDI;
list.concat(Taicpu.op_reg(A_DEC,S_L,r)); list.concat(Taicpu.op_reg(A_DEC,S_L,r));
a_jmp_cond(list,OC_NE,again); a_jmp_cond(list,OC_NE,again);
r.enum:=R_EDI;
rg.ungetregisterint(list,r); rg.ungetregisterint(list,r);
list.concat(Taicpu.op_const_reg(A_SUB,S_L,localsize mod winstackpagesize,rsp)); list.concat(Taicpu.op_const_reg(A_SUB,S_L,localsize mod winstackpagesize,rsp));
end end
@ -1910,7 +1911,10 @@ unit cgx86;
end. end.
{ {
$Log$ $Log$
Revision 1.29 2003-01-13 14:54:34 daniel Revision 1.30 2003-01-13 23:00:18 daniel
* Fixed internalerror
Revision 1.29 2003/01/13 14:54:34 daniel
* Further work to convert codegenerator register convention; * Further work to convert codegenerator register convention;
internalerror bug fixed. internalerror bug fixed.