next-reg-param ( odd-register? rep -- reg )

Vocabulary

compiler.cfg.builder.alien.params

Inputs

odd-register?	an object
rep	an object

Outputs

reg

an object

Definition

IN: compiler.cfg.builder.alien.params

GENERIC: next-reg-param ( odd-register? rep -- reg )

Methods

USING: compiler.cfg.builder.alien.params cpu.architecture kernel
math namespaces sequences ;

M: int-rep next-reg-param
    [ nip ?dummy-stack-params ] [ nip ?dummy-fp-params ] [
        drop
        [ int-regs get last even? [ int-regs get pop* ] when ]
        when
    ] 2tri int-regs get pop ;


USING: compiler.cfg.builder.alien.params cpu.architecture kernel
namespaces sequences ;

M: object next-reg-param
    nip [ ?dummy-stack-params ] [ ?dummy-int-params ] bi
    float-regs get pop ;