--- 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 $'
! !
+