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