equal
deleted
inserted
replaced
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 |
13 |
14 |
14 |
15 CheapBlock subclass:#VarArgCheapBlock |
15 "{ Package: 'stx:libbasic' }" |
|
16 |
|
17 CheapBlock variableSubclass:#VarArgCheapBlock |
16 instanceVariableNames:'' |
18 instanceVariableNames:'' |
17 classVariableNames:'' |
19 classVariableNames:'' |
18 poolDictionaries:'' |
20 poolDictionaries:'' |
19 category:'Kernel-Methods' |
21 category:'Kernel-Methods' |
20 ! |
22 ! |
48 [see also:] |
50 [see also:] |
49 Block CheapBlock |
51 Block CheapBlock |
50 " |
52 " |
51 ! ! |
53 ! ! |
52 |
54 |
|
55 !VarArgCheapBlock class methodsFor:'initialization'! |
|
56 |
|
57 initialize |
|
58 "must clear the is-block flag bit in the class |
|
59 (otherwise, the VM might try to inline value-messages)" |
|
60 |
|
61 flags := flags bitClear:(Behavior flagBlock). |
|
62 flags := flags bitOr:(Behavior flagBlockLike). |
|
63 |
|
64 " |
|
65 self flags. |
|
66 self initialize. |
|
67 self flags. |
|
68 " |
|
69 |
|
70 |
|
71 ! ! |
|
72 |
53 !VarArgCheapBlock methodsFor:'evaluation'! |
73 !VarArgCheapBlock methodsFor:'evaluation'! |
54 |
74 |
55 value |
75 value |
56 "evaluate the receiver with no block args." |
76 "evaluate the receiver with no block args." |
57 |
77 |
177 ! ! |
197 ! ! |
178 |
198 |
179 !VarArgCheapBlock class methodsFor:'documentation'! |
199 !VarArgCheapBlock class methodsFor:'documentation'! |
180 |
200 |
181 version |
201 version |
182 ^ '$Header: /cvs/stx/stx/libbasic/VarArgCheapBlock.st,v 1.1 1997-01-23 14:23:52 cg Exp $' |
202 ^ '$Header: /cvs/stx/stx/libbasic/VarArgCheapBlock.st,v 1.2 2000-04-01 13:28:34 cg Exp $' |
183 ! ! |
203 ! ! |
|
204 VarArgCheapBlock initialize! |