|
! Copyright (C) 2006 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
IN: compiler-backend
|
|
USING: assembler compiler-frontend kernel math namespaces ;
|
|
|
|
M: %prologue generate-node ( vop -- )
|
|
drop
|
|
0 input \ stack-reserve set
|
|
RSP stack-increment SUB ;
|