tag 44 ext/uvector/uvinit.c static ScmObj read_uvector(ScmPort *port, const char *tag, tag 51 ext/uvector/uvinit.c if (c != '(') Scm_Error("bad uniform vector syntax for %s", tag); tag 53 ext/uvector/uvinit.c if (strcmp(tag, "s8") == 0) uv = Scm_ListToS8Vector(list, 0); tag 54 ext/uvector/uvinit.c else if (strcmp(tag, "u8") == 0) uv = Scm_ListToU8Vector(list, 0); tag 55 ext/uvector/uvinit.c else if (strcmp(tag, "s16") == 0) uv = Scm_ListToS16Vector(list, 0); tag 56 ext/uvector/uvinit.c else if (strcmp(tag, "u16") == 0) uv = Scm_ListToU16Vector(list, 0); tag 57 ext/uvector/uvinit.c else if (strcmp(tag, "s32") == 0) uv = Scm_ListToS32Vector(list, 0); tag 58 ext/uvector/uvinit.c else if (strcmp(tag, "u32") == 0) uv = Scm_ListToU32Vector(list, 0); tag 59 ext/uvector/uvinit.c else if (strcmp(tag, "s64") == 0) uv = Scm_ListToS64Vector(list, 0); tag 60 ext/uvector/uvinit.c else if (strcmp(tag, "u64") == 0) uv = Scm_ListToU64Vector(list, 0); tag 61 ext/uvector/uvinit.c else if (strcmp(tag, "f32") == 0) uv = Scm_ListToF32Vector(list, 0); tag 62 ext/uvector/uvinit.c else if (strcmp(tag, "f64") == 0) uv = Scm_ListToF64Vector(list, 0); tag 63 ext/uvector/uvinit.c else Scm_Error("invalid unform vector tag: %s", tag); tag 76 ext/uvector/uvinit.c SCM_EXTERN ScmObj (*Scm_ReadUvectorHook)(ScmPort *port, const char *tag, tag 485 gc/cord/cordxtra.c size_t tag; tag 527 gc/cord/cordxtra.c new_cache -> tag = DIV_LINE_SZ(file_pos); tag 541 gc/cord/cordxtra.c if (cl == 0 || cl -> tag != DIV_LINE_SZ(i)) { tag 155 gc/dyn_load.c int tag; tag 156 gc/dyn_load.c for( dp = ((ElfW(Dyn) *)(&_DYNAMIC)); (tag = dp->d_tag) != 0; dp++ ) { tag 157 gc/dyn_load.c if( tag == DT_DEBUG ) { tag 502 gc/dyn_load.c int tag; tag 503 gc/dyn_load.c for( dp = _DYNAMIC; (tag = dp->d_tag) != 0; dp++ ) { tag 510 gc/dyn_load.c if( tag == DT_DEBUG ) { tag 646 gc/mark.c word tag = descr & GC_DS_TAGS; tag 648 gc/mark.c switch(tag) { tag 292 src/gauche.h #define SCM_HOBJP(obj) (SCM_PTRP(obj)&&SCM_TAG(SCM_OBJ(obj)->tag)==3) tag 303 src/gauche.h ScmByte *tag; /* private. should be accessed tag 311 src/gauche.h #define SCM_CLASS_OF(obj) SCM_CLASS((SCM_OBJ(obj)->tag - 3)) tag 312 src/gauche.h #define SCM_SET_CLASS(obj, k) (SCM_OBJ(obj)->tag = (ScmByte*)(k) + 3) tag 316 src/gauche.h (SCM_PTRP(obj)&&(SCM_OBJ(obj)->tag == SCM_CLASS2TAG(klass))) tag 323 src/gauche.h ScmByte *tag; /* private */ tag 747 src/gauche.h #define SCM_PAIRP(obj) (SCM_PTRP(obj)&&SCM_TAG(SCM_OBJ(obj)->tag)!=0x03) tag 74 src/read.c ScmObj (*Scm_ReadUvectorHook)(ScmPort *port, const char *tag, tag 1106 src/read.c char *tag = NULL; tag 1115 src/read.c if (c1 == '3' && c2 == '2') tag = "f32"; tag 1116 src/read.c else if (c1 == '6' && c2 == '4') tag = "f64"; tag 1118 src/read.c if (c1 == '8') tag = (ch == 's')? "s8" : "u8"; tag 1121 src/read.c if (c2 == '6') tag = (ch == 's')? "s16" : "u16"; tag 1125 src/read.c if (c2 == '2') tag = (ch == 's')? "s32" : "u32"; tag 1129 src/read.c if (c2 == '4') tag = (ch == 's')? "s64" : "u64"; tag 1132 src/read.c if (tag == NULL) { tag 1152 src/read.c return Scm_ReadUvectorHook(port, tag, ctx);