--- a/Method.st Sat Jan 30 14:57:36 1999 +0100
+++ b/Method.st Sat Jan 30 15:02:21 1999 +0100
@@ -332,26 +332,6 @@
"Modified: / 23.2.1998 / 10:26:08 / stefan"
!
-decompiledSource
- |s|
-
- s := '' writeStream.
- self decompileTo:s.
- ^ s contents
-
- "Created: 3.7.1996 / 10:12:31 / cg"
-!
-
-flags
- "return the flags (number of method variables, stacksize etc.).
- Dont depend on the values in the flag field - its interpretations
- may change without notice."
-
- ^ flags
-
- "Modified: 8.3.1996 / 13:20:48 / cg"
-!
-
getSource
"low-level access to the source instance-variable.
This is NOT always the methods source string"
@@ -369,24 +349,6 @@
"Created: 16.1.1997 / 01:25:52 / cg"
!
-numberOfMethodArgs
- "return the number of arguments, the method expects.
- This method is left for backward compatibility - use #numArgs."
-
- ^ self numArgs
-
- "Modified: 4.11.1996 / 21:42:08 / cg"
-!
-
-numberOfMethodVars
- "return the number of method local variables.
- This method is left for backward compatibility - use #numVars."
-
- ^ self numVars
-
- "Modified: 4.11.1996 / 21:42:21 / cg"
-!
-
package
"return the package-symbol"
@@ -1102,178 +1064,6 @@
"Modified: 16.1.1997 / 01:27:25 / cg"
! !
-!Method methodsFor:'debugging'!
-
-breakPointInProcess:aProcess
- "arrange for a breakpoint-debugger to be opened when this method
- is invoked from withn aProcess."
-
- MessageTracer trapMethod:self inProcess:aProcess.
-
- "Created: / 12.1.1998 / 18:21:10 / cg"
- "Modified: / 12.1.1998 / 18:22:39 / cg"
-!
-
-clearBreakPoint
- "remove any break/trace-point on this method"
-
- MessageTracer unwrapMethod:self.
-
- "Created: / 11.1.1998 / 13:44:45 / cg"
- "Modified: / 12.1.1998 / 18:22:14 / cg"
-!
-
-isCounted
- "obsolete - replaced by isCountinMemoryUsage"
-
- ^ MessageTracer notNil
- and:[MessageTracer isCountingMemoryUsage:self]
-
- "Created: / 12.1.1998 / 19:05:24 / cg"
- "Modified: / 27.7.1998 / 11:05:36 / cg"
-!
-
-isCounting
- "return true, if invokations of this method are counted"
-
- ^ MessageTracer notNil
- and:[MessageTracer isCounting:self]
-
- "Modified: / 27.7.1998 / 11:06:00 / cg"
-!
-
-isCountingMemoryUsage
- "return true, if memory allocations done by this method (and callees)
- are counted"
-
- ^ MessageTracer notNil
- and:[MessageTracer isCountingMemoryUsage:self]
-
- "Created: / 12.1.1998 / 19:06:29 / cg"
- "Modified: / 27.7.1998 / 11:06:23 / cg"
-!
-
-resetCountingStatistics
- "reset count statistics of the receiver"
-
- MessageTracer resetCountOfMethod:self
-
- "Modified: / 12.1.1998 / 18:24:30 / cg"
- "Created: / 30.7.1998 / 17:40:09 / cg"
-!
-
-resetMemoryUsageStatistics
- "reset count statistics of the receiver"
-
- MessageTracer resetMemoryUsageOfMethod:self
-
- "Modified: / 12.1.1998 / 18:24:30 / cg"
- "Created: / 30.7.1998 / 17:40:20 / cg"
-!
-
-resetTimingStatistics
- "reset timing statistics of the receiver"
-
- MessageTracer resetExecutionTimesOfMethod:self
-
- "Modified: / 12.1.1998 / 18:24:30 / cg"
- "Created: / 30.7.1998 / 17:16:14 / cg"
-!
-
-setBreakPoint
- "arrange for a breakpoint-debugger to be opened when this method
- is invoked."
-
- MessageTracer trapMethod:self.
-
- "Created: / 11.1.1998 / 13:59:16 / cg"
- "Modified: / 12.1.1998 / 18:22:36 / cg"
-!
-
-setTraceFullPoint
- "arrange for a full-backtrace to be sent to the standard-error stream
- when this method is invoked."
-
- MessageTracer traceMethodFull:self on:Transcript
-
- "Created: / 11.1.1998 / 14:02:43 / cg"
- "Modified: / 12.1.1998 / 18:23:11 / cg"
-!
-
-setTracePoint
- "arrange for a trace-message to be sent to the standard-error stream
- when this method is invoked."
-
- MessageTracer traceMethod:self on:Transcript
-
- "Created: / 11.1.1998 / 14:02:30 / cg"
- "Modified: / 12.1.1998 / 18:23:23 / cg"
-!
-
-setTraceSenderPoint
- "arrange for a sender-trace-message to be sent to the standard-error stream
- when this method is invoked."
-
- MessageTracer traceMethodSender:self on:Transcript
-
- "Created: / 11.1.1998 / 14:02:59 / cg"
- "Modified: / 12.1.1998 / 18:23:31 / cg"
-!
-
-startCounting
- "start counting invokations of the receiver"
-
- MessageTracer countMethod:self
-
- "Created: / 11.1.1998 / 14:01:05 / cg"
- "Modified: / 12.1.1998 / 18:23:45 / cg"
-!
-
-startCountingMemoryUsage
- "start counting memory usage of the receiver (and every callee)"
-
- MessageTracer countMemoryUsageOfMethod:self
-
- "Created: / 11.1.1998 / 14:01:19 / cg"
- "Modified: / 27.7.1998 / 11:06:55 / cg"
-!
-
-startTiming
- "start timing the receiver"
-
- MessageTracer timeMethod:self
-
- "Created: / 11.1.1998 / 14:01:29 / cg"
- "Modified: / 12.1.1998 / 18:24:05 / cg"
-!
-
-stopCounting
- "stop counting calls of the receiver"
-
- MessageTracer stopCountingMethod:self
-
- "Created: / 11.1.1998 / 14:01:45 / cg"
- "Modified: / 12.1.1998 / 18:24:15 / cg"
-!
-
-stopCountingMemoryUsage
- "stop counting memory usage of the receiver"
-
- MessageTracer stopCountingMemoryUsageOfMethod:self
-
- "Created: / 11.1.1998 / 14:02:01 / cg"
- "Modified: / 12.1.1998 / 18:24:22 / cg"
-!
-
-stopTiming
- "stop timing of the receiver"
-
- MessageTracer stopTimingMethod:self
-
- "Created: / 11.1.1998 / 14:02:14 / cg"
- "Modified: / 12.1.1998 / 18:24:30 / cg"
-! !
-
!Method methodsFor:'error handling'!
invalidCodeObject
@@ -2582,6 +2372,6 @@
!Method class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.167 1998-12-29 16:56:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.168 1999-01-30 14:02:21 cg Exp $'
! !
Method initialize!