Added Mathlib; MathLib0 now uses Mathlib

lang/m2/libm2/FIFFEF.e

@@ -2,50 +2,45 @@
  mes 2,EM_WSIZE,EM_PSIZE
 
 #define ARG1    0
-#define ARG2    EM_FSIZE
-#define IRES    2*EM_FSIZE
+#define ARG2    EM_DSIZE
+#define IRES    2*EM_DSIZE
 
-; FIFFEF_FIF is called with three parameters:
+; FIF is called with three parameters:
 ;       - address of integer part result (IRES)
 ;       - float two (ARG2)
 ;       - float one (ARG1)
-; and returns an EM_FSIZE-byte floating point number
+; and returns an EM_DSIZE-byte floating point number
 ; Definition:
-;	PROCEDURE FIF(ARG1, ARG2: REAL; VAR IRES: REAL) : REAL;
+;	PROCEDURE FIF(ARG1, ARG2: LONGREAL; VAR IRES: LONGREAL) : LONGREAL;
 
- exp $FIFFEF_FIF
- pro $FIFFEF_FIF,0
+ exp $FIF
+ pro $FIF,0
  lal 0
- loi 2*EM_FSIZE
- fif EM_FSIZE
+ loi 2*EM_DSIZE
+ fif EM_DSIZE
  lal IRES
  loi EM_PSIZE
- sti EM_FSIZE
- ret EM_FSIZE
+ sti EM_DSIZE
+ ret EM_DSIZE
  end ?
 
 #define FARG    0
-#define ERES    EM_FSIZE
+#define ERES    EM_DSIZE
 
-; FIFFEF_FEF is called with two parameters:
+; FEF is called with two parameters:
 ;       - address of base 2 exponent result (ERES)
 ;       - floating point number to be split (FARG)
-; and returns an EM_FSIZE-byte floating point number (the mantissa)
+; and returns an EM_DSIZE-byte floating point number (the mantissa)
 ; Definition:
-;	PROCEDURE FEF(FARG: REAL; VAR ERES: integer): REAL;
+;	PROCEDURE FEF(FARG: LONGREAL; VAR ERES: integer): LONGREAL;
 
- exp $FIFFEF_FEF
- pro $FIFFEF_FEF,0
+ exp $FEF
+ pro $FEF,0
  lal FARG
- loi EM_FSIZE
- fef EM_FSIZE
+ loi EM_DSIZE
+ fef EM_DSIZE
  lal ERES
  loi EM_PSIZE
  sti EM_WSIZE
- ret EM_FSIZE
- end ?
-
- exp $FIFFEF
- pro $FIFFEF,0
- ret 0
+ ret EM_DSIZE
  end ?