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

SCM Repository

[smlnj] View of /sml/branches/idlbasis-devel/src/MLRISC/control/mlriscErrormsg.sml
ViewVC logotype

View of /sml/branches/idlbasis-devel/src/MLRISC/control/mlriscErrormsg.sml

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1232 - (download) (annotate)
Tue Jun 4 21:11:15 2002 UTC (17 years, 8 months ago) by blume
File size: 566 byte(s)
merged all changes from main trunk
(* mlriscErrormsg.sml
 * COPYRIGHT (c) 2002 Bell Labs, Lucent Technologies

signature MLRISC_ERROR_MSG =
   exception Error
   val print      : string -> unit
   val impossible : string -> 'a
   val error      : string * string -> 'a

structure MLRiscErrorMsg : MLRISC_ERROR_MSG =
  exception Error
  val print = fn s => TextIO.output(TextIO.stdOut, s)
  fun impossible msg =
      (app print ["Error: MLRisc bug: ",msg,"\n"];
       TextIO.flushOut TextIO.stdOut;
       raise Error)
  fun error(module,msg) = impossible(module^"."^msg)

ViewVC Help
Powered by ViewVC 1.0.0