rules

replace: '``@statements. interpreterProxy pop: ``@const. interpreterProxy pushInteger: ``@integer'

with: '``@statements. interpreterProxy methodReturnInteger: ``@integer';

replace: '``@statements. interpreterProxy pop: ``@const. ^interpreterProxy pushInteger: ``@integer'

with: '``@statements. ^interpreterProxy methodReturnInteger: ``@integer'.

rules

replace: 'interpreterProxy pop: ``@const. interpreterProxy pushInteger: ``@integer'

with: 'interpreterProxy methodReturnInteger: ``@integer';

replace: 'interpreterProxy pop: ``@const. ^interpreterProxy pushInteger: ``@integer'

with: '^interpreterProxy methodReturnInteger: ``@integer'.

primitiveRendererVersion

<export: true>

interpreterProxy methodArgumentCount = 0

ifFalse:[^interpreterProxy primitiveFail].

interpreterProxy pop: 1.

^interpreterProxy pushInteger: 1.

primitiveRendererVersion

<export: true>

interpreterProxy methodArgumentCount = 0

ifFalse: [ ^ interpreterProxy primitiveFail ].

^ interpreterProxy methodReturnInteger: 1

primitiveTextureDepth

| handle result renderer |

<export: true>

interpreterProxy methodArgumentCount = 2

ifFalse:[^interpreterProxy primitiveFail].

handle := interpreterProxy stackIntegerValue: 0.

renderer := interpreterProxy stackIntegerValue: 1.

interpreterProxy failed ifTrue:[^nil].

result := self cCode:'b3dxActualTextureDepth(renderer, handle)' inSmalltalk:[-1].

result < 0 ifTrue:[^interpreterProxy primitiveFail].

interpreterProxy pop: 3.

^interpreterProxy pushInteger: result.