Levente Uzonyi uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ul.171.mcz==================== Summary ====================
Name: Tests-ul.171
Author: ul
Time: 29 September 2012, 9:48:51.438 am
UUID: 647a45be-83ba-5d49-8ad6-198909ed5b70
Ancestors: Tests-dtl.170
Keep the timestamp of methods in PCCByCompilation>>privateDisableCallIn: and PCCByCompilation>>privateEnableCallIn:.
=============== Diff against Tests-dtl.170 ===============
Item was changed:
----- Method: PCCByCompilation>>privateDisableCallIn: (in category 'private user interface') -----
privateDisableCallIn: aMethodRef
"Disables enabled or failed external prim call by recompiling method
with prim call commented out, will be called by superclass."
| src newMethodSource |
"higher priority to avoid source file accessing errors"
src := [aMethodRef sourceString]
valueAt: self higherPriority.
newMethodSource := self enabled2DisabledPrimMethodString: src.
"higher priority to avoid source file accessing errors"
[aMethodRef actualClass
compile: newMethodSource
classified: (aMethodRef actualClass whichCategoryIncludesSelector: aMethodRef methodSymbol)
+ withStamp: aMethodRef timeStamp
notifying: nil]
valueAt: self higherPriority!
Item was changed:
----- Method: PCCByCompilation>>privateEnableCallIn: (in category 'private user interface') -----
privateEnableCallIn: aMethodRef
"Enables disabled external prim call by recompiling method with prim
call taken from disabling comment, will be called by superclass."
| src newMethodSource |
"higher priority to avoid source file accessing errors"
src := [aMethodRef sourceString]
valueAt: self higherPriority.
newMethodSource := self disabled2EnabledPrimMethodString: src.
"higher priority to avoid source file accessing errors"
[aMethodRef actualClass
compile: newMethodSource
classified: (aMethodRef actualClass whichCategoryIncludesSelector: aMethodRef methodSymbol)
+ withStamp: aMethodRef timeStamp
notifying: nil]
valueAt: self higherPriority!