Portability: do not use Transcript>>crShow:
...use Transcript show: '...'; cr. which is more portable.
--- a/compiler/PPCCompiler.st Fri May 01 14:04:37 2015 +0200
+++ b/compiler/PPCCompiler.st Sat May 02 06:29:04 2015 +0200
@@ -345,12 +345,12 @@
!
stopMethod
- self cache: currentMethod methodName as: currentMethod.
-
- arguments profile ifTrue: [ Transcript crShow: currentMethod code ].
- ^ self pop.
+ self cache: currentMethod methodName as: currentMethod.
+
+ arguments profile ifTrue: [ Transcript show: currentMethod code; cr. ].
+ ^ self pop.
- "Modified: / 23-04-2015 / 18:36:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 01-05-2015 / 14:18:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
top
--- a/compiler/tests/PPCompiledExpressionGrammarResource.st Fri May 01 14:04:37 2015 +0200
+++ b/compiler/tests/PPCompiledExpressionGrammarResource.st Sat May 02 06:29:04 2015 +0200
@@ -9,14 +9,23 @@
category:'PetitCompiler-Tests-ExpressionGrammar'
!
+
!PPCompiledExpressionGrammarResource methodsFor:'as yet unclassified'!
setUp
- | time |
- time := Time millisecondsToRun: [
- PPExpressionGrammar new compileAs: #PPCompiledExpressionGrammar
- ].
- Transcript crShow: 'Exprssion grammar compiled in: ', time asString, 'ms'.
-
+ | time |
+ time := Time millisecondsToRun: [
+ PPExpressionGrammar new compileAs: #PPCompiledExpressionGrammar
+ ].
+ Transcript show: 'Exprssion grammar compiled in: '; show: time asString; show: 'ms'; cr.
+
+ "Modified: / 01-05-2015 / 14:40:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!PPCompiledExpressionGrammarResource class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+
--- a/compiler/tests/PPCompiledJavaResource.st Fri May 01 14:04:37 2015 +0200
+++ b/compiler/tests/PPCompiledJavaResource.st Sat May 02 06:29:04 2015 +0200
@@ -16,6 +16,6 @@
time := Time millisecondsToRun: [
PPJavaSyntax new compileAs: #PPCompiledJavaSyntax.
].
- Transcript crShow: 'Grammar compiled in: ', time asString, 'ms'.
+ Transcript show: 'Grammar compiled in: ', time asString, 'ms'; cr.
! !
--- a/compiler/tests/PPCompiledSmalltalkGrammarResource.st Fri May 01 14:04:37 2015 +0200
+++ b/compiler/tests/PPCompiledSmalltalkGrammarResource.st Sat May 02 06:29:04 2015 +0200
@@ -16,7 +16,7 @@
time := Time millisecondsToRun: [
PPSmalltalkGrammar new compileAs: #PPCompiledSmalltalkGrammar
].
- Transcript crShow: 'Smalltalk Grammar compiled in: ', time asString, 'ms'.
+ Transcript show: 'Smalltalk Grammar compiled in: ', time asString, 'ms'; cr.
! !