- switch (G_errorType) {
- case DOMAIN:
- errorMsg = "domain";
- break;
- case SING:
- errorMsg = "singularity";
- break;
- case OVERFLOW:
- errorMsg = "overflow";
- break;
- case UNDERFLOW:
- errorMsg = "underflow";
- break;
- case TLOSS:
- case PLOSS:
- errorMsg = "loss of significance";
- break;
- }
- Tcl_AppendResult (interp, "floating point ", errorMsg, " error",