2006-01-24 19:56:08 -05:00
|
|
|
! Copyright (C) 2006 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
IN: compiler-backend
|
2006-03-12 18:37:17 -05:00
|
|
|
USING: assembler compiler-frontend kernel math namespaces ;
|
2006-01-24 19:56:08 -05:00
|
|
|
|
|
|
|
|
M: %prologue generate-node ( vop -- )
|
2006-03-07 19:53:58 -05:00
|
|
|
drop
|
|
|
|
|
0 input \ stack-reserve set
|
|
|
|
|
RSP stack-increment SUB ;
|
