Skip to content
Snippets Groups Projects
Commit 6fae356a authored by wlott's avatar wlott
Browse files

Added support for dylan function subtypes.

parent d015f770
No related branches found
No related tags found
No related merge requests found
/*
* 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;
......
/* 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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment