# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1354808920 0
# Node ID a35270f0fad86dc862a2034da61cbbd8994f9f4e
# Parent  5843e7139014552a777014aadb755cbc812bc309
ProjectChecker>>checkMethodSTCCompilability1:into: - performance optimization.

Do not check methods that were STC-compiled and never changed since then.

diff -r 5843e7139014 -r a35270f0fad8 ProjectChecker.st
--- a/ProjectChecker.st	Fri Nov 30 17:20:01 2012 +0000
+++ b/ProjectChecker.st	Thu Dec 06 15:48:40 2012 +0000
@@ -388,6 +388,11 @@
     lang := method programmingLanguage.
     lang isSmalltalk ifFalse:[ ^ self ].
 
+    "Do not check methods that were compiled but never changed.
+     Note, that for instvar change, all methods that use/used the
+     instvar are recompiled and this have bytecode"
+    method byteCode isNil ifTrue:[ ^ self ].
+
     lang compilerClass new
         compile:method source
         forClass:method mclass
@@ -400,6 +405,7 @@
         ifFail:[ ]
 
     "Created: / 11-04-2012 / 15:31:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 06-12-2012 / 15:46:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 checkMethodSTCCompilability2: method into: problem
@@ -568,9 +574,9 @@
 !ProjectChecker class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.12 2012/11/07 16:49:29 cg Exp $'
+    ^ '$Id: ProjectChecker.st 1982 2012-12-06 15:48:40Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: ProjectChecker.st 1981 2012-11-30 17:20:01Z vranyj1 $'
+    ^ '$Id: ProjectChecker.st 1982 2012-12-06 15:48:40Z vranyj1 $'
 ! !