static void cache_float_environment (void) { #ifdef HAVE_FEGETENV if (0 != (fegetenv (&scheme_fenv))) error_external_return (); scheme_fenv_p = true; /* Work around glibc lossage: fesetenv has the side effect of masking all exception traps on amd64. */ # ifdef HAVE_FESETENV if (0 != (fesetenv (&scheme_fenv))) error_external_return (); # endif #endif }
static void gdbm_fatal_error (char * msg) { outf_error ("\ngdbm: %s\n", msg); outf_flush_error (); error_external_return (); }
static long server_channel_write (Tchannel channel, const void * buffer, unsigned long n_bytes) { error_external_return (); return (0); }