Clean up Windows support

release
Slava Pestov 2007-10-06 18:09:22 -04:00
parent 92fef17698
commit b23e109447
6 changed files with 6 additions and 19 deletions

View File

@ -11,7 +11,7 @@ CFLAGS = -Wall
ifdef DEBUG
CFLAGS += -g
else
CFLAGS += -O3 $(SITE_CFLAGS)
CFLAGS += -O3 -fomit-frame-pointer $(SITE_CFLAGS)
endif
ifdef CONFIG

View File

@ -66,6 +66,7 @@ M: x86-backend %prepare-alien-invoke
#! all roots.
"stack_chain" f temp-reg v>operand %alien-global
temp-reg v>operand [] stack-reg MOV
temp-reg v>operand [] cell SUB
temp-reg v>operand 2 cells [+] ds-reg MOV
temp-reg v>operand 3 cells [+] rs-reg MOV ;

View File

@ -1,7 +1,3 @@
#ifndef DEBUG
C_FLAGS += -fomit-frame-pointer
#endif
EXE_SUFFIX =
DLL_PREFIX = lib
DLL_EXTENSION = .a

View File

@ -44,6 +44,3 @@ DEF(void,set_callstack,(F_STACK_FRAME *to, F_STACK_FRAME *from, CELL length, voi
ret /* return _with new stack_ */
#include "cpu-x86.S"
.section .drectve
.ascii " -export:set_callstack"

View File

@ -36,6 +36,3 @@ DEF(void,set_callstack,(F_STACK_FRAME *to, F_STACK_FRAME *from, CELL length, voi
ret /* return _with new stack_ */
#include "cpu-x86.S"
.section .drectve
.ascii " -export:set_callstack"

View File

@ -64,11 +64,7 @@ DEF(FASTCALL void,lazy_jit_compile,(CELL quot)):
pop XT_REG
JUMP_QUOT /* Call the quotation */
.section .drectve
.ascii " -export:c_to_factor"
.ascii " -export:undefined"
.ascii " -export:docol_profiling"
.ascii " -export:primitive_call"
.ascii " -export:primitive_execute"
.ascii " -export:throw_impl"
.ascii " -export:lazy_jit_compile"
#ifdef WINDOWS
.section .drectve
.ascii " -export:c_to_factor"
#endif