equal
deleted
inserted
replaced
436 "+4" |
436 "+4" |
437 p0 := pos+4. |
437 p0 := pos+4. |
438 |
438 |
439 statements isNil ifTrue:[ |
439 statements isNil ifTrue:[ |
440 endLineNr notNil ifTrue:[ |
440 endLineNr notNil ifTrue:[ |
441 ParseNode codeLineNumber:endLineNr on:aStream for:aCompiler |
441 self codeLineNumber:endLineNr on:aStream for:aCompiler |
442 ]. |
442 ]. |
443 aStream nextPut:#pushNil. |
443 aStream nextPut:#pushNil. |
444 aStream nextPut:#retTop. |
444 aStream nextPut:#retTop. |
445 ] ifFalse:[ |
445 ] ifFalse:[ |
446 thisStatement := statements. |
446 thisStatement := statements. |
462 inLine:endLineNr |
462 inLine:endLineNr |
463 for:aCompiler |
463 for:aCompiler |
464 ]. |
464 ]. |
465 lastStatement codeOn:aStream inBlock:self for:aCompiler. |
465 lastStatement codeOn:aStream inBlock:self for:aCompiler. |
466 endLineNr notNil ifTrue:[ |
466 endLineNr notNil ifTrue:[ |
467 ParseNode codeLineNumber:endLineNr on:aStream for:aCompiler |
467 self codeLineNumber:endLineNr on:aStream for:aCompiler |
468 ]. |
468 ]. |
469 aStream nextPut:#retTop. |
469 aStream nextPut:#retTop. |
470 ]. |
470 ]. |
471 |
471 |
472 code := (aStream contents). |
472 code := (aStream contents). |
927 ! ! |
927 ! ! |
928 |
928 |
929 !BlockNode class methodsFor:'documentation'! |
929 !BlockNode class methodsFor:'documentation'! |
930 |
930 |
931 version |
931 version |
932 ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.53 1998-04-02 17:10:27 cg Exp $' |
932 ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.54 1999-02-25 14:49:18 cg Exp $' |
933 ! ! |
933 ! ! |