>From 8a1a9c0d4d18cbad73664846f73123510eac9fb8 Mon Sep 17 00:00:00 2001 From: Gwenael Casaccio Date: Thu, 6 Jun 2013 11:37:28 +0200 Subject: [PATCH] Removes old IBM code --- ChangeLog | 6 +++ kernel/Behavior.st | 14 ------- kernel/Class.st | 113 -------------------------------------------------- kernel/UndefObject.st | 106 ---------------------------------------------- 4 files changed, 6 insertions(+), 233 deletions(-) diff --git a/ChangeLog b/ChangeLog index a649b8e..f38bfcf 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,11 @@ 2013-06-06 Gwenael Casaccio + * kernel/Behavior.st: Remove useless IBM code. + * kernel/Class.st: Remove useless IBM code. + * kernel/UndefObject.st: Remove useless IBM code. + +2013-06-06 Gwenael Casaccio + * kernel/ContextPart.st: Remove useless optimizations. 2013-05-18 Holger Hans Peter Freyther diff --git a/kernel/Behavior.st b/kernel/Behavior.st index 415e62c..18e38c4 100644 --- a/kernel/Behavior.st +++ b/kernel/Behavior.st @@ -1248,20 +1248,6 @@ method dictionary, and iterating over the class hierarchy.'> ^self methodsFor: category ] - privateMethods [ - "Don't use this, it's only present to file in from IBM Smalltalk" - - - ^self methodsFor: 'private' - ] - - publicMethods [ - "Don't use this, it's only present to file in from IBM Smalltalk" - - - ^self methodsFor: 'public' - ] - article [ "Answer an article (`a' or `an') which is ok for the receiver's name" diff --git a/kernel/Class.st b/kernel/Class.st index b2819c2..d1674bf 100644 --- a/kernel/Class.st +++ b/kernel/Class.st @@ -290,119 +290,6 @@ the class category.'> ^self == aClass ] - categoriesFor: method are: categories [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - self >> method methodCategory: (categories at: 1) - ] - - subclass: classNameString instanceVariableNames: stringInstVarNames classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^self - subclass: classNameString - instanceVariableNames: stringInstVarNames - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category' - ] - - subclass: classNameString classInstanceVariableNames: stringClassInstVarNames instanceVariableNames: stringInstVarNames classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^(self - subclass: classNameString - instanceVariableNames: stringInstVarNames - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category') - classInstanceVariableNames: stringClassInstVarNames; - yourself - ] - - variableSubclass: classNameString instanceVariableNames: stringInstVarNames classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^self - variableSubclass: classNameString - instanceVariableNames: stringInstVarNames - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category' - ] - - variableSubclass: classNameString classInstanceVariableNames: stringClassInstVarNames instanceVariableNames: stringInstVarNames classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^(self - variableSubclass: classNameString - instanceVariableNames: stringInstVarNames - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category') - classInstanceVariableNames: stringClassInstVarNames; - yourself - ] - - variableByteSubclass: classNameString classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^self - variableByteSubclass: classNameString - instanceVariableNames: '' - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category' - ] - - variableByteSubclass: classNameString classInstanceVariableNames: stringClassInstVarNames classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^(self - variableByteSubclass: classNameString - instanceVariableNames: '' - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category') - classInstanceVariableNames: stringClassInstVarNames; - yourself - ] - - variableLongSubclass: classNameString classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^self - variable: #uint - subclass: classNameString - instanceVariableNames: '' - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category' - ] - - variableLongSubclass: classNameString classInstanceVariableNames: stringClassInstVarNames classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^(self - variable: #uint - subclass: classNameString - instanceVariableNames: '' - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category') - classInstanceVariableNames: stringClassInstVarNames; - yourself - ] - extend [ "Redefine a version of the receiver in the current namespace. Note: this method can bite you in various ways when sent to system classes; diff --git a/kernel/UndefObject.st b/kernel/UndefObject.st index cf740c1..dedfd04 100644 --- a/kernel/UndefObject.st +++ b/kernel/UndefObject.st @@ -195,112 +195,6 @@ instance, which is the object "nil".'> self printOn: aStream ] - subclass: classNameString instanceVariableNames: stringInstVarNames classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^self - subclass: classNameString - instanceVariableNames: stringInstVarNames - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category' - ] - - subclass: classNameString classInstanceVariableNames: stringClassInstVarNames instanceVariableNames: stringInstVarNames classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^(self - subclass: classNameString - instanceVariableNames: stringInstVarNames - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category') - classInstanceVariableNames: stringClassInstVarNames; - yourself - ] - - variableSubclass: classNameString instanceVariableNames: stringInstVarNames classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^self - variableSubclass: classNameString - instanceVariableNames: stringInstVarNames - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category' - ] - - variableSubclass: classNameString classInstanceVariableNames: stringClassInstVarNames instanceVariableNames: stringInstVarNames classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^(self - variableSubclass: classNameString - instanceVariableNames: stringInstVarNames - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category') - classInstanceVariableNames: stringClassInstVarNames; - yourself - ] - - variableByteSubclass: classNameString instanceVariableNames: stringInstVarNames classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^self - variableByteSubclass: classNameString - instanceVariableNames: stringInstVarNames - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category' - ] - - variableByteSubclass: classNameString classInstanceVariableNames: stringClassInstVarNames instanceVariableNames: stringInstVarNames classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^(self - variableByteSubclass: classNameString - instanceVariableNames: stringInstVarNames - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category') - classInstanceVariableNames: stringClassInstVarNames; - yourself - ] - - variableLongSubclass: classNameString instanceVariableNames: stringInstVarNames classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^self - variable: #uint - subclass: classNameString - instanceVariableNames: stringInstVarNames - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category' - ] - - variableLongSubclass: classNameString classInstanceVariableNames: stringClassInstVarNames instanceVariableNames: stringInstVarNames classVariableNames: stringOfClassVarNames poolDictionaries: stringOfPoolNames [ - "Don't use this, it is only present to file in from IBM Smalltalk" - - - ^(self - variable: #uint - subclass: classNameString - instanceVariableNames: stringInstVarNames - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category') - classInstanceVariableNames: stringClassInstVarNames; - yourself - ] - instSize [ ^0 -- 1.8.1.2