factor/vm/cpu-x86.S

DEF(F_FASTCALL void,c_to_factor,(CELL quot)):
	PUSH_NONVOLATILE
	mov ARG0,NV_TEMP_REG

	/* Create register shadow area for Win64 */
	sub $32,STACK_REG

	/* Save stack pointer */
	lea -CELL_SIZE(STACK_REG),ARG0
	call MANGLE(save_callstack_bottom)

	/* Call quot-xt */
	mov NV_TEMP_REG,ARG0
	call *QUOT_XT_OFFSET(ARG0)

	/* Tear down register shadow area */
	add $32,STACK_REG

	POP_NONVOLATILE
	ret

DEF(F_FASTCALL void,throw_impl,(CELL quot, F_STACK_FRAME *rewind_to)):
	/* rewind_to */
	mov ARG1,STACK_REG                    
	jmp *QUOT_XT_OFFSET(ARG0)

DEF(FASTCALL void,lazy_jit_compile,(CELL quot)):
	mov STACK_REG,ARG1           /* Save stack pointer */
	sub $STACK_PADDING,STACK_REG
	call MANGLE(primitive_jit_compile)
	mov RETURN_REG,ARG0          /* No-op on 32-bit */
	add $STACK_PADDING,STACK_REG
        jmp *QUOT_XT_OFFSET(ARG0)    /* Call the quotation */

#ifdef WINDOWS
	.section .drectve
	.ascii " -export:c_to_factor"
#endif
$U-C4\Administrator$ Attempt to merge in changes F_FASTCALL 2007-09-27 16:10:37 -04:00			`DEF(F_FASTCALL void,c_to_factor,(CELL quot)):`
More changes 2007-09-21 23:30:47 -04:00			`PUSH_NONVOLATILE`
VM fixes for Win64 calling convention 2008-11-08 21:32:23 -05:00			`mov ARG0,NV_TEMP_REG`
Starting work on Win64 port 2008-11-07 21:33:32 -05:00
			`/* Create register shadow area for Win64 */`
VM fixes for Win64 calling convention 2008-11-08 21:32:23 -05:00			`sub $32,STACK_REG`

			`/* Save stack pointer */`
			`lea -CELL_SIZE(STACK_REG),ARG0`
Initial import 2007-09-20 18:09:08 -04:00			`call MANGLE(save_callstack_bottom)`

Starting work on Win64 port 2008-11-07 21:33:32 -05:00			`/* Call quot-xt */`
VM fixes for Win64 calling convention 2008-11-08 21:32:23 -05:00			`mov NV_TEMP_REG,ARG0`
Starting work on Win64 port 2008-11-07 21:33:32 -05:00			`call *QUOT_XT_OFFSET(ARG0)`
Initial import 2007-09-20 18:09:08 -04:00
VM fixes for Win64 calling convention 2008-11-08 21:32:23 -05:00			`/* Tear down register shadow area */`
			`add $32,STACK_REG`

More changes 2007-09-21 23:30:47 -04:00			`POP_NONVOLATILE`
Initial import 2007-09-20 18:09:08 -04:00			`ret`

$U-C4\Administrator$ Attempt to merge in changes F_FASTCALL 2007-09-27 16:10:37 -04:00			`DEF(F_FASTCALL void,throw_impl,(CELL quot, F_STACK_FRAME *rewind_to)):`
Starting work on Win64 port 2008-11-07 21:33:32 -05:00			`/* rewind_to */`
			`mov ARG1,STACK_REG`
Clean up non optimizing compiler, rewrite more primitives in assembly 2008-07-11 18:25:46 -04:00			`jmp *QUOT_XT_OFFSET(ARG0)`
Update x86 for lazy JIT 2007-09-26 00:34:37 -04:00
			`DEF(FASTCALL void,lazy_jit_compile,(CELL quot)):`
			`mov STACK_REG,ARG1 /* Save stack pointer */`
Starting work on Win64 port 2008-11-07 21:33:32 -05:00			`sub $STACK_PADDING,STACK_REG`
Re-implemented single stepper for new evaluation model 2007-10-03 16:56:49 -04:00			`call MANGLE(primitive_jit_compile)`
Update x86 for lazy JIT 2007-09-26 00:34:37 -04:00			`mov RETURN_REG,ARG0 /* No-op on 32-bit */`
Starting work on Win64 port 2008-11-07 21:33:32 -05:00			`add $STACK_PADDING,STACK_REG`
Clean up non optimizing compiler, rewrite more primitives in assembly 2008-07-11 18:25:46 -04:00			`jmp QUOT_XT_OFFSET(ARG0) / Call the quotation */`
$U-C4\Administrator$ dllexport symbols in cpu-x86.*.S 2007-10-04 12:56:12 -04:00
Clean up Windows support 2007-10-06 18:09:22 -04:00			`#ifdef WINDOWS`
			`.section .drectve`
			`.ascii " -export:c_to_factor"`
			`#endif`