Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/runtime/kernel/error.c
ViewVC logotype

Annotation of /sml/trunk/src/runtime/kernel/error.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2 - (view) (download) (as text)

1 : monnier 2 /* error.c
2 :     *
3 :     * COPYRIGHT (c) 1994 by AT&T Bell Laboratories.
4 :     *
5 :     * Run-time system error messages.
6 :     */
7 :    
8 :     #include <stdio.h>
9 :     #include <stdarg.h>
10 :     #include "ml-base.h"
11 :    
12 :     extern FILE *DebugF;
13 :    
14 :     #ifdef TARGET_BYTECODE
15 :     extern FILE *BC_stdout;
16 :     #endif
17 :    
18 :    
19 :     /* Say:
20 :     * Print a message to the standard output.
21 :     */
22 :     void Say (char *fmt, ...)
23 :     {
24 :     va_list ap;
25 :    
26 :     va_start (ap, fmt);
27 :     vfprintf (stdout, fmt, ap);
28 :     va_end(ap);
29 :     fflush (stdout);
30 :    
31 :     } /* end of Say */
32 :    
33 :     /* SayDebug:
34 :     * Print a message to the debug output stream.
35 :     */
36 :     void SayDebug (char *fmt, ...)
37 :     {
38 :     va_list ap;
39 :    
40 :     va_start (ap, fmt);
41 :     vfprintf (DebugF, fmt, ap);
42 :     va_end(ap);
43 :     fflush (DebugF);
44 :    
45 :     } /* end of SayDebug */
46 :    
47 :     /* Error:
48 :     * Print an error message.
49 :     */
50 :     void Error (char *fmt, ...)
51 :     {
52 :     va_list ap;
53 :    
54 :     va_start (ap, fmt);
55 :     fprintf (stderr, "%s: Error -- ", MLCmdName);
56 :     vfprintf (stderr, fmt, ap);
57 :     va_end(ap);
58 :    
59 :     } /* end of Error */
60 :    
61 :    
62 :     /* Die:
63 :     * Print an error message and then exit.
64 :     */
65 :     void Die (char *fmt, ...)
66 :     {
67 :     va_list ap;
68 :    
69 :     va_start (ap, fmt);
70 :     fprintf (stderr, "%s: Fatal error -- ", MLCmdName);
71 :     vfprintf (stderr, fmt, ap);
72 :     fprintf (stderr, "\n");
73 :     va_end(ap);
74 :    
75 :     #if (defined(TARGET_BYTECODE) && defined(INSTR_HISTORY))
76 :     {
77 :     extern void PrintRegs (FILE *);
78 :     extern void PrintInstrHistory (FILE *);
79 :    
80 :     PrintRegs (BC_stdout);
81 :     PrintInstrHistory (BC_stdout);
82 :     }
83 :     #endif
84 :    
85 :     #ifdef MP_SUPPORT
86 :     MP_Shutdown ();
87 :     #endif
88 :    
89 :     Exit (1);
90 :    
91 :     } /* end of Die */
92 :    
93 :    
94 :     #ifdef ASSERT_ON
95 :     /* AssertFail:
96 :     *
97 :     * Print an assertion failure message.
98 :     */
99 :     void AssertFail (const char *a, const char *file, int line)
100 :     {
101 :     fprintf (stderr, "%s: Assertion failure (%s) at \"%s:%d\"\n",
102 :     MLCmdName, a, file, line);
103 :    
104 :     #ifdef MP_SUPPORT
105 :     MP_Shutdown ();
106 :     #endif
107 :    
108 :     Exit (2);
109 :    
110 :     } /* end of AssertFail */
111 :     #endif
112 :    

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0