reg-class-full? ( reg-class odd-register? -- ? )

Vocabulary

compiler.cfg.builder.alien.params

Inputs

reg-class	a vector
odd-register?	a boolean

Outputs

?

a boolean

Word description

The register class is full if there are no registers left in it, or if there is only one register and 'odd-register?' is t. If it is full, then it is emptied as a side-effect.

Definition

USING: kernel sequences ;

IN: compiler.cfg.builder.alien.params

: reg-class-full? ( reg-class odd-register? -- ? )
    over length 1 = and [ dup delete-all ] when empty? ;