Portability fix PPCAbstractCharacterNode>>body: use #storeString instead of #printString.
--- a/compiler/PPCAbstractCharacterNode.st Sun Oct 26 22:49:03 2014 +0000
+++ b/compiler/PPCAbstractCharacterNode.st Thu Oct 30 11:35:27 2014 +0000
@@ -7,6 +7,7 @@
category:'PetitCompiler-Nodes'
!
+
!PPCAbstractCharacterNode methodsFor:'accessing'!
acceptsEpsilon
@@ -34,20 +35,22 @@
!PPCAbstractCharacterNode methodsFor:'compiling'!
body: compiler
- | id |
+ | id |
- character ppcPrintable ifTrue: [
- id := character printString
- ] ifFalse: [
- id := compiler idFor: character prefixed: #char.
- compiler addConstant: (Character value: character asInteger) as: id .
- ].
+ character ppcPrintable ifTrue: [
+ id := character storeString.
+ ] ifFalse: [
+ id := compiler idFor: character prefixed: #char.
+ compiler addConstant: (Character value: character asInteger) as: id .
+ ].
- compiler add: '(context peek == ', id, ')'.
- compiler indent.
- compiler add: 'ifFalse: [ self error: ''', character asInteger asString, ' expected'' at: context position ] '.
- compiler add: 'ifTrue: [ context next ].'.
- compiler dedent.
+ compiler add: '(context peek == ', id, ')'.
+ compiler indent.
+ compiler add: 'ifFalse: [ self error: ''', character asInteger asString, ' expected'' at: context position ] '.
+ compiler add: 'ifTrue: [ context next ].'.
+ compiler dedent.
+
+ "Modified: / 30-10-2014 / 10:59:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
compileWith: compiler effect: effect id: id
@@ -62,3 +65,10 @@
^ compiler stopMethod.
! !
+!PPCAbstractCharacterNode class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+