mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix setjmp/longjmp-related crashes on Windows

Browse source 
* libguile/Makefile.am: add new header file setjump-win.h
* libguile/continuations.h, libguile/dynstack.c, libguile/dynstack.h,
  libguile/intrinsics.h, libguile/vm.h:
  supply custom `setjmp` macro on Windows

Mingw implements `setjmp (env)` as a macro that expands to

 _setjmp (env, faddr)

where `faddr` is set to the current frame address.

This address is then stored as first element in the jump buffer `env`.
When `longjmp` is called, it tries to unwind the stack up
to the saved address by calling `RtlUnwindEx` from MSVCRT,
which will fail, if the stack frames are interwoven with
JIT-generated code, that violate the Windows x64 calling conventions.

Thus implement the macro ourselves as

_setjmp (env, NULL)

which will toggle a code path in `longjmp` that does no unwinding.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Michael Käppler 2024-09-07 22:52:22 +02:00 • committed by Ludovic Courtès
parent c0bfa3219c
commit 08e26836f1
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
7 changed files with 40 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/dynstack.h
View file

@ -22,7 +22,12 @@
#ifndef _WIN64
#include <setjmp.h>
#else
#include "libguile/setjump-win.h"
#endif
#include <signal.h>
#include "libguile/scm.h"