From 6fae356ada6635bf6e371cab18c977fd98e11ebd Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 5 Dec 1992 22:36:32 +0000 Subject: [PATCH] Added support for dylan function subtypes. --- lisp/gc.c | 4 +++- lisp/purify.c | 3 ++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/gc.c b/lisp/gc.c index 07d3210a7..88a0fecf9 100644 --- a/lisp/gc.c +++ b/lisp/gc.c @@ -1,7 +1,7 @@ /* * Stop and Copy GC based on Cheney's algorithm. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.2 1992/09/08 20:17:52 wlott Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.3 1992/12/05 22:36:17 wlott Exp $ * * Written by Christopher Hoover. */ @@ -1675,11 +1675,13 @@ void gc_init(void) scavtab[type_FuncallableInstanceHeader] = scav_closure_header; scavtab[type_ByteCodeFunction] = scav_closure_header; scavtab[type_ByteCodeClosure] = scav_closure_header; + scavtab[type_DylanFunctionHeader] = scav_closure_header; #else scavtab[type_ClosureHeader] = scav_boxed; scavtab[type_FuncallableInstanceHeader] = scav_boxed; scavtab[type_ByteCodeFunction] = scav_boxed; scavtab[type_ByteCodeClosure] = scav_boxed; + scavtab[type_DylanFunctionHeader] = scav_boxed; #endif scavtab[type_ValueCellHeader] = scav_boxed; scavtab[type_SymbolHeader] = scav_boxed; diff --git a/lisp/purify.c b/lisp/purify.c index c4cf8f584..ee229ee26 100644 --- a/lisp/purify.c +++ b/lisp/purify.c @@ -1,6 +1,6 @@ /* Purify. */ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.2 1992/08/20 02:43:37 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.3 1992/12/05 22:36:32 wlott Exp $ */ #include <stdio.h> #include <sys/types.h> @@ -604,6 +604,7 @@ static lispobj *pscav(lispobj *addr, int nwords, boolean constant) case type_FuncallableInstanceHeader: case type_ByteCodeFunction: case type_ByteCodeClosure: + case type_DylanFunctionHeader: count = pscav_closure_header((struct closure *)addr); break; #endif -- GitLab