Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  MATHLIB.MOD - Floating point support (see also COREMATH.A)              *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1987..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*%F _fdata *)
   12  (*# call(seg_name => null) *)
   13  (*# data(seg_name => null) *)
   14  (*%E *)
   15  
   16  (*# check(stack=>off,
   17            index=>off,
   18            range=>off,
   19            overflow=>off,
   20            nil_ptr=>off) *)
   21  (*# module(implementation=>off) *)
   22  
   23  IMPLEMENTATION MODULE MATHLIB;
   24  
   25  PROCEDURE LoadControlWord(C : BITSET); IN AsmLib;
*****                                ^ undeclared identifier
*****                                            ^ not supported yet
   26  PROCEDURE StoreControlWord() : BITSET; IN AsmLib;
*****                                 ^ undeclared identifier
*****                                            ^ not supported yet
   27  PROCEDURE ClearExceptions();  IN AsmLib;
*****                                   ^ not supported yet
   28  PROCEDURE StoreEnvironment(VAR Env: Environment);  IN AsmLib;
*****                                      ^ undeclared identifier
*****                                                        ^ not supported yet
   29  PROCEDURE InternalBcdToLong(A: PackedBcd) : LONGREAL; IN AsmLib;
*****                                 ^ undeclared identifier
*****                                                           ^ not supported yet
   30  
   31  PROCEDURE Rexp(VAR I : INTEGER;A : LONGREAL) : LONGREAL;
   32  
   33  BEGIN
   34      RETURN CoreMath.frexp(A, I);
*****             ^ undeclared identifier
*****                      ^ not supported yet
*****                                ^ not supported yet
   35  END Rexp;
*****      ^ not supported yet
   36  
   37  PROCEDURE LongToBcd(A: LONGREAL)  : PackedBcd;
*****                                      ^ undeclared identifier
   38  VAR res:PackedBcd;
*****          ^ undeclared identifier
   39  BEGIN
   40    CoreMath._bcd(TEMPREAL(A),NearADR(res));
*****    ^ undeclared identifier
*****             ^ not supported yet
*****                  ^ undeclared identifier
*****                            ^ not supported yet
*****                              ^ undeclared identifier
*****                                      ^ not supported yet
   41    RETURN res;
*****           ^ not supported yet
   42  END LongToBcd;
*****      ^ not supported yet
   43  
   44  
   45  PROCEDURE BcdToLong(A: PackedBcd) : LONGREAL;
*****                         ^ undeclared identifier
   46  BEGIN
   47      RETURN InternalBcdToLong(A);
*****             ^ not supported yet
*****                               ^ not supported yet
   48  END BcdToLong;
*****      ^ not supported yet
   49  
   50  PROCEDURE IntPow(X:LONGREAL;K:INTEGER):LONGREAL;
   51  BEGIN
   52      RETURN LONGREAL(CoreMath._pow_int(TEMPREAL(X),K));
*****                      ^ undeclared identifier
*****                               ^ not supported yet
*****                                        ^ undeclared identifier
*****                                                  ^ not supported yet
*****                                                     ^ not supported yet
   53  END IntPow;
*****      ^ not supported yet
   54  
   55  PROCEDURE ATan2(X,Y : LONGREAL) : LONGREAL;
   56  
   57  BEGIN
   58      RETURN CoreMath.atan2(Y, X);
*****             ^ undeclared identifier
*****                      ^ not supported yet
*****                                ^ not supported yet
   59  END ATan2;
*****      ^ not supported yet
   60  
   61  END MATHLIB.
*****      ^ not supported yet

   38 errors