hashcode>> ( object -- value )

Vocabulary

accessors

Inputs

object

an object

Outputs

value

an object

Definition

IN: accessors

GENERIC: hashcode>> ( object -- value )

Methods

USING: accessors kernel.private math persistent.hashtables.nodes
slots.private ;

M: bitmap-node hashcode>> 5 slot { fixnum } declare ; inline


USING: accessors kernel.private math persistent.hashtables.nodes
slots.private ;

M: collision-node hashcode>> 2 slot { fixnum } declare ; inline


USING: accessors kernel persistent.hashtables.nodes ;

M: empty-node hashcode>> drop 0 ;


USING: accessors kernel.private math persistent.hashtables.nodes
slots.private ;

M: full-node hashcode>> 4 slot { fixnum } declare ; inline


USING: accessors kernel.private math persistent.hashtables.nodes
slots.private ;

M: leaf-node hashcode>> 4 slot { fixnum } declare ; inline


USING: accessors slots.private
stack-checker.recursive-state.tree ;

M: node hashcode>> 4 slot ; inline


USING: accessors classes.struct classes.struct.private math
tools.image.analyzer.vm vm ;

M: string hashcode>>
    T{ struct-slot-spec
        { name "hashcode" }
        { offset 24 }
        { class integer }
        { initial 0 }
        { type cell_t }
    } read-struct-slot ; inline


USING: accessors kernel.private math slots.private words ;

M: word hashcode>> 1 slot { fixnum } declare ; inline


USING: accessors classes.struct classes.struct.private math
tools.image.analyzer.vm vm ;

M: word hashcode>>
    T{ struct-slot-spec
        { name "hashcode" }
        { offset 8 }
        { class integer }
        { initial 0 }
        { type cell_t }
    } read-struct-slot ; inline