2005-12-10 01:02:13 -05:00
|
|
|
! Copyright (C) 2005 Slava Pestov.
|
|
|
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
|
|
|
IN: compiler-backend
|
2005-12-24 16:08:15 -05:00
|
|
|
USING: alien assembler kernel math ;
|
2005-12-10 01:02:13 -05:00
|
|
|
|
2005-12-24 16:08:15 -05:00
|
|
|
M: %unbox generate-node ( vop -- )
|
2005-12-24 23:18:41 -05:00
|
|
|
drop ;
|
2005-12-24 16:08:15 -05:00
|
|
|
|
|
|
|
|
M: %parameter generate-node ( vop -- )
|
|
|
|
|
! Move a value from the C stack into the fastcall register
|
2005-12-24 23:18:41 -05:00
|
|
|
drop ;
|
2005-12-24 16:08:15 -05:00
|
|
|
|
2005-12-24 23:18:41 -05:00
|
|
|
M: %box generate-node ( vop -- ) drop ;
|
2005-12-24 16:08:15 -05:00
|
|
|
|
|
|
|
|
M: %cleanup generate-node ( vop -- ) drop ;
|
