Bladeren bron

* fixed nil pointer access

Jonas Maebe 22 jaren geleden
bovenliggende
commit
3c5d94dc64
1 gewijzigde bestanden met toevoegingen van 6 en 2 verwijderingen
  1. 6 2
      compiler/i386/csopt386.pas

+ 6 - 2
compiler/i386/csopt386.pas

@@ -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