Hi, that patch removes useless code.
Cheers, Gwen
>From 4e074f382e7477c4e54ef50203f47af9a291f151 Mon Sep 17 00:00:00 2001 From: Gwenael Casaccio <[email protected]> Date: Thu, 6 Jun 2013 11:27:19 +0200 Subject: [PATCH] Remove useless optimizations --- ChangeLog | 4 ++++ kernel/ContextPart.st | 12 +++--------- 2 files changed, 7 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8bc8710..a649b8e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2013-06-06 Gwenael Casaccio <[email protected]> + + * kernel/ContextPart.st: Remove useless optimizations. + 2013-05-18 Holger Hans Peter Freyther <[email protected]> * gst-tool.c: Add --no-line-numbers to the gst-remote command. diff --git a/kernel/ContextPart.st b/kernel/ContextPart.st index e57cec3..775a03a 100644 --- a/kernel/ContextPart.st +++ b/kernel/ContextPart.st @@ -260,10 +260,8 @@ methods that can be used in inspection or debugging.'> ip [ "Answer the current instruction pointer into the receiver" - "This funny implementation thwarts the interpreter's optimizing effort" - <category: 'accessing'> - ^ip yourself + ^ip ] ip: newIP [ @@ -313,10 +311,8 @@ methods that can be used in inspection or debugging.'> sp [ "Answer the current stack pointer into the receiver" - "This funny implementation thwarts the interpreter's optimizing effort" - <category: 'accessing'> - ^sp yourself + ^sp ] validSize [ @@ -391,10 +387,8 @@ methods that can be used in inspection or debugging.'> receiver [ "Return the receiver (self) for the method being executed" - "This funny implementation thwarts the interpreter's optimizing effort" - <category: 'accessing'> - ^receiver yourself + ^receiver ] selector [ -- 1.8.1.2
>From 8a1a9c0d4d18cbad73664846f73123510eac9fb8 Mon Sep 17 00:00:00 2001 From: Gwenael Casaccio <[email protected]> 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 <[email protected]> + * 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 <[email protected]> + * kernel/ContextPart.st: Remove useless optimizations. 2013-05-18 Holger Hans Peter Freyther <[email protected]> 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" - - <category: 'compilation (alternative)'> - ^self methodsFor: 'private' - ] - - publicMethods [ - "Don't use this, it's only present to file in from IBM Smalltalk" - - <category: 'compilation (alternative)'> - ^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" - - <category: 'instance creation - alternative'> - 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" - - <category: 'instance creation - alternative'> - ^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" - - <category: 'instance creation - alternative'> - ^(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" - - <category: 'instance creation - alternative'> - ^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" - - <category: 'instance creation - alternative'> - ^(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" - - <category: 'instance creation - alternative'> - ^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" - - <category: 'instance creation - alternative'> - ^(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" - - <category: 'instance creation - alternative'> - ^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" - - <category: 'instance creation - alternative'> - ^(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" - - <category: 'class creation - alternative'> - ^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" - - <category: 'class creation - alternative'> - ^(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" - - <category: 'class creation - alternative'> - ^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" - - <category: 'class creation - alternative'> - ^(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" - - <category: 'class creation - alternative'> - ^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" - - <category: 'class creation - alternative'> - ^(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" - - <category: 'class creation - alternative'> - ^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" - - <category: 'class creation - alternative'> - ^(self - variable: #uint - subclass: classNameString - instanceVariableNames: stringInstVarNames - classVariableNames: stringOfClassVarNames - poolDictionaries: stringOfPoolNames - category: 'no category') - classInstanceVariableNames: stringClassInstVarNames; - yourself - ] - instSize [ <category: 'class polymorphism'> ^0 -- 1.8.1.2
_______________________________________________ help-smalltalk mailing list [email protected] https://lists.gnu.org/mailman/listinfo/help-smalltalk
