[Vm-dev] VM Maker: VMMaker-oscog-golubovsky.136.mcz

[Igor Stasenko]

What is this:

getMethod: 'setVMTimerInterval' withSig: '(I)V' inClass: vmcls.

first time i see that. ?

On 10 January 2012 05:02,  <commits at source.squeak.org> wrote:
>
> Dmitry Golubovsky uploaded a new version of VMMaker to project VM Maker:
> http://source.squeak.org/VMMaker/VMMaker-oscog-golubovsky.136.mcz
>
> ==================== Summary ====================
>
> Name: VMMaker-oscog-golubovsky.136
> Author: golubovsky
> Time: 9 January 2012, 11:01:10 pm
> UUID: 892dbc65-4c95-4bdd-837c-6bd55f66c93d
> Ancestors: VMMaker-oscog-golubovsky.135
>
> Added primitives to get and set VM idle timer interval.
>
> =============== Diff against VMMaker-oscog-golubovsky.135 ===============
>
> Item was added:
> + ----- Method: AndroidPlugin>>primGetVMTimerInterval (in category 'system primitives') -----
> + primGetVMTimerInterval
> +       | timer vmcls vmobj bmmeth jmsg |
> +       <var: 'timer' type: 'int'>
> +       <var: 'vmcls' type: 'jclass'>
> +       <var: 'vmobj' type: 'jobject'>
> +       <var: 'bmmeth' type: 'jmethodID'>
> +       <export: true>
> +       vmcls := self getVMClass.
> +       vmcls ifNil: [^ interpreterProxy primitiveFail].
> +       vmobj := self getVMObject.
> +       vmobj ifNil: [^ interpreterProxy primitiveFail].
> +       bmmeth := self getMethod: 'getVMTimerInterval' withSig: '()I' inClass: vmcls.
> +       bmmeth ifNil: [^ interpreterProxy primitiveFail].
> +       timer := self callIntMethod: bmmeth On: vmobj with: 0.
> +       interpreterProxy pop: 1.
> +       interpreterProxy pushInteger: timer.
> + !
>
> Item was added:
> + ----- Method: AndroidPlugin>>primSetVMTimerInterval (in category 'system primitives') -----
> + primSetVMTimerInterval
> +       | timer vmcls vmobj bmmeth jmsg |
> +       <var: 'timer' type: 'int'>
> +       <var: 'vmcls' type: 'jclass'>
> +       <var: 'vmobj' type: 'jobject'>
> +       <var: 'bmmeth' type: 'jmethodID'>
> +       <export: true>
> +       timer :=  interpreterProxy stackIntegerValue: 0.
> +       vmcls := self getVMClass.
> +       vmcls ifNil: [^ interpreterProxy primitiveFail].
> +       vmobj := self getVMObject.
> +       vmobj ifNil: [^ interpreterProxy primitiveFail].
> +       bmmeth := self getMethod: 'setVMTimerInterval' withSig: '(I)V' inClass: vmcls.
> +       bmmeth ifNil: [^ interpreterProxy primitiveFail].
> +       self callVoidMethod: bmmeth On: vmobj with: timer.
> +       interpreterProxy pop: 1.
> + !
>



-- 
Best regards,
Igor Stasenko.