distrib/sources/tas/tas/tas_matherr.c

   1 /****************************************************************************/
   2 /*                                                                          */
   3 /*                      Chaine de CAO & VLSI   Alliance                     */
   4 /*                                                                          */
   5 /*    Produit : TAS Verison 5                                               */
   6 /*    Fichier : tas_matherr.c                                               */
   7 /*                                                                          */
   8 /*    (c) copyright 1991-1998 Laboratoire LIP6 equipe ASIM                  */
   9 /*    Tous droits reserves                                                  */
  10 /*    Support : e-mail alliance-support@asim.lip6.fr                        */
  11 /*                                                                          */
  12 /*    Auteur(s) : Payam KIANI                                               */
  13 /*                Karim DIOURY                                              */
  14 /*                                                                          */
  15 /****************************************************************************/
  16 /* recuperation des erreurs mathematiques au lieu du systeme                */
  17 /****************************************************************************/
  18
  19 #include "tas.h"
  20
  21 /****************************************************************************/
  22 /*                          fonction matherr()                              */
  23 /* pour debugger les calculs mathematiques.                                 */
  24 /****************************************************************************/
  25 int matherr(x)
  26 register struct exception *x;
  27
  28 {
  29 tas_error(17,(char *)x,TAS_ERROR) ;
  30 return(0);
  31 }