From 4af7e7a48be93555df7205793c21d545f6e9cc99 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 26 Nov 1990 19:21:39 +0000 Subject: [PATCH] Don't assume the size of sigcontext, use c-sizeof. --- code/debug-int.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/debug-int.lisp b/code/debug-int.lisp index 05d311008..b96f547f2 100644 --- a/code/debug-int.lisp +++ b/code/debug-int.lisp @@ -840,7 +840,7 @@ (alien-bind ((scp (interrupt-array-ref (alien-value lisp_interrupt_contexts) index) - (alien mach:sigcontext 2400) + (alien mach:sigcontext #.(c-sizeof 'mach:sigcontext)) t) (sc (mach:indirect-*sigcontext scp) mach:sigcontext -- GitLab