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

* fixed nil pointer access

Browse Source
This commit is contained in:
Jonas Maebe 2003-07-24 10:45:40 +00:00
parent 177d57f22c
commit 3c5d94dc64
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/i386/csopt386.pas
View File

@ -788,7 +788,8 @@ begin
until not getNextInstruction(p,p) or
(PTaiProp(p.optInfo)^.Regs[reg.enum].wState <> tmpState) or
(p.typ = ait_label);
if p.typ = ait_label then
if assigned(p) and
(p.typ = ait_label) then
clearRegContentsFrom(reg,p,p);
{$ifdef replaceregdebug}
if assigned(p) then
@ -1996,7 +1997,10 @@ End.
{
$Log$
Revision 1.48 2003-06-08 18:48:03 jonas
Revision 1.49 2003-07-24 10:45:40 jonas
* fixed nil pointer access
Revision 1.48 2003/06/08 18:48:03 jonas
* first small steps towards an oop optimizer
Revision 1.47 2003/06/03 21:09:05 peter