From bb13044a9ca3e1e70dd5b2daa5cbff1d87493e44 Mon Sep 17 00:00:00 2001 From: Helmut Eller Date: Sat, 22 Jun 2024 17:28:15 +0200 Subject: [PATCH 2/2] Remove fix_fwd * src/igc.c (fix_fwd): Removed. No longer needed. (fix_symbol): Update accordingly. --- src/igc.c | 34 ---------------------------------- 1 file changed, 34 deletions(-) diff --git a/src/igc.c b/src/igc.c index 1d076706f7c..f03167fed4f 100644 --- a/src/igc.c +++ b/src/igc.c @@ -891,39 +891,6 @@ scan_staticvec (mps_ss_t ss, void *start, void *end, void *closure) return MPS_RES_OK; } -static mps_res_t -fix_fwd (mps_ss_t ss, lispfwd fwd) -{ - MPS_SCAN_BEGIN (ss) - { - switch (XFWDTYPE (fwd)) - { - case Lisp_Fwd_Int: - case Lisp_Fwd_Bool: - case Lisp_Fwd_Kboard_Obj: - break; - - case Lisp_Fwd_Obj: - { - /* It is not guaranteed that we see all of these when - scanning staticvec because of DEFVAR_LISP_NOPRO. */ - struct Lisp_Objfwd *o = (void *) fwd.fwdptr; - IGC_FIX12_OBJ (ss, o->objvar); - } - break; - - case Lisp_Fwd_Buffer_Obj: - { - struct Lisp_Buffer_Objfwd *b = (void *) fwd.fwdptr; - IGC_FIX12_OBJ (ss, &b->predicate); - } - break; - } - } - MPS_SCAN_END (ss); - return MPS_RES_OK; -} - static mps_res_t fix_symbol (mps_ss_t ss, struct Lisp_Symbol *sym) { @@ -952,7 +919,6 @@ fix_symbol (mps_ss_t ss, struct Lisp_Symbol *sym) break; case SYMBOL_FORWARDED: - IGC_FIX_CALL (ss, fix_fwd (ss, sym->u.s.val.fwd)); break; } } -- 2.39.2