push-uint ( value vector -- )

Vocabulary

compiler.codegen.relocation

Inputs

value	an object
vector	an object

Outputs

None

Definition

USING: accessors alien.accessors kernel sequences ;

IN: compiler.codegen.relocation

: push-uint ( value vector -- )
    [ length ] [ B{ 0 0 0 0 } swap push-all ] [ underlying>> ]
    tri swap set-alien-unsigned-4 ;