Override #new in classes that implement #initialize.
authorJan Vrany <jan.vrany@fit.cvut.cz>
Sun, 26 Oct 2014 22:00:05 +0000
changeset 393 00381102a9b5
parent 392 9b297f0d949c
child 394 ba6a64ffe00d
Override #new in classes that implement #initialize. Not all Smalltalks call #initialize automatically. Actually, mose of them does not.
compiler/PPCAbstractPredicateNode.st
compiler/PPCCompiler.st
compiler/PPCMethod.st
compiler/PPCTokenNode.st
compiler/PPCTrimmingTokenNode.st
compiler/PetitBenchmark.st
compiler/compiler.rc
compiler/tests/PPCMockCompiler.st
compiler/tests/tests.rc
--- 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