Tools__CompilerWarningToDoListEntry.st
changeset 15337 7fc9c63796a2
parent 8235 e9748aa06cf9
child 15338 e6efd621a4f3
--- a/Tools__CompilerWarningToDoListEntry.st	Fri Feb 20 13:44:44 2015 +0100
+++ b/Tools__CompilerWarningToDoListEntry.st	Fri Feb 20 14:11:23 2015 +0100
@@ -226,7 +226,7 @@
 !CompilerWarningToDoListEntry methodsFor:'validation'!
 
 checkByReparsing
-    |stillValid|
+    |stillValid cls mthd|
 
     Tools::ToDoNotification isNil ifTrue:[^ false].
 
@@ -235,9 +235,17 @@
         stillValid := (ex parameter sameAs:self).
         ex proceed.
     ] do:[
+        (cls := self problemClass) isNil ifTrue:[
+            "/ class is gone.
+            ^ false.
+        ].
+        (mthd := cls compiledMethodAt:selector) isNil ifTrue:[   
+            "/ mthod is gone
+            ^ false.
+        ].
         Compiler 
-            compile:(self problemClass compiledMethodAt:selector) source 
-            forClass:(self problemClass)
+            compile:mthd source 
+            forClass:cls
             install:false.
     ].
     ^ stillValid.
@@ -283,5 +291,6 @@
 !CompilerWarningToDoListEntry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.11 2008-08-20 19:41:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CompilerWarningToDoListEntry.st,v 1.12 2015-02-20 13:11:23 cg Exp $'
 ! !
+