Fixed PPCNode>>doOptmizationLoop:status:
Must report status to changeStatus as caller is checking its value.
Also, added PPCOptimizationResult class>>new as Smaltalk/X (actually, most Smalltalks)
does not call #initialize by default.
--- a/compiler/PPCAbstractActionNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCAbstractActionNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCAbstractActionNode comment:''
-!
-
!PPCAbstractActionNode methodsFor:'accessing'!
block
--- a/compiler/PPCAbstractCharacterNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCAbstractCharacterNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCAbstractCharacterNode comment:''
-!
-
!PPCAbstractCharacterNode methodsFor:'accessing'!
acceptsEpsilon
--- a/compiler/PPCAbstractLiteralNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCAbstractLiteralNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCAbstractLiteralNode comment:''
-!
-
!PPCAbstractLiteralNode methodsFor:'accessing'!
acceptsEpsilon
--- a/compiler/PPCAbstractPredicateNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCAbstractPredicateNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCAbstractPredicateNode comment:''
-!
-
!PPCAbstractPredicateNode methodsFor:'accessing'!
methodStrategy
--- a/compiler/PPCActionNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCActionNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCActionNode comment:''
-!
-
!PPCActionNode methodsFor:'as yet unclassified'!
compileWith: compiler effect: effect id: id
--- a/compiler/PPCAndNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCAndNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCAndNode comment:''
-!
-
!PPCAndNode methodsFor:'as yet unclassified'!
compileWith: compiler effect: effect id: id
--- a/compiler/PPCAnyNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCAnyNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCAnyNode comment:''
-!
-
!PPCAnyNode methodsFor:'as yet unclassified'!
acceptsEpsilon
--- a/compiler/PPCBridge.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCBridge.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Core'
!
-PPCBridge comment:''
-!
-
!PPCBridge class methodsFor:'as yet unclassified'!
on: aSymbol
--- a/compiler/PPCCharSetPredicateNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCCharSetPredicateNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCCharSetPredicateNode comment:''
-!
-
!PPCCharSetPredicateNode methodsFor:'as yet unclassified'!
asInlined
--- a/compiler/PPCCharacterNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCCharacterNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCCharacterNode comment:''
-!
-
!PPCCharacterNode methodsFor:'as yet unclassified'!
start: compiler id: id
--- a/compiler/PPCChoiceNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCChoiceNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCChoiceNode comment:''
-!
-
!PPCChoiceNode methodsFor:'as yet unclassified'!
acceptsEpsilon
--- a/compiler/PPCCompiledMethod.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCCompiledMethod.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Core'
!
-PPCCompiledMethod comment:''
-!
-
!PPCCompiledMethod methodsFor:'as yet unclassified'!
call
--- a/compiler/PPCCompiler.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCCompiler.st Sun Oct 26 01:28:07 2014 +0000
@@ -8,9 +8,6 @@
category:'PetitCompiler-Core'
!
-PPCCompiler comment:''
-!
-
!PPCCompiler methodsFor:'accessing'!
fastMode
--- a/compiler/PPCContext.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCContext.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Context'
!
-PPCContext comment:''
-!
-
!PPCContext class methodsFor:'as yet unclassified'!
new
--- a/compiler/PPCContextMemento.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCContextMemento.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Context'
!
-PPCContextMemento comment:''
-!
-
!PPCContextMemento methodsFor:'accessing'!
position
--- a/compiler/PPCDelegateNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCDelegateNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCDelegateNode comment:''
-!
-
!PPCDelegateNode methodsFor:'accessing'!
--- a/compiler/PPCForwardNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCForwardNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCForwardNode comment:''
-!
-
!PPCForwardNode methodsFor:'compiling'!
check
--- a/compiler/PPCGuard.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCGuard.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Core'
!
-PPCGuard comment:''
-!
-
!PPCGuard class methodsFor:'as yet unclassified'!
on: aPPCNode
--- a/compiler/PPCInlineAnyNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCInlineAnyNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCInlineAnyNode comment:''
-!
-
!PPCInlineAnyNode methodsFor:'as yet unclassified'!
asInlined
--- a/compiler/PPCInlineCharSetPredicateNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCInlineCharSetPredicateNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCInlineCharSetPredicateNode comment:''
-!
-
!PPCInlineCharSetPredicateNode methodsFor:'as yet unclassified'!
asInlined
--- a/compiler/PPCInlineCharacterNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCInlineCharacterNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCInlineCharacterNode comment:''
-!
-
!PPCInlineCharacterNode methodsFor:'as yet unclassified'!
printOn: aStream
--- a/compiler/PPCInlineLiteralNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCInlineLiteralNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCInlineLiteralNode comment:''
-!
-
!PPCInlineLiteralNode methodsFor:'compiling'!
compileWith: compiler effect: effect id: id
--- a/compiler/PPCInlineMessagePredicateNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCInlineMessagePredicateNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCInlineMessagePredicateNode comment:''
-!
-
!PPCInlineMessagePredicateNode methodsFor:'as yet unclassified'!
asInlined
--- a/compiler/PPCInlineNilNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCInlineNilNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCInlineNilNode comment:''
-!
-
!PPCInlineNilNode methodsFor:'as yet unclassified'!
asInlined
--- a/compiler/PPCInlineNotCharSetPredicateNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCInlineNotCharSetPredicateNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCInlineNotCharSetPredicateNode comment:''
-!
-
!PPCInlineNotCharSetPredicateNode methodsFor:'as yet unclassified'!
asInlined
--- a/compiler/PPCInlineNotLiteralNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCInlineNotLiteralNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCInlineNotLiteralNode comment:''
-!
-
!PPCInlineNotLiteralNode methodsFor:'accessing'!
literal
--- a/compiler/PPCInlineNotMessagePredicateNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCInlineNotMessagePredicateNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCInlineNotMessagePredicateNode comment:''
-!
-
!PPCInlineNotMessagePredicateNode methodsFor:'as yet unclassified'!
asInlined
--- a/compiler/PPCInlinePluggableNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCInlinePluggableNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCInlinePluggableNode comment:''
-!
-
!PPCInlinePluggableNode methodsFor:'as yet unclassified'!
asInlined
--- a/compiler/PPCInlineStrategy.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCInlineStrategy.st Sun Oct 26 01:28:07 2014 +0000
@@ -14,9 +14,6 @@
"
!
-PPCInlineStrategy comment:''
-!
-
!PPCInlineStrategy class methodsFor:'as yet unclassified'!
instance
--- a/compiler/PPCInlinedMethod.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCInlinedMethod.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Core'
!
-PPCInlinedMethod comment:''
-!
-
!PPCInlinedMethod methodsFor:'as yet unclassified'!
call
--- a/compiler/PPCListNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCListNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCListNode comment:''
-!
-
!PPCListNode methodsFor:'accessing'!
children
--- a/compiler/PPCLiteralNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCLiteralNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCLiteralNode comment:''
-!
-
!PPCLiteralNode methodsFor:'compiling'!
compileWith: compiler effect: effect id: id
--- a/compiler/PPCMessagePredicateNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCMessagePredicateNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCMessagePredicateNode comment:''
-!
-
!PPCMessagePredicateNode methodsFor:'accessing'!
asInlined
--- a/compiler/PPCMethod.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCMethod.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Core'
!
-PPCMethod comment:''
-!
-
!PPCMethod methodsFor:'as yet unclassified'!
add: string
--- a/compiler/PPCMethodStrategy.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCMethodStrategy.st Sun Oct 26 01:28:07 2014 +0000
@@ -14,9 +14,6 @@
"
!
-PPCMethodStrategy comment:''
-!
-
!PPCMethodStrategy class methodsFor:'as yet unclassified'!
instance
--- a/compiler/PPCNegateNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCNegateNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCNegateNode comment:''
-!
-
!PPCNegateNode methodsFor:'as yet unclassified'!
compileWith: compiler effect: effect id: id
--- a/compiler/PPCNilNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCNilNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCNilNode comment:''
-!
-
!PPCNilNode methodsFor:'as yet unclassified'!
acceptsEpsilon
--- a/compiler/PPCNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCNode comment:''
-!
-
!PPCNode methodsFor:'accessing'!
children
@@ -189,27 +186,30 @@
!
doOptimizationLoop: params status: changeStatus
- | mapping optimized root |
- mapping := IdentityDictionary new.
- self allNodes do: [ :node |
- optimized := (node optimize: params status: changeStatus).
- (optimized ~= node) ifTrue: [
- mapping at: node put: optimized.
- ].
- ].
-
- root := mapping at: self ifAbsent: [ self ].
- [ | changed |
- changed := false.
- root allNodes do: [ :node |
- node children do: [ :child |
- mapping at: child ifPresent: [:newChild |
- node replace: child with: newChild.
- changed := true ]
- ]].
- changed
- ] whileTrue.
- ^ root
+ | mapping optimized root |
+ mapping := IdentityDictionary new.
+ self allNodes do: [ :node |
+ optimized := (node optimize: params status: changeStatus).
+ (optimized ~= node) ifTrue: [
+ mapping at: node put: optimized.
+ ].
+ ].
+
+ root := mapping at: self ifAbsent: [ self ].
+ [ | changed |
+ changed := false.
+ root allNodes do: [ :node |
+ node children do: [ :child |
+ mapping at: child ifPresent: [:newChild |
+ node replace: child with: newChild.
+ changed := true.
+ changeStatus change]
+ ]].
+ changed
+ ] whileTrue.
+ ^ root
+
+ "Modified: / 26-10-2014 / 01:14:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
inline: changeStatus
--- a/compiler/PPCNotCharSetPredicateNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCNotCharSetPredicateNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCNotCharSetPredicateNode comment:''
-!
-
!PPCNotCharSetPredicateNode methodsFor:'as yet unclassified'!
asInlined
--- a/compiler/PPCNotLiteralNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCNotLiteralNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCNotLiteralNode comment:''
-!
-
!PPCNotLiteralNode methodsFor:'accessing'!
asInlined
--- a/compiler/PPCNotMessagePredicateNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCNotMessagePredicateNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCNotMessagePredicateNode comment:''
-!
-
!PPCNotMessagePredicateNode methodsFor:'accessing'!
asInlined
--- a/compiler/PPCNotNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCNotNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCNotNode comment:''
-!
-
!PPCNotNode methodsFor:'accessing'!
prefix
--- a/compiler/PPCOptimizationResult.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCOptimizationResult.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,8 +7,13 @@
category:'PetitCompiler-Nodes'
!
-PPCOptimizationResult comment:''
-!
+!PPCOptimizationResult class methodsFor:'instance creation'!
+
+new
+ "return an initialized instance"
+
+ ^ self basicNew initialize.
+! !
!PPCOptimizationResult class methodsFor:'as yet unclassified'!
@@ -21,8 +26,9 @@
!PPCOptimizationResult methodsFor:'accessing'!
change
- Halt ifShiftPressed.
- change := true.
+ change := true.
+
+ "Modified: / 26-10-2014 / 01:14:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
isChange
--- a/compiler/PPCOptionalNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCOptionalNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCOptionalNode comment:''
-!
-
!PPCOptionalNode methodsFor:'as yet unclassified'!
acceptsEpsilon
--- a/compiler/PPCPluggableNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCPluggableNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCPluggableNode comment:''
-!
-
!PPCPluggableNode methodsFor:'accessing'!
block
--- a/compiler/PPCPlusNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCPlusNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCPlusNode comment:''
-!
-
!PPCPlusNode methodsFor:'as yet unclassified'!
compileWith: compiler effect: effect id: id
--- a/compiler/PPCPredicateNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCPredicateNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCPredicateNode comment:''
-!
-
!PPCPredicateNode methodsFor:'as yet unclassified'!
bodyOfPredicate: compiler
--- a/compiler/PPCProfilingContext.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCProfilingContext.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Context'
!
-PPCProfilingContext comment:''
-!
-
!PPCProfilingContext methodsFor:'gt'!
gtReport: composite
--- a/compiler/PPCSequenceNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCSequenceNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCSequenceNode comment:''
-!
-
!PPCSequenceNode methodsFor:'accessing'!
prefix
--- a/compiler/PPCStarAnyNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCStarAnyNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCStarAnyNode comment:''
-!
-
!PPCStarAnyNode methodsFor:'as yet unclassified'!
acceptsEpsilon
--- a/compiler/PPCStarCharSetPredicateNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCStarCharSetPredicateNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCStarCharSetPredicateNode comment:''
-!
-
!PPCStarCharSetPredicateNode methodsFor:'accessing'!
acceptsEpsilon
--- a/compiler/PPCStarMessagePredicateNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCStarMessagePredicateNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCStarMessagePredicateNode comment:''
-!
-
!PPCStarMessagePredicateNode methodsFor:'accessing'!
acceptsEpsilon
--- a/compiler/PPCStarNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCStarNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCStarNode comment:''
-!
-
!PPCStarNode methodsFor:'accessing'!
acceptsEpsilon
--- a/compiler/PPCSymbolActionNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCSymbolActionNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCSymbolActionNode comment:''
-!
-
!PPCSymbolActionNode methodsFor:'as yet unclassified'!
compileWith: compiler effect: effect id: id
--- a/compiler/PPCTokenNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCTokenNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCTokenNode comment:''
-!
-
!PPCTokenNode methodsFor:'accessing'!
initialize
--- a/compiler/PPCTokenSequenceNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCTokenSequenceNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,8 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCTokenSequenceNode comment:''
-!
!PPCTokenSequenceNode methodsFor:'as yet unclassified'!
@@ -39,3 +37,10 @@
^ #'_fast'
! !
+!PPCTokenSequenceNode class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+
--- a/compiler/PPCTokenStarMessagePredicateNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCTokenStarMessagePredicateNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCTokenStarMessagePredicateNode comment:''
-!
-
!PPCTokenStarMessagePredicateNode methodsFor:'as yet unclassified'!
asFast
--- a/compiler/PPCTrimNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCTrimNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCTrimNode comment:''
-!
-
!PPCTrimNode methodsFor:'accessing'!
prefix
--- a/compiler/PPCTrimmingTokenNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCTrimmingTokenNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCTrimmingTokenNode comment:''
-!
-
!PPCTrimmingTokenNode methodsFor:'accessing'!
child
--- a/compiler/PPCUnknownNode.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCUnknownNode.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Nodes'
!
-PPCUnknownNode comment:''
-!
-
!PPCUnknownNode methodsFor:'accessing'!
acceptsEpsilon
--- a/compiler/PPCompiledParser.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PPCompiledParser.st Sun Oct 26 01:28:07 2014 +0000
@@ -14,9 +14,6 @@
"
!
-PPCompiledParser comment:''
-!
-
!PPCompiledParser class methodsFor:'as yet unclassified'!
addConstant: value as: id
--- a/compiler/PetitBenchmark.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PetitBenchmark.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Benchmarks'
!
-PetitBenchmark comment:''
-!
-
!PetitBenchmark methodsFor:'benchmark support'!
createContext
--- a/compiler/PetitBenchmarkSources.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/PetitBenchmarkSources.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Benchmarks'
!
-PetitBenchmarkSources comment:''
-!
-
!PetitBenchmarkSources methodsFor:'as yet unclassified'!
javaLangClass
--- a/compiler/compiler.rc Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/compiler.rc Sun Oct 26 01:28:07 2014 +0000
@@ -25,7 +25,7 @@
VALUE "LegalCopyright", "Copyright Claus Gittinger 1988-2014\nCopyright eXept Software AG 1998-2014\0"
VALUE "ProductName", "Smalltalk/X\0"
VALUE "ProductVersion", "6.2.4.0\0"
- VALUE "ProductDate", "Sun, 26 Oct 2014 00:47:32 GMT\0"
+ VALUE "ProductDate", "Sun, 26 Oct 2014 01:18:18 GMT\0"
END
END
--- a/compiler/stx_goodies_petitparser_compiler.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/stx_goodies_petitparser_compiler.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,6 +7,12 @@
category:'* Projects & Packages *'
!
+!stx_goodies_petitparser_compiler class methodsFor:'documentation'!
+
+extensionsVersion_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
!stx_goodies_petitparser_compiler class methodsFor:'accessing - monticello'!
--- a/compiler/tests/PPCContextMementoTest.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/tests/PPCContextMementoTest.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Tests-Context'
!
-PPCContextMementoTest comment:''
-!
-
!PPCContextMementoTest methodsFor:'as yet unclassified'!
memento
--- a/compiler/tests/PPCContextTest.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/tests/PPCContextTest.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Tests-Context'
!
-PPCContextTest comment:''
-!
-
!PPCContextTest methodsFor:'as yet unclassified'!
context
--- a/compiler/tests/PPCGuardTest.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/tests/PPCGuardTest.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Tests-Core'
!
-PPCGuardTest comment:''
-!
-
!PPCGuardTest methodsFor:'as yet unclassified'!
setUp
--- a/compiler/tests/PPCMockCompiler.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/tests/PPCMockCompiler.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Tests-Core'
!
-PPCMockCompiler comment:''
-!
-
!PPCMockCompiler methodsFor:'accessing'!
lines
--- a/compiler/tests/PPCNodeTest.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/tests/PPCNodeTest.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Tests-Nodes'
!
-PPCNodeTest comment:''
-!
-
!PPCNodeTest methodsFor:'as yet unclassified'!
testCopy
--- a/compiler/tests/PPCOptimizingTest.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/tests/PPCOptimizingTest.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Tests-Nodes'
!
-PPCOptimizingTest comment:''
-!
-
!PPCOptimizingTest methodsFor:'test support'!
assert: object type: class
--- a/compiler/tests/PPCompiledSmalltalkGrammarResource.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/tests/PPCompiledSmalltalkGrammarResource.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,9 +7,6 @@
category:'PetitCompiler-Tests-Smalltalk'
!
-PPCompiledSmalltalkGrammarResource comment:''
-!
-
!PPCompiledSmalltalkGrammarResource methodsFor:'as yet unclassified'!
setUp
--- a/compiler/tests/PetitCompilerTest.st Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/tests/PetitCompilerTest.st Sun Oct 26 01:28:07 2014 +0000
@@ -7,6 +7,7 @@
category:'PetitCompiler-Tests-Core'
!
+
!PetitCompilerTest methodsFor:'context'!
context
@@ -629,3 +630,10 @@
equals: (compiledParser parse: source withContext: self context).
! !
+!PetitCompilerTest class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+
--- a/compiler/tests/tests.rc Sun Oct 26 01:03:31 2014 +0000
+++ b/compiler/tests/tests.rc Sun Oct 26 01:28:07 2014 +0000
@@ -25,7 +25,7 @@
VALUE "LegalCopyright", "Copyright Claus Gittinger 1988-2014\nCopyright eXept Software AG 1998-2014\0"
VALUE "ProductName", "Smalltalk/X\0"
VALUE "ProductVersion", "6.2.4.0\0"
- VALUE "ProductDate", "Sun, 26 Oct 2014 01:03:12 GMT\0"
+ VALUE "ProductDate", "Sun, 26 Oct 2014 01:18:20 GMT\0"
END
END