gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

memory_protect return

-rwxr-xr-x

1 files changed, 1 insertions, 1 deletions

diff --git a/gcl/o/sgbc.c b/gcl/o/sgbc.c
index 2f37cad6c..772767f01 100755
--- a/gcl/o/sgbc.c
+++ b/gcl/o/sgbc.c

@@ -1554,7 +1554,7 @@ memory_protect(int on) {

if (on==0) {

sgc_mprotect(first_protectable_page,end-first_protectable_page,SGC_WRITABLE);

install_segmentation_catcher();

- return;

+ return 0;

}

INSTALL_MPROTECT_HANDLER;

generated by cgit v1.2.3 (git 2.25.1) at 2025年09月06日 04:41:25 +0000