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

* fix in -darithopt code (sometimes crashed on 8/16bit regs)

Browse Source
This commit is contained in:
Jonas Maebe 1999-08-05 15:01:52 +00:00
parent fdc1e9792c
commit 13bffb711a
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/daopt386.pas
View File

@ -802,6 +802,7 @@ Begin
new_one^.next := foll;
prev^.next := new_one;
foll^.previous := new_one;
Pai(new_one)^.fileinfo := Pai(foll)^.fileinfo;
End;
End
Else AsmL^.Concat(new_one)
@ -1640,6 +1641,7 @@ p: pai386; reg: TRegister);
var hp: pai;
{$endif statedebug}
Begin
Reg := Reg32(Reg);
With PPaiProp(p^.optinfo)^.Regs[reg] Do
If (Typ = Con_Ref)
Then
@ -2235,7 +2237,10 @@ End.
{
$Log$
Revision 1.53 1999-08-04 00:22:59 florian
Revision 1.54 1999-08-05 15:01:52 jonas
* fix in -darithopt code (sometimes crashed on 8/16bit regs)
Revision 1.53 1999/08/04 00:22:59 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.52 1999/08/02 14:35:21 jonas