コード例 #1
0
ファイル: floenv.c プロジェクト: tali713/mit-scheme
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
}
コード例 #2
0
ファイル: prgdbm.c プロジェクト: tali713/mit-scheme
static void
gdbm_fatal_error (char * msg)
{
  outf_error ("\ngdbm: %s\n", msg);
  outf_flush_error ();
  error_external_return ();
}
コード例 #3
0
ファイル: ntsock.c プロジェクト: henrylim/henry-work
static long
server_channel_write (Tchannel channel, const void * buffer,
		      unsigned long n_bytes)
{
  error_external_return ();
  return (0);
}