| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586 |
- Listing:
- 1 (* Release 3.10 *)
- 2 (*-------------------------------------------------------------------------*
- 3 * *
- 4 * FLOATEXC.MOD - Floating-point exception handlers *
- 5 * *
- 6 * COPYRIGHT (C) 1987..1992 Clarion Software Corporation. *
- 7 * All Rights Reserved *
- 8 * *
- 9 *--------------------------------------------------------------------------*)
- 10
- 11 (*# call(seg_name => null,
- 12 ds_entry=>null) *)
- 13 (*# data(seg_name => null) *)
- 14 (*# check(stack=>off,
- 15 index=>off,
- 16 range=>off,
- 17 overflow=>off,
- 18 nil_ptr=>off) *)
- 19
- 20 IMPLEMENTATION MODULE FloatExc;
- 21
- 22 IMPORT CoreSig;
- 23
- 24 VAR
- 25 Handler, OldHandler, Dummy: CoreSig.SigProcType;
- ***** ^ not supported yet
- 26 Init: BOOLEAN;
- 27
- 28 PROCEDURE EnableExceptionHandling;
- 29 BEGIN
- 30 IF Init THEN
- 31 Dummy := CoreSig.signal(8, CoreSig.SigProcType(Handler));
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 32 END;
- 33 END EnableExceptionHandling;
- ***** ^ not supported yet
- 34
- 35 PROCEDURE DisableExceptionHandling;
- 36 BEGIN
- 37 IF Init THEN
- 38 Dummy := CoreSig.signal(8, CoreSig.SigProcType(OldHandler));
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 39 END;
- 40 END DisableExceptionHandling;
- ***** ^ not supported yet
- 41
- 42 PROCEDURE InstallHandler(H: FloatErrHandler);
- ***** ^ undeclared identifier
- 43
- 44 BEGIN
- 45 Handler := CoreSig.SigProcType(H);
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 46 OldHandler := CoreSig.signal(8, CoreSig.SigProcType(H));
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 47 Init := TRUE;
- 48 END InstallHandler;
- ***** ^ not supported yet
- 49
- 50 BEGIN
- 51 Init := FALSE;
- 52 END FloatExc.
- ***** ^ not supported yet
- 28 errors
|
