diff --git a/kernel/CompildCode.st b/kernel/CompildCode.st
index 4dcca1b..ea96532 100644
--- a/kernel/CompildCode.st
+++ b/kernel/CompildCode.st
@@ -150,20 +150,10 @@ superclass for blocks and methods'>
self subclassResponsibility
]
- = aMethod [
- "Answer whether the receiver and aMethod are equal"
+ = anObject [
+ <category: 'testing'>
- <category: 'basic'>
- self == aMethod ifTrue: [^true].
- self class == aMethod class ifFalse: [^false].
- header = aMethod getHeader ifFalse: [^false].
- self numLiterals = aMethod numLiterals ifFalse: [^false].
- self numBytecodes = aMethod numBytecodes ifFalse: [^false].
- 1 to: self numLiterals
- do: [:i | (self literalAt: i) = (aMethod literalAt: i) ifFalse: [^false]].
- 1 to: self numBytecodes
- do: [:i | (self bytecodeAt: i) = (aMethod bytecodeAt: i) ifFalse: [^false]].
- ^true
+ ^ self == anObject
]
hash [
diff --git a/kernel/CompildMeth.st b/kernel/CompildMeth.st
index 72f10e4..250aa67 100644
--- a/kernel/CompildMeth.st
+++ b/kernel/CompildMeth.st
@@ -233,14 +233,6 @@ instances.'>
ifFalse: [descriptor sourcePos]
]
- = aMethod [
- "Answer whether the receiver and aMethod are equal"
-
- <category: 'basic'>
- self == aMethod ifTrue: [^true].
- ^super = aMethod and: [descriptor = aMethod descriptor]
- ]
-
hash [
"Answer an hash value for the receiver"
@@ -719,9 +711,9 @@ instances.'>
funcOrDescr isString ifFalse: [
self isValidCCall ifFalse: [^'C call-out not empty'].
newMethod := CompiledMethod
- cCall: funcOrDescr
- numArgs: self numArgs
- attributes: self attributes.
+ cCall: funcOrDescr
+ numArgs: self numArgs
+ attributes: self attributes.
newMethod descriptor: self descriptor.
self become: newMethod.
^nil].
diff --git a/kernel/CompiledBlk.st b/kernel/CompiledBlk.st
index 96a2b8d..73367cb 100644
--- a/kernel/CompiledBlk.st
+++ b/kernel/CompiledBlk.st
@@ -130,14 +130,6 @@ CompiledCode subclass: CompiledBlock [
^method methodSourcePos
]
- = aMethod [
- "Answer whether the receiver and aMethod are equal"
-
- <category: 'basic'>
- self == aMethod ifTrue: [^true].
- ^super = aMethod and: [method = aMethod method]
- ]
-
method [
"Answer the CompiledMethod in which the receiver lies"
diff --git a/tests/gst.in b/tests/gst.in
index 9728954..af1fb1f 100644
--- a/tests/gst.in
+++ b/tests/gst.in
@@ -2,4 +2,5 @@
abs_top_buildd...@abs_top_builddir@
: ${LIBTOOL=$abs_top_builddir/libtool}
+export LTDL_LIBRARY_PATH=$abs_top_builddir${LTDL_LIBRARY_PATH:+:$LTDL_LIBRARY_PATH}
exec $LIBTOOL --mode=execute @PACKAGE_DLOPEN_FLAGS@ $abs_top_builddir/g...@exeext@ ${1+"$@"}
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
