|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T g
Length: 7456 (0x1d20)
Types: TextFile
Names: »gctype.c«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─⟦this⟧ »EUUGD11/gnu-31mar87/scheme/microcode/gctype.c«
/* Emacs -*-C-*-an't tell the language */
/****************************************************************
* *
* Copyright (c) 1986 *
* Massachusetts Institute of Technology *
* *
* This material was developed by the Scheme project at the *
* Massachusetts Institute of Technology, Department of *
* Electrical Engineering and Computer Science. Permission to *
* copy this software, to redistribute it, and to use it for any *
* purpose is granted, subject to the following restrictions and *
* understandings. *
* *
* 1. Any copy made of this software must include this copyright *
* notice in full. *
* *
* 2. Users of this software agree to make their best efforts (a)*
* to return to the MIT Scheme project any improvements or *
* extensions that they make, so that these may be included in *
* future releases; and (b) to inform MIT of noteworthy uses of *
* this software. *
* *
* 3. All materials developed as a consequence of the use of *
* this software shall duly acknowledge such use, in accordance *
* with the usual standards of acknowledging credit in academic *
* research. *
* *
* 4. MIT has made no warrantee or representation that the *
* operation of this software will be error-free, and MIT is *
* under no obligation to provide any services, by way of *
* maintenance, update, or otherwise. *
* *
* 5. In conjunction with products arising from the use of this *
* material, there shall be no use of the name of the *
* Massachusetts Institute of Technology nor of any adaptation *
* thereof in any advertising, promotional, or sales literature *
* without prior written consent from MIT in each case. *
* *
****************************************************************/
/* File: GCTYPE.C
*
* This file contains the table which maps between Types and
* GC Types.
*
*/
\f
/*********************************/
/* Mapping GC_Type to Type_Codes */
/*********************************/
int GC_Type_Map[MAX_SAFE_TYPE + 1] = {
GC_Non_Pointer, /* TC_NULL,etc */
GC_Pair, /* TC_LIST */
GC_Non_Pointer, /* TC_CHARACTER */
GC_Pair, /* TC_SCODE_QUOTE */
GC_Triple, /* TC_PCOMB2 */
GC_Pair, /* TC_UNINTERNED_SYMBOL */
GC_Vector, /* TC_BIG_FLONUM */
GC_Pair, /* TC_COMBINATION_1 */
GC_Non_Pointer, /* TC_TRUE */
GC_Pair, /* TC_EXTENDED_PROCEDURE */
GC_Vector, /* TC_VECTOR */
GC_Non_Pointer, /* TC_RETURN_CODE */
GC_Triple, /* TC_COMBINATION_2 */
GC_Pair, /* TC_COMPILED_PROCEDURE */
GC_Vector, /* TC_BIG_FIXNUM */
GC_Pair, /* TC_PROCEDURE */
GC_Non_Pointer, /* TC_PRIMITIVE_EXTERNAL */
GC_Pair, /* TC_DELAY */
GC_Vector, /* TC_ENVIRONMENT */
GC_Pair, /* TC_DELAYED */
GC_Triple, /* TC_EXTENDED_LAMBDA */
GC_Pair, /* TC_COMMENT */
GC_Vector, /* TC_NON_MARKED_VECTOR */
GC_Pair, /* TC_LAMBDA */
GC_Non_Pointer, /* TC_PRIMITIVE */
GC_Pair, /* TC_SEQUENCE_2 */
GC_Non_Pointer, /* TC_FIXNUM */
GC_Pair, /* TC_PCOMB1 */
GC_Vector, /* TC_CONTROL_POINT */
GC_Pair, /* TC_INTERNED_SYMBOL */
GC_Vector, /* TC_CHARACTER_STRING,TC_VECTOR_8B */
GC_Pair, /* TC_ACCESS */
GC_Non_Pointer, /* TC_EXTENDED_FIXNUM */
GC_Pair, /* TC_DEFINITION */
GC_Non_Pointer, /* TC_BROKEN_HEART */
GC_Pair, /* TC_ASSIGNMENT */
GC_Triple, /* TC_HUNK3 */
GC_Pair, /* TC_IN_PACKAGE */
/* GC_Type_Map continues on next page */
\f
/* GC_Type_Map continued */
GC_Vector, /* TC_COMBINATION */
GC_Non_Pointer, /* TC_MANIFEST_NM_VECTOR */
GC_Non_Pointer, /* TC_COMPILED_EXPRESSION */
GC_Pair, /* TC_LEXPR */
GC_Vector, /* TC_PCOMB3 */
GC_Non_Pointer, /* TC_MANIFEST_SPECIAL_NM_VECTOR */
GC_Triple, /* TC_VARIABLE */
GC_Non_Pointer, /* TC_THE_ENVIRONMENT */
GC_Vector, /* TC_FUTURE */
GC_Vector, /* TC_VECTOR_1B,TC_BIT_STRING */
GC_Non_Pointer, /* TC_PCOMB0 */
GC_Vector, /* TC_VECTOR_16B */
GC_Non_Pointer, /* TC_UNASSIGNED */
GC_Triple, /* TC_SEQUENCE_3 */
GC_Triple, /* TC_CONDITIONAL */
GC_Pair, /* TC_DISJUNCTION */
GC_Undefined, /* 0x36 */
GC_Undefined, /* 0x37 */
GC_Undefined, /* 0x38 */
GC_Undefined, /* 0x39 */
GC_Undefined, /* 0x3A */
GC_Undefined, /* 0x3B */
GC_Undefined, /* 0x3C */
GC_Undefined, /* 0x3D */
GC_Undefined, /* 0x3E */
GC_Undefined, /* 0x3F */
GC_Undefined, /* 0x40 */
GC_Undefined, /* 0x41 */
GC_Undefined, /* 0x42 */
GC_Undefined, /* 0x43 */
GC_Undefined, /* 0x44 */
GC_Undefined, /* 0x45 */
GC_Undefined, /* 0x46 */
GC_Undefined, /* 0x47 */
GC_Undefined, /* 0x48 */
GC_Undefined, /* 0x49 */
GC_Undefined, /* 0x4A */
GC_Undefined, /* 0x4B */
GC_Undefined, /* 0x4C */
GC_Undefined, /* 0x4D */
GC_Undefined, /* 0x4E */
GC_Undefined, /* 0x4F */
GC_Undefined, /* 0x50 */
GC_Undefined, /* 0x51 */
GC_Undefined, /* 0x52 */
GC_Undefined, /* 0x53 */
GC_Undefined, /* 0x54 */
/* GC_Type_Map continues on next page */
\f
/* GC_Type_Map continued */
GC_Undefined, /* 0x55 */
GC_Undefined, /* 0x56 */
GC_Undefined, /* 0x57 */
GC_Undefined, /* 0x58 */
GC_Undefined, /* 0x59 */
GC_Undefined, /* 0x5A */
GC_Undefined, /* 0x5B */
GC_Undefined, /* 0x5C */
GC_Undefined, /* 0x5D */
GC_Undefined, /* 0x5E */
GC_Undefined, /* 0x5F */
GC_Undefined, /* 0x60 */
GC_Undefined, /* 0x61 */
GC_Undefined, /* 0x62 */
GC_Undefined, /* 0x63 */
GC_Undefined, /* 0x64 */
GC_Undefined, /* 0x65 */
GC_Undefined, /* 0x66 */
GC_Undefined, /* 0x67 */
GC_Undefined, /* 0x68 */
GC_Undefined, /* 0x69 */
GC_Undefined, /* 0x6A */
GC_Undefined, /* 0x6B */
GC_Undefined, /* 0x6C */
GC_Undefined, /* 0x6D */
GC_Undefined, /* 0x6E */
GC_Undefined, /* 0x6F */
GC_Undefined, /* 0x70 */
GC_Undefined, /* 0x71 */
GC_Undefined, /* 0x72 */
GC_Undefined, /* 0x73 */
GC_Undefined, /* 0x74 */
GC_Undefined, /* 0x75 */
GC_Undefined, /* 0x76 */
GC_Undefined, /* 0x77 */
GC_Undefined, /* 0x78 */
GC_Undefined, /* 0x79 */
GC_Undefined, /* 0x7A */
GC_Undefined, /* 0x7B */
GC_Undefined, /* 0x7C */
GC_Undefined, /* 0x7D */
GC_Undefined, /* 0x7E */
GC_Undefined /* 0x7F */
};
#if (MAX_SAFE_TYPE != 0x7F)
#include "gctype.c and scheme.h inconsistent -- GC_Type_Map"
#endif