10 lines
320 B
Factor
10 lines
320 B
Factor
! Copyright (C) 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: compiler-backend
|
|
USING: arrays assembler compiler kernel ;
|
|
|
|
: load-indirect ( dest literal -- )
|
|
#! We cannot use the x86 definition here.
|
|
0 scratch swap add-literal MOV 0 0 rel-address
|
|
0 scratch swap 1array MOV ;
|