CydandClaude Fable 5
63312e07f9
- BORLAND/: Borland C++ 4.52 (chosen over 4.5 by byte-match: CODE/RP/CW32.LIB
is identical to 4.52's install lib). BCC32/TLINK32/TLIB/MAKE run natively on
Win11; CODE/BT/OPT.MAK is the shipped BTL4OPT.EXE's exact flag recipe
(extender = Borland PowerPack DPMI32, not Phar Lap TNT).
- restoration/source410/: the literal 1995-form reconstruction of the missing
BT game source (never mixed into CODE/). Round 1-3 state:
* 6 of 10 surviving original TUs COMPILE CLEAN under the period toolchain
(BTMSSN, BTCNSL, BTSCNRL, BTTEAM, BTL4MODE, BTL4ARND) - first builds
since 1996.
* BT_L4/BTL4APP.CPP pilot reconstruction: 12/12 functions, Fail() lands on
its binary-recorded line 400 exactly.
* BT/BTCNSL.HPP: console wire IDs recovered from the binary's ctors
(Killed=9, Damaged=10, ScoreUpdate=13, DeathWithoutHonor=15 [T1];
TeamScore=12 flagged [T4]).
* MUNGA/: 8 engine-header backfills back-dated from the BT412 WinTesla tree
(VDATA numbering decomp-verified; AUDREND's OpenAL-era virtual removed -
the period compiler is the drift detector).
* Tooling: backdate.py (WinTesla->1995 header transform), compile410.sh
(per-TU verification sweep under authentic OPT.MAK flags).
* README: corrected roadmap - MECH.HPP is the capstone grown with the mech
TU reconstructions; BTREG.CPP green = the header-family milestone.
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
134 lines
5.2 KiB
C++
134 lines
5.2 KiB
C++
/*------------------------------------------------------------------------
|
|
* filename - matherr.c
|
|
*
|
|
* function(s)
|
|
* _matherr - user-modifiable math error handler
|
|
*-----------------------------------------------------------------------*/
|
|
|
|
/*
|
|
* C/C++ Run Time Library - Version 1.5
|
|
*
|
|
* Copyright (c) 1987, 1994 by Borland International
|
|
* All Rights Reserved.
|
|
*
|
|
*/
|
|
|
|
#include <math.h>
|
|
|
|
#ifdef UNIX_matherr
|
|
#include <stdio.h>
|
|
#include <process.h>
|
|
#include <_io.h>
|
|
#include <_math.h>
|
|
|
|
/*------------------------------------------------------------------------*
|
|
|
|
Name _matherr - user-modifiable math error handler
|
|
|
|
Usage #include <math.h>
|
|
int _matherr(struct exception *e);
|
|
|
|
Prototype in math.h
|
|
|
|
Description When exceptions are detected in the math library then a
|
|
call is made to __matherr() with all the available
|
|
information.
|
|
|
|
That function does very little, except to map the exception
|
|
"why" into either ERANGE or EDOMAIN in errno. Its main
|
|
purpose is to act as a focal point for changes in error
|
|
handling.
|
|
|
|
For example, if you were writing a spreadsheet you might
|
|
replace this function with one which pops up an error
|
|
window explaining something like:
|
|
|
|
"log (-2.0) caused domain error, in cell J7"
|
|
|
|
and then longjmp() to a reset state in the spreadsheet and
|
|
await the next command from the user.
|
|
|
|
The default version of the _matherr routine masks
|
|
underflow and precision errors; others errors are considered
|
|
fatal. It serves as a hook that you can replace when
|
|
writing your own math error handling routine.
|
|
|
|
The rationale for masking underflow and precision errors
|
|
is that these are not errors according to the ANSI C spec.
|
|
Consequently, you will get
|
|
exp(-1000) = 0
|
|
sin(1e100) = NAN
|
|
without any error or warning, even though there is a total
|
|
loss of precision in both cases. You can trap these errors
|
|
by modifying _matherr.
|
|
|
|
The possible errors are
|
|
DOMAIN, SING, OVERFLOW, UNDERFLOW, TLOSS, PLOSS
|
|
and listed in <math.h>. As explained above, UNDERFLOW and
|
|
TLOSS are masked by the default _matherr. PLOSS is not
|
|
supported by TC and is not generated by any library functions.
|
|
The remaining errors, DOMAIN, SING, and OVERFLOW, are fatal
|
|
with the default _matherr.
|
|
|
|
You can modify _matherr to be a custom error handling
|
|
routine (such as one that catches and resolves certain type
|
|
of errors); the modified _matherr should return 0 if it
|
|
failed to resolve the error, or non-zero if the error was
|
|
resolved. When _matherr returns non-zero, no error message
|
|
is printed, and errno is not changed.
|
|
|
|
The important thing is that we don't know what error
|
|
handling you want, but you are assured that all errors will
|
|
arrive at _matherr() with all the information you need to
|
|
design a custom format.
|
|
|
|
We do not ship as standard the function named _matherr()
|
|
which may be familiar to UNIX users, since the ANSI x3j11
|
|
draft specifies an incompatible style. This version is as
|
|
close as we could get without breaking the ANSI rules. You
|
|
can, however, convert this version to the UNIX style if you
|
|
prefer. The necessary code is included but switched off.
|
|
|
|
Return value The default return value for _matherr is simply 0.
|
|
_matherr can also modify e->retval, which propagates through
|
|
__matherr back to the original caller.
|
|
|
|
When _matherr returns 0, (indicating that it was not able to
|
|
resolve the error) __matherr sets errno and prints an error
|
|
message.
|
|
|
|
When _matherr returns non-zero, (indicating that it was able
|
|
to resolve the error) errno is not set and no messages are
|
|
printed.
|
|
|
|
*-------------------------------------------------------------------------*/
|
|
|
|
int _RTLENTRY _matherr (struct exception *e)
|
|
{
|
|
char errMsg[ 80 ];
|
|
sprintf (errMsg,
|
|
"%s (%8g,%8g): %s\n", e->name, e->arg1, e->arg2, _mathwhy [e->type - 1]);
|
|
_ErrorExit(errMsg);
|
|
}
|
|
|
|
#else /* ! UNIX_matherr */
|
|
|
|
int _RTLENTRY _matherr(struct exception *e)
|
|
{
|
|
if (e->type == UNDERFLOW)
|
|
{
|
|
/* flush underflow to 0 */
|
|
e->retval = 0;
|
|
return 1;
|
|
}
|
|
if (e->type == TLOSS)
|
|
{
|
|
/* total loss of precision, but ignore the problem */
|
|
return 1;
|
|
}
|
|
/* all other errors are fatal */
|
|
return 0;
|
|
}
|
|
|
|
#endif
|