Portability: fixed RBLiteralValueNode>>isLiteralNumber to work under both - Pharo and Smalltalk/X
--- a/compiler/extensions.st Mon Aug 17 23:11:56 2015 +0100
+++ b/compiler/extensions.st Tue Aug 18 13:09:42 2015 +0100
@@ -863,14 +863,15 @@
!RBLiteralValueNode methodsFor:'*petitcompiler'!
isLiteralNumber
- ((Smalltalk respondsTo: #isSmalltalk/X) and: [Smalltalk isSmalltalkX]) ifTrue:[
- ^super isLiteralNumber
+ ((Smalltalk respondsTo: #isSmalltalkX) and: [Smalltalk isSmalltalkX]) ifTrue:[
+ ^super isLiteralNumber
] ifFalse:[
- "Assume Pharo..."
+ "Assume Pharo..."
[(NumberParser on: self sourceText ) nextNumber] on: Exception do: [ ^ false ].
^ true
].
-
+
+ "Modified: / 17-08-2015 / 23:17:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!RBProgramNode methodsFor:'*petitcompiler'!
--- a/compiler/tests/PEGFsaDeterminizationTest.st Mon Aug 17 23:11:56 2015 +0100
+++ b/compiler/tests/PEGFsaDeterminizationTest.st Tue Aug 18 13:09:42 2015 +0100
@@ -9,6 +9,7 @@
category:'PetitCompiler-Tests-FSA'
!
+
!PEGFsaDeterminizationTest methodsFor:'as yet unclassified'!
determinizator
@@ -115,3 +116,10 @@
self assert: (fsa finalStates anyOne retvals includes: #token2).
! !
+!PEGFsaDeterminizationTest class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+
--- a/compiler/tests/extras/PPCLRPCompiledParserSmokeTest_Tokenized.st Mon Aug 17 23:11:56 2015 +0100
+++ b/compiler/tests/extras/PPCLRPCompiledParserSmokeTest_Tokenized.st Tue Aug 18 13:09:42 2015 +0100
@@ -9,9 +9,17 @@
category:'PetitCompiler-Extras-Tests-LRP'
!
+
!PPCLRPCompiledParserSmokeTest_Tokenized methodsFor:'accessing'!
compilerConfiguration
^ PPCConfiguration tokenizing
! !
+!PPCLRPCompiledParserSmokeTest_Tokenized class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+