IN: accessors

GENERIC: offset<< ( value object -- )

USING: accessors compiler.cfg.instructions slots.private ;

M: ##load-memory-imm offset<< 4 set-slot ; inline

USING: accessors compiler.cfg.instructions slots.private ;

M: ##load-memory offset<< 6 set-slot ; inline

USING: accessors compiler.cfg.instructions slots.private ;

M: ##local-allot offset<< 5 set-slot ; inline

USING: accessors compiler.cfg.instructions slots.private ;

M: ##set-vm-field offset<< 3 set-slot ; inline

USING: accessors compiler.cfg.instructions slots.private ;

M: ##store-memory-imm offset<< 4 set-slot ; inline

USING: accessors compiler.cfg.instructions slots.private ;

M: ##store-memory offset<< 6 set-slot ; inline

USING: accessors compiler.cfg.instructions slots.private ;

M: ##vm-field offset<< 3 set-slot ; inline

USING: accessors alien.c-types classes.struct
classes.struct.private math readline.ffi ;

M: HISTORY_STATE offset<<
T{ struct-slot-spec
{ name "offset" }
{ offset 8 }
{ class fixnum }
{ initial 0 }
{ type int }
} write-struct-slot ; inline

USING: accessors alien.c-types classes.struct
classes.struct.private macho math ;

M: fat_arch offset<<
T{ struct-slot-spec
{ name "offset" }
{ offset 8 }
{ class fixnum }
{ initial 0 }
{ type uint }
} write-struct-slot ; inline

USING: accessors images.bitmap slots.private ;

M: file-header offset<< 6 set-slot ; inline

USING: accessors compiler.codegen.labels kernel math slots
slots.private ;

M: label-fixup-state offset<<
[ dup integer? [ \ integer bad-slot-value ] unless ] dip
4 set-slot ; inline

USING: accessors compiler.codegen.labels slots.private ;

M: label offset<< 2 set-slot ; inline

USING: accessors alien.c-types classes.struct
classes.struct.private macho math ;

M: lc_str offset<<
T{ struct-slot-spec
{ name "offset" }
{ offset 0 }
{ class fixnum }
{ initial 0 }
{ type uint }
} write-struct-slot ; inline

USING: accessors kernel math memory.piles slots slots.private ;

M: pile offset<<
[ dup integer? [ \ integer bad-slot-value ] unless ] dip
4 set-slot ; inline

USING: accessors cuda.ptx kernel math slots slots.private ;

M: ptx-indirect offset<<
[ dup integer? [ \ integer bad-slot-value ] unless ] dip
3 set-slot ; inline

USING: accessors db.tuples slots.private ;

M: query offset<< 5 set-slot ; inline

USING: accessors alien.c-types classes.struct
classes.struct.private macho math ;

M: section offset<<
T{ struct-slot-spec
{ name "offset" }
{ offset 40 }
{ class fixnum }
{ initial 0 }
{ type uint }
} write-struct-slot ; inline

USING: accessors alien.c-types classes.struct
classes.struct.private macho math ;

M: section_64 offset<<
T{ struct-slot-spec
{ name "offset" }
{ offset 48 }
{ class fixnum }
{ initial 0 }
{ type uint }
} write-struct-slot ; inline

USING: accessors slots slots.private ;

M: slot-spec offset<< 3 set-slot ; inline

USING: accessors alien.c-types audio.aiff classes.struct
classes.struct.private kernel ;

M: sound-data-chunk offset<<
T{ struct-slot-spec
{ name "offset" }
{ offset 8 }
{ class object }
{ type { uchar 4 } }
} write-struct-slot ; inline

USING: accessors game.models.collada.private slots.private ;

M: source offset<< 3 set-slot ; inline

USING: accessors alien.c-types classes.struct
classes.struct.private macho math ;

M: symseg_command offset<<
T{ struct-slot-spec
{ name "offset" }
{ offset 8 }
{ class fixnum }
{ initial 0 }
{ type uint }
} write-struct-slot ; inline

USING: accessors alien.c-types classes.struct
classes.struct.private macho math ;

M: twolevel_hints_command offset<<
T{ struct-slot-spec
{ name "offset" }
{ offset 8 }
{ class fixnum }
{ initial 0 }
{ type uint }
} write-struct-slot ; inline

USING: accessors alien.c-types classes.struct
classes.struct.private math tools.disassembler.udis ;

M: ud_operand offset<<
T{ struct-slot-spec
{ name "offset" }
{ offset 24 }
{ class fixnum }
{ initial 0 }
{ type uchar }
} write-struct-slot ; inline