encode-c-type ( c-type L -- size VR opc1 sh L )

Vocabulary

cpu.arm.64.assembler

Inputs

c-type	an object
L	an object

Outputs

size	an object
VR	an object
opc1	an object
sh	an object
L	an object

Definition

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

IN: cpu.arm.64.assembler

: encode-c-type ( c-type L -- size VR opc1 sh L )
    [
        {
            { uchar [ 0 0 0 0 ] }
            { char [ 0 0 1 0 ] }
            { ushort [ 1 0 0 1 ] }
            { short [ 1 0 1 1 ] }
            { uint [ 2 0 0 2 ] }
            { int [ 2 0 1 2 ] }
            { ulonglong [ 3 0 0 3 ] }
            { longlong [ 3 0 0 3 ] }
            { int-rep [ 3 0 0 3 ] }
            { tagged-rep [ 3 0 0 3 ] }
            { float [ 2 1 0 2 ] }
            { float-rep [ 2 1 0 2 ] }
            { double [ 3 1 0 3 ] }
            { double-rep [ 3 1 0 3 ] }
            { vector-rep [ 4 1 0 4 ] }
            [ unknown-c-type ]
        } case
    ] dip dup 0 = [ [ drop 0 ] 2dip ] when ;