(%store-memory) ( src exclude address rep c-type -- )

Vocabulary

cpu.x86

Inputs

src	an object
exclude	an object
address	an object
rep	an object
c-type	an object

Outputs

None

Definition

USING: alien.c-types combinators cpu.architecture kernel ;

IN: cpu.x86

: (%store-memory) ( src exclude address rep c-type -- )
    or? [
        {
            { char [ 8 %alien-integer-setter ] }
            { uchar [ 8 %alien-integer-setter ] }
            { short [ 16 %alien-integer-setter ] }
            { ushort [ 16 %alien-integer-setter ] }
            { int [ 32 %alien-integer-setter ] }
            { uint [ 32 %alien-integer-setter ] }
        } case
    ] [ [ nip swap ] dip %copy ] if ;