equal
deleted
inserted
replaced
445 ^ self |
445 ^ self |
446 ]. |
446 ]. |
447 |
447 |
448 "cheap block detection filters out blocks with no statements" |
448 "cheap block detection filters out blocks with no statements" |
449 |
449 |
450 pos := aStream position. |
450 pos := aStream position1Based. |
451 |
451 |
452 aStream nextPut:#makeBlock. "+0" |
452 aStream nextPut:#makeBlock. "+0" |
453 aStream nextPut:0. "+1" |
453 aStream nextPut:0. "+1" |
454 aStream nextPut:(blockVars size + maxNumTemp). "+2" |
454 aStream nextPut:(blockVars size + maxNumTemp). "+2" |
455 aStream nextPut:(blockArgs size). "+3" |
455 aStream nextPut:(blockArgs size). "+3" |
477 "/ tempVars; patch the nvar byte ... |
477 "/ tempVars; patch the nvar byte ... |
478 |
478 |
479 code at:pos+2 put:(blockVars size + maxNumTemp). |
479 code at:pos+2 put:(blockVars size + maxNumTemp). |
480 |
480 |
481 "set the end of the block's code" |
481 "set the end of the block's code" |
482 code at:pos+1 put:(aStream position) |
482 code at:pos+1 put:(aStream position1Based) |
483 |
483 |
484 "Modified: 26.6.1997 / 10:48:56 / cg" |
484 "Modified: 26.6.1997 / 10:48:56 / cg" |
485 ! ! |
485 ! ! |
486 |
486 |
487 !BlockNode methodsFor:'code generation helpers'! |
487 !BlockNode methodsFor:'code generation helpers'! |
904 ! ! |
904 ! ! |
905 |
905 |
906 !BlockNode class methodsFor:'documentation'! |
906 !BlockNode class methodsFor:'documentation'! |
907 |
907 |
908 version |
908 version |
909 ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.62 2002-10-14 16:14:22 stefan Exp $' |
909 ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.63 2003-02-25 11:48:47 cg Exp $' |
910 ! ! |
910 ! ! |