Searched refs:SCM_CAR (Results 1 - 3 of 3) sorted by relevance

/freebsd-12-stable/contrib/gdb/gdb/
H A Dscm-lang.h36 #define SCM_TYP7(x) (0x7f & (int)SCM_CAR(x))
37 #define SCM_LENGTH(x) (((unsigned long)SCM_CAR(x))>>8)
38 #define SCM_NCONSP(x) (1 & (int)SCM_CAR(x))
40 #define SCM_CAR(x) scm_get_field (x, 0) macro
43 #define SCM_CLOSCAR(x) (SCM_CAR(x)-scm_tc3_closure)
44 #define SCM_CODE(x) SCM_CAR(SCM_CLOSCAR (x))
H A Dscm-tags.h320 #define SCM_GC8MARKP(x) (0x80 & (int)SCM_CAR(x))
323 #define SCM_SETGC8MARK(x) (SCM_CAR(x) |= 0x80)
324 #define SCM_CLRGC8MARK(x) (SCM_CAR(x) &= ~0x80L)
330 #define SCM_TYP3(x) (7 & (int)SCM_CAR(x))
331 #define SCM_TYP7(x) (0x7f & (int)SCM_CAR(x))
332 #define SCM_TYP7S(x) (0x7d & (int)SCM_CAR(x))
333 #define SCM_TYP16(x) (0xffff & (int)SCM_CAR(x))
334 #define SCM_TYP16S(x) (0xfeff & (int)SCM_CAR(x))
335 #define SCM_GCTYP16(x) (0xff7f & (int)SCM_CAR(x))
H A Dscm-valprint.c104 scm_scmval_print (SCM_CAR (svalue), stream, format,
117 scm_scmval_print (SCM_CAR (svalue), stream, format,
135 (long) SCM_CAR (ptr), (long) SCM_CDR (ptr));
177 svalue = SCM_CAR (svalue - 1);
188 if (SCM_CDR (SCM_CAR (svalue) - 1L) == 0)
313 int index = SCM_CAR (svalue) >> 8;

Completed in 53 milliseconds