workbench/libs/mathieeedoubbas/mathieeedoubbas_init.c

   1 /*
   2     Copyright © 1995-2006, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Init of mathieeedoubbas.library
   6     Lang: english
   7 */
   8 #include <utility/utility.h> /* this must be before mathieeedoubbas_intern.h */
   9
  10 #include <aros/symbolsets.h>
  11
  12 #include "mathieeedoubbas_intern.h"
  13 #include LC_LIBDEFS_FILE
  14
  15 #define DEBUG 0
  16 #include <aros/debug.h>
  17 #undef kprintf
  18
  19 /* */
  20 #define SetFunc(a,b) SetFunction((struct Library *)lh, (LONG)(a * -LIB_VECTSIZE), AROS_SLIB_ENTRY(b,MathIeeeDoubBas,a))
  21
  22 extern QUAD AROS_SLIB_ENTRY(FPU_IEEEDPFix,MathIeeeDoubBas,5)();
  23 extern QUAD AROS_SLIB_ENTRY(FPU_IEEEDPFlt,MathIeeeDoubBas,6)();
  24 extern QUAD AROS_SLIB_ENTRY(FPU_IEEEDPMul,MathIeeeDoubBas,13)();
  25 extern QUAD AROS_SLIB_ENTRY(FPU_IEEEDPDiv,MathIeeeDoubBas,14)();
  26
  27 static int IEEEDP_Init(LIBBASETYPEPTR lh)
  28 {
  29 /*
  30     SetFunc( 6, FPU_IEEEDPFlt);
  31 */
  32     SetFunc(13, FPU_IEEEDPMul);
  33     SetFunc(14, FPU_IEEEDPDiv);
  34
  35     return TRUE;
  36 } /* L_InitLib */
  37
  38 ADD2INITLIB(IEEEDP_Init, 0)