C++ (Cpp) SCM_TYP16 Beispiele

Beispiel #1

Datei: scm-ports.c Projekt: freebsd-riscv/riscv-binutils-gdb

static SCM
gdbscm_stdio_port_p (SCM scm)
{
  /* This is copied from SCM_FPORTP.  */
  return scm_from_bool (!SCM_IMP (scm)
			&& (SCM_TYP16 (scm) == stdio_port_desc));
}

Beispiel #2

Datei: scm-gsmob.c Projekt: atgreen/binutils-gdb

static int
gdbscm_is_gsmob (SCM scm)
{
  void **slot;

  if (SCM_IMP (scm))
    return 0;
  slot = htab_find_slot (registered_gsmobs, (void *) SCM_TYP16 (scm),
			 NO_INSERT);
  return slot != NULL;
}

Beispiel #3

Datei: scm-ports.c Projekt: freebsd-riscv/riscv-binutils-gdb

static int
gdbscm_is_memory_port (SCM obj)
{
  return !SCM_IMP (obj) && (SCM_TYP16 (obj) == memory_port_desc);
}