14 lines
470 B
Factor
14 lines
470 B
Factor
! Copyright (C) 2010 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: alien.c-types kernel compiler.constants compiler.cfg.hats
|
|
compiler.cfg.instructions compiler.cfg.registers
|
|
compiler.cfg.stacks cpu.architecture ;
|
|
IN: compiler.cfg.intrinsics.strings
|
|
|
|
: emit-string-nth ( -- )
|
|
2inputs swap ^^string-nth ds-push ;
|
|
|
|
: emit-set-string-nth-fast ( -- )
|
|
3inputs ^^tagged>integer ^^add string-offset
|
|
int-rep uchar ##store-memory-imm ;
|