# HG changeset patch # User Stefan Vogel # Date 886637214 -3600 # Node ID f9b081667d3e4a9c75183c040a9b127651b7a852 # Parent fd52c625f87c7f2cbe7cc668d9b5a4a614b083b3 Fix comment. diff -r fd52c625f87c -r f9b081667d3e ProcSched.st --- a/ProcSched.st Tue Feb 03 20:30:20 1998 +0100 +++ b/ProcSched.st Thu Feb 05 01:06:54 1998 +0100 @@ -1561,12 +1561,13 @@ resumeForSingleSend:aProcess "like resume, but let the process execute a single send only. - This will be used by the (new, not yet released) debugger - for single stepping." + This will be used by the debugger for single stepping." (aProcess isNil or:[aProcess == activeProcess]) ifTrue:[^ self]. aProcess singleStep:true. self resume:aProcess + + "Modified: / 3.2.1998 / 01:08:08 / stefan" ! suspend:aProcess @@ -2634,6 +2635,6 @@ !ProcessorScheduler class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.144 1998-02-03 19:30:20 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.145 1998-02-05 00:06:54 stefan Exp $' ! ! ProcessorScheduler initialize! diff -r fd52c625f87c -r f9b081667d3e ProcessorScheduler.st --- a/ProcessorScheduler.st Tue Feb 03 20:30:20 1998 +0100 +++ b/ProcessorScheduler.st Thu Feb 05 01:06:54 1998 +0100 @@ -1561,12 +1561,13 @@ resumeForSingleSend:aProcess "like resume, but let the process execute a single send only. - This will be used by the (new, not yet released) debugger - for single stepping." + This will be used by the debugger for single stepping." (aProcess isNil or:[aProcess == activeProcess]) ifTrue:[^ self]. aProcess singleStep:true. self resume:aProcess + + "Modified: / 3.2.1998 / 01:08:08 / stefan" ! suspend:aProcess @@ -2634,6 +2635,6 @@ !ProcessorScheduler class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.144 1998-02-03 19:30:20 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.145 1998-02-05 00:06:54 stefan Exp $' ! ! ProcessorScheduler initialize!