ByteCodeCompiler.st
branchjv
changeset 3649 2ac6462c60b6
parent 3645 695fc26d7207
parent 3648 a7e535c13f00
child 3663 4e7c5f32fb6d
equal deleted inserted replaced
3647:5fdf14e5420d 3649:2ac6462c60b6
  2080         ].
  2080         ].
  2081         newMethod literals:litArray
  2081         newMethod literals:litArray
  2082     ].
  2082     ].
  2083 
  2083 
  2084     newMethod numberOfVars:(self numberOfMethodVars + (maxNumTemp ? 0)).
  2084     newMethod numberOfVars:(self numberOfMethodVars + (maxNumTemp ? 0)).
  2085     newMethod numberOfArgs:(self argumentCount).
  2085     newMethod numberOfArgs:(self numberOfMethodArgs).
  2086     newMethod stackSize:(self maxStackDepth).
  2086     newMethod stackSize:(self maxStackDepth).
  2087 
  2087 
  2088     primitiveResource notNil ifTrue:[
  2088     primitiveResource notNil ifTrue:[
  2089         newMethod setResourceFlag
  2089         newMethod setResourceFlag
  2090     ].
  2090     ].
  3505 
  3505 
  3506     |newMethod|
  3506     |newMethod|
  3507 
  3507 
  3508     newMethod := self methodClass new:(litArray size).
  3508     newMethod := self methodClass new:(litArray size).
  3509     litArray notNil ifTrue:[
  3509     litArray notNil ifTrue:[
  3510         newMethod literals:litArray
  3510 	newMethod literals:litArray
  3511     ].
  3511     ].
  3512 
  3512 
  3513     newMethod makeUncompiled.
  3513     newMethod makeUncompiled.
  3514     newMethod numberOfVars:(self numberOfMethodVars).
  3514     newMethod numberOfVars:(self numberOfMethodVars).
  3515     newMethod numberOfArgs:(self argumentCount).
  3515     newMethod numberOfArgs:(self numberOfMethodArgs).
  3516     newMethod source:aString string.
  3516     newMethod source:aString string.
  3517     newMethod setCategory:cat.
  3517     newMethod setCategory:cat.
  3518     ^ newMethod
  3518     ^ newMethod
  3519 
  3519 
  3520     "Modified: / 1.8.1997 / 00:27:32 / cg"
  3520     "Modified: / 1.8.1997 / 00:27:32 / cg"
  3687 ! !
  3687 ! !
  3688 
  3688 
  3689 !ByteCodeCompiler class methodsFor:'documentation'!
  3689 !ByteCodeCompiler class methodsFor:'documentation'!
  3690 
  3690 
  3691 version
  3691 version
  3692     ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.295 2015-06-05 16:08:54 stefan Exp $'
  3692     ^ '$Header$'
  3693 !
  3693 !
  3694 
  3694 
  3695 version_CVS
  3695 version_CVS
  3696     ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.295 2015-06-05 16:08:54 stefan Exp $'
  3696     ^ '$Header$'
  3697 !
  3697 !
  3698 
  3698 
  3699 version_SVN
  3699 version_SVN
  3700     ^ '$ Id $'
  3700     ^ '$ Id $'
  3701 ! !
  3701 ! !