Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Cleaned up list of tags

Browse source
This commit is contained in:
Justin Ethier 2016-04-21 03:37:20 -04:00
parent f89d35bb09
commit b4d67004fe
2 changed files with 37 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
include/cyclone/types.h
View file

@ -66,26 +66,26 @@ typedef void *object;
// Define a tag for each possible type of object.
// Remember to update tag_names in runtime.c when adding new tags
enum object_tag {
pair_tag = 0
, symbol_tag // 1
, forward_tag // 2
boolean_tag = 0 // 0
, bytevector_tag // 1
, c_opaque_tag // 2
, closure0_tag // 3
, closure1_tag // 4
, closureN_tag // 5
, integer_tag // 6
, double_tag // 7
, string_tag // 8
, primitive_tag // 9
, eof_tag // 10
, port_tag // 11
, boolean_tag // 12
, cvar_tag // 13
, vector_tag // 14
, macro_tag // 15
, mutex_tag // 16
, cond_var_tag // 17
, bytevector_tag // 18
, c_opaque_tag // 19
, cond_var_tag // 6
, cvar_tag // 7
, double_tag // 8
, eof_tag // 9
, forward_tag // 10
, integer_tag // 11
, macro_tag // 12
, mutex_tag // 13
, pair_tag // 14
, port_tag // 15
, primitive_tag // 16
, string_tag // 17
, symbol_tag // 18
, vector_tag // 19
};
// Define the size of object tags

40
runtime.c
View file

@ -28,26 +28,26 @@ object Cyc_global_set(void *thd, object *glo, object value)
/* Error checking section - type mismatch, num args, etc */
/* Type names to use for error messages */
const char *tag_names[] = { \
"pair" \
, "symbol" \
, "" \
, "procedure" \
, "procedure" \
, "procedure" \
, "number" \
, "number" \
, "string" \
, "primitive" \
, "eof" \
, "port" \
, "boolean" \
, "C primitive" \
, "vector" \
, "macro" \
, "mutex" \
, "condition variable" \
, "bytevector" \
, "opaque" \
/*boolean_tag */ "boolean" \
/*bytevector_tag*/ , "bytevector" \
/*c_opaque_tag */ , "opaque" \
/*closure0_tag */ , "procedure" \
/*closure1_tag */ , "procedure" \
/*closureN_tag */ , "procedure" \
/*cond_var_tag */ , "condition variable" \
/*cvar_tag */ , "C primitive" \
/*double_tag */ , "number" \
/*eof_tag */ , "eof" \
/*forward_tag */ , "" \
/*integer_tag */ , "number" \
/*macro_tag */ , "macro" \
/*mutex_tag */ , "mutex" \
/*pair_tag */ , "pair" \
/*port_tag */ , "port" \
/*primitive_tag */ , "primitive" \
/*string_tag */ , "string" \
/*symbol_tag */ , "symbol" \
/*vector_tag */ , "vector" \
, "Reserved for future use" };
void Cyc_invalid_type_error(void *data, int tag, object found) {