equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
2044 ]. |
2046 ]. |
2045 newMethod literals:litArray |
2047 newMethod literals:litArray |
2046 ]. |
2048 ]. |
2047 |
2049 |
2048 newMethod numberOfVars:(self numberOfMethodVars + (maxNumTemp ? 0)). |
2050 newMethod numberOfVars:(self numberOfMethodVars + (maxNumTemp ? 0)). |
2049 newMethod numberOfArgs:(self numberOfMethodArgs). |
2051 newMethod numberOfArgs:(self argumentCount). |
2050 newMethod stackSize:(self maxStackDepth). |
2052 newMethod stackSize:(self maxStackDepth). |
2051 |
2053 |
2052 primitiveResource notNil ifTrue:[ |
2054 primitiveResource notNil ifTrue:[ |
2053 newMethod setResourceFlag |
2055 newMethod setResourceFlag |
2054 ]. |
2056 ]. |
3469 |
3471 |
3470 |newMethod| |
3472 |newMethod| |
3471 |
3473 |
3472 newMethod := self methodClass new:(litArray size). |
3474 newMethod := self methodClass new:(litArray size). |
3473 litArray notNil ifTrue:[ |
3475 litArray notNil ifTrue:[ |
3474 newMethod literals:litArray |
3476 newMethod literals:litArray |
3475 ]. |
3477 ]. |
3476 |
3478 |
3477 newMethod makeUncompiled. |
3479 newMethod makeUncompiled. |
3478 newMethod numberOfVars:(self numberOfMethodVars). |
3480 newMethod numberOfVars:(self numberOfMethodVars). |
3479 newMethod numberOfArgs:(self numberOfMethodArgs). |
3481 newMethod numberOfArgs:(self argumentCount). |
3480 newMethod source:aString string. |
3482 newMethod source:aString string. |
3481 newMethod setCategory:cat. |
3483 newMethod setCategory:cat. |
3482 ^ newMethod |
3484 ^ newMethod |
3483 |
3485 |
3484 "Modified: / 1.8.1997 / 00:27:32 / cg" |
3486 "Modified: / 1.8.1997 / 00:27:32 / cg" |
3651 ! ! |
3653 ! ! |
3652 |
3654 |
3653 !ByteCodeCompiler class methodsFor:'documentation'! |
3655 !ByteCodeCompiler class methodsFor:'documentation'! |
3654 |
3656 |
3655 version |
3657 version |
3656 ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.294 2015-02-09 10:09:24 cg Exp $' |
3658 ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.295 2015-06-05 16:08:54 stefan Exp $' |
3657 ! |
3659 ! |
3658 |
3660 |
3659 version_CVS |
3661 version_CVS |
3660 ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.294 2015-02-09 10:09:24 cg Exp $' |
3662 ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.295 2015-06-05 16:08:54 stefan Exp $' |
3661 ! |
3663 ! |
3662 |
3664 |
3663 version_SVN |
3665 version_SVN |
3664 ^ '$ Id $' |
3666 ^ '$ Id $' |
3665 ! ! |
3667 ! ! |