13 lines
347 B
Factor
13 lines
347 B
Factor
|
! Copyright (C) 2006 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
IN: compiler-backend
|
||
|
|
USING: assembler kernel math namespaces ;
|
||
|
|
|
||
|
|
: stack-increment \ stack-reserve get 16 align 8 + ;
|
||
|
|
|
||
|
|
M: %prologue generate-node ( vop -- )
|
||
|
|
drop RSP stack-increment SUB ;
|
||
|
|
|
||
|
|
: compile-epilogue ( -- )
|
||
|
|
RSP stack-increment ADD ; inline
|