Override #new in classes that implement #initialize.
Not all Smalltalks call #initialize automatically. Actually, mose of them does not.
--- a/compiler/PPCAbstractPredicateNode.st Sun Oct 26 01:28:07 2014 +0000
+++ b/compiler/PPCAbstractPredicateNode.st Sun Oct 26 22:00:05 2014 +0000
@@ -7,6 +7,14 @@
category:'PetitCompiler-Nodes'
!
+!PPCAbstractPredicateNode class methodsFor:'instance creation'!
+
+new
+ "return an initialized instance"
+
+ ^ self basicNew initialize.
+! !
+
!PPCAbstractPredicateNode methodsFor:'accessing'!
methodStrategy
--- a/compiler/PPCCompiler.st Sun Oct 26 01:28:07 2014 +0000
+++ b/compiler/PPCCompiler.st Sun Oct 26 22:00:05 2014 +0000
@@ -8,6 +8,14 @@
category:'PetitCompiler-Core'
!
+!PPCCompiler class methodsFor:'instance creation'!
+
+new
+ "return an initialized instance"
+
+ ^ self basicNew initialize.
+! !
+
!PPCCompiler methodsFor:'accessing'!
fastMode
--- a/compiler/PPCMethod.st Sun Oct 26 01:28:07 2014 +0000
+++ b/compiler/PPCMethod.st Sun Oct 26 22:00:05 2014 +0000
@@ -7,6 +7,14 @@
category:'PetitCompiler-Core'
!
+!PPCMethod class methodsFor:'instance creation'!
+
+new
+ "return an initialized instance"
+
+ ^ self basicNew initialize.
+! !
+
!PPCMethod methodsFor:'as yet unclassified'!
add: string
--- a/compiler/PPCTokenNode.st Sun Oct 26 01:28:07 2014 +0000
+++ b/compiler/PPCTokenNode.st Sun Oct 26 22:00:05 2014 +0000
@@ -7,6 +7,14 @@
category:'PetitCompiler-Nodes'
!
+!PPCTokenNode class methodsFor:'instance creation'!
+
+new
+ "return an initialized instance"
+
+ ^ self basicNew initialize.
+! !
+
!PPCTokenNode methodsFor:'accessing'!
initialize
--- a/compiler/PPCTrimmingTokenNode.st Sun Oct 26 01:28:07 2014 +0000
+++ b/compiler/PPCTrimmingTokenNode.st Sun Oct 26 22:00:05 2014 +0000
@@ -7,6 +7,14 @@
category:'PetitCompiler-Nodes'
!
+!PPCTrimmingTokenNode class methodsFor:'instance creation'!
+
+new
+ "return an initialized instance"
+
+ ^ self basicNew initialize.
+! !
+
!PPCTrimmingTokenNode methodsFor:'accessing'!
child
--- a/compiler/PetitBenchmark.st Sun Oct 26 01:28:07 2014 +0000
+++ b/compiler/PetitBenchmark.st Sun Oct 26 22:00:05 2014 +0000
@@ -7,6 +7,14 @@
category:'PetitCompiler-Benchmarks'
!
+!PetitBenchmark class methodsFor:'instance creation'!
+
+new
+ "return an initialized instance"
+
+ ^ self basicNew initialize.
+! !
+
!PetitBenchmark methodsFor:'benchmark support'!
createContext
--- a/compiler/compiler.rc Sun Oct 26 01:28:07 2014 +0000
+++ b/compiler/compiler.rc Sun Oct 26 22:00:05 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:18:18 GMT\0"
+ VALUE "ProductDate", "Sun, 26 Oct 2014 14:56:40 GMT\0"
END
END
--- a/compiler/tests/PPCMockCompiler.st Sun Oct 26 01:28:07 2014 +0000
+++ b/compiler/tests/PPCMockCompiler.st Sun Oct 26 22:00:05 2014 +0000
@@ -7,6 +7,15 @@
category:'PetitCompiler-Tests-Core'
!
+
+!PPCMockCompiler class methodsFor:'instance creation'!
+
+new
+ "return an initialized instance"
+
+ ^ self basicNew initialize.
+! !
+
!PPCMockCompiler methodsFor:'accessing'!
lines
@@ -34,3 +43,10 @@
lines := OrderedCollection new.
! !
+!PPCMockCompiler class methodsFor:'documentation'!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+! !
+
--- a/compiler/tests/tests.rc Sun Oct 26 01:28:07 2014 +0000
+++ b/compiler/tests/tests.rc Sun Oct 26 22:00:05 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:18:20 GMT\0"
+ VALUE "ProductDate", "Sun, 26 Oct 2014 14:56:41 GMT\0"
END
END