ProjectChecker.st
changeset 3570 52c403d0b881
parent 3563 1590b29dbdef
child 3589 ec7033799261
--- a/ProjectChecker.st	Thu May 29 18:05:37 2014 +0200
+++ b/ProjectChecker.st	Thu May 29 18:16:59 2014 +0200
@@ -515,6 +515,10 @@
         ^ self
     ].
 
+    "/ Speed optimization: do not check method if it was compiled by 
+    "/ stc and hasn't been changed since then.
+    method byteCode isNil ifTrue:[ ^ self ].
+
     issue1 := ProjectProblem newMethodCompilabilityIssue1.
     issue1 method: method.
     self checkMethodSTCCompilability1: method into: issue1.
@@ -530,7 +534,7 @@
     ]
 
     "Created: / 11-04-2012 / 12:37:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 29-05-2014 / 16:54:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 29-05-2014 / 16:54:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 checkMethodSourceCode: method
@@ -692,14 +696,14 @@
 !ProjectChecker class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.22 2014-05-29 16:04:30 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.23 2014-05-29 16:16:59 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.22 2014-05-29 16:04:30 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.23 2014-05-29 16:16:59 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: ProjectChecker.st,v 1.22 2014-05-29 16:04:30 vrany Exp $'
+    ^ '$Id: ProjectChecker.st,v 1.23 2014-05-29 16:16:59 vrany Exp $'
 ! !