ptx-indirect

Vocabulary

cuda.ptx

Definition

USING: math ;

IN: cuda.ptx

TUPLE: ptx-indirect
    { base ptx-var initial: "" } { offset integer initial: 0 } ;

Methods

USING: accessors combinators cuda.ptx io kernel math math.parser
;

M: ptx-indirect write-ptx-operand
    "[" write dup base>> write-ptx-operand offset>> {
        { [ dup zero? ] [ drop ] }
        { [ dup 0 < ] [ number>string write ] }
        [ "+" write number>string write ]
    } cond "]" write ;