| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105 |
- 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
|
