equal
deleted
inserted
replaced
20 |
20 |
21 Context comment:' |
21 Context comment:' |
22 COPYRIGHT (c) 1988 by Claus Gittinger |
22 COPYRIGHT (c) 1988 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 $Header: /cvs/stx/stx/libbasic/Context.st,v 1.34 1995-07-02 01:06:16 claus Exp $ |
25 $Header: /cvs/stx/stx/libbasic/Context.st,v 1.35 1995-08-08 00:46:14 claus Exp $ |
26 '! |
26 '! |
27 |
27 |
28 !Context class methodsFor:'documentation'! |
28 !Context class methodsFor:'documentation'! |
29 |
29 |
30 copyright |
30 copyright |
41 " |
41 " |
42 ! |
42 ! |
43 |
43 |
44 version |
44 version |
45 " |
45 " |
46 $Header: /cvs/stx/stx/libbasic/Context.st,v 1.34 1995-07-02 01:06:16 claus Exp $ |
46 $Header: /cvs/stx/stx/libbasic/Context.st,v 1.35 1995-08-08 00:46:14 claus Exp $ |
47 " |
47 " |
48 ! |
48 ! |
49 |
49 |
50 documentation |
50 documentation |
51 " |
51 " |
428 |
428 |
429 lineNr isNil ifTrue:[^ nil]. |
429 lineNr isNil ifTrue:[^ nil]. |
430 ^ lineNr bitAnd:16rFFFF |
430 ^ lineNr bitAnd:16rFFFF |
431 ! |
431 ! |
432 |
432 |
|
433 setLineNumber:aNumber |
|
434 "private entry for uncompiledCodeObject ..." |
|
435 |
|
436 lineNr := aNumber |
|
437 ! |
|
438 |
433 canReturn |
439 canReturn |
434 "return true, if the receiver allows returning through it. |
440 "return true, if the receiver allows returning through it. |
435 For normal method contexts, this normally returns true; |
441 For normal method contexts, this returns true; |
436 for blocks, it (currently) always returns false. |
442 for blocks, it (currently) always returns false. |
437 |
443 |
438 However, the system can be compiled (for production code), to create |
444 However, the system can be compiled (for production code), to create |
439 contexts which cannot be returned or restarted |
445 contexts which cannot be returned or restarted |
440 (except, if the method contains a returning block). |
446 (except, if the method contains a returning block). |