wip

Author: shirok

src/native.c

@@ -417,8 +417,8 @@ ScmObj Scm__VMCallNative(ScmVM *vm,
                                 entry, win_prolog_end, win_frame_size);
             xpad_pdata = get_entry_address(vm->codeCache,
                                            (char*)codepad + realcodesize);
-            //RtlAddFunctionTable((PRUNTIME_FUNCTION)(void*)xpad_pdata, 1,
-            //(DWORD64)vm->codeCache->xpad->ptr);
+            RtlAddFunctionTable((PRUNTIME_FUNCTION)(void*)xpad_pdata, 1,
+                                (DWORD64)vm->codeCache->xpad->ptr);
         }
 #endif
 
@@ -455,7 +455,7 @@ ScmObj Scm__VMCallNative(ScmVM *vm,
     } SCM_WHEN_ERROR {
 #if defined(GAUCHE_WINDOWS)
         if (xpad_pdata) {
-            //RtlDeleteFunctionTable((PRUNTIME_FUNCTION)(void*)xpad_pdata);
+            RtlDeleteFunctionTable((PRUNTIME_FUNCTION)(void*)xpad_pdata);
         }
 #endif
         free_code_cache(vm, codepad);
@@ -464,7 +464,7 @@ ScmObj Scm__VMCallNative(ScmVM *vm,
 
 #if defined(GAUCHE_WINDOWS)
     if (xpad_pdata) {
-        //RtlDeleteFunctionTable((PRUNTIME_FUNCTION)(void*)xpad_pdata);
+        RtlDeleteFunctionTable((PRUNTIME_FUNCTION)(void*)xpad_pdata);
     }
 #endif
     free_code_cache(vm, codepad);