Merge commit 'erg/master'

.gitignore

@@ -14,3 +14,4 @@ factor
 .DS_Store
 .gdb_history
 *.*.marks
+.*.swp

Makefile

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

extra/io/windows/nt/backend/backend.factor

@@ -5,6 +5,9 @@ windows.errors windows.kernel32 prettyprint strings splitting
 io.files windows.winsock ;
 IN: io.windows.nt.backend
 
+: .. global [ . flush ] bind ;
+: .S global [ .s flush ] bind ;
+
 : unicode-prefix ( -- seq )
     "\\\\?\\" ; inline
 
@@ -92,7 +95,7 @@ C: <GetQueuedCompletionStatusParams> GetQueuedCompletionStatusParams
 
 : lookup-callback ( GetQueuedCompletion-args -- callback )
     GetQueuedCompletionStatusParams-lpOverlapped* *void*
-    \ io-hash get-global delete-at drop ;
+    \ io-hash get-global delete-at* drop ;
 
 : wait-for-io ( timeout -- continuation/f )
     wait-for-overlapped

extra/ui/windows/windows.factor

@@ -456,7 +456,7 @@ M: windows-ui-backend ui
             init-win32-ui
             start-ui
             event-loop
-        ] [ cleanup-win32-ui ] cleanup
+        ] [ cleanup-win32-ui ] [ ] cleanup
     ] ui-running ;
 
 T{ windows-ui-backend } ui-backend set-global

vm/Config.unix

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

vm/cpu-x86.32.S

@@ -44,3 +44,6 @@ 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"

vm/cpu-x86.64.S

@@ -36,3 +36,6 @@ 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"

vm/cpu-x86.S

@@ -63,3 +63,12 @@ DEF(FASTCALL void,lazy_jit_compile,(CELL quot)):
 	pop XT_REG
 	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"