mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2025-01-01 00:33:09 +00:00
0df5f9fb7e
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@12875 91177308-0d34-0410-b5e6-96231b3b80d8
65 lines
1.7 KiB
C
65 lines
1.7 KiB
C
/* Copyright (c) 1988 Bellcore
|
|
** All Rights Reserved
|
|
** Permission is granted to copy or use this program, EXCEPT that it
|
|
** may not be sold for profit, the copyright notice must be reproduced
|
|
** on copies, and credit should be given to Bellcore where it is due.
|
|
** BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
|
|
*/
|
|
|
|
#include "float.h"
|
|
|
|
#ifndef T_INCLUDED
|
|
/*
|
|
** values for tol_type
|
|
*/
|
|
#define T_ABSOLUTE 0
|
|
#define T_RELATIVE 1
|
|
#define T_IGNORE 2
|
|
|
|
typedef struct _T_tstr{
|
|
int tol_type; /* one of the above */
|
|
F_float flo_tol; /* tolerance is expressed in
|
|
terms of a floating point value */
|
|
struct _T_tstr *next;
|
|
} _T_struct, *T_tol;
|
|
|
|
#define _T_TOLMAX 10 /* number of tolerances that can
|
|
be in effect at one time */
|
|
|
|
#define _T_ADEF "1e-10" /* default absolute tolerance */
|
|
#define _T_RDEF "1e-10" /* default relative tolerance */
|
|
|
|
extern T_tol T_gettol();
|
|
extern void T_clear_tols();
|
|
extern void T_initdefault();
|
|
extern void T_setdef();
|
|
extern void T_tolline();
|
|
extern T_tol T_picktol();
|
|
|
|
#define T_gettype(x) (x->tol_type)
|
|
#define T_getfloat(x) (x->flo_tol)
|
|
#define T_getnext(x) (x->next)
|
|
|
|
#define T_settype(x,y) (x->tol_type = y)
|
|
#define T_setfloat(x,y) (x->flo_tol = y)
|
|
#define T_setnext(x,y) (x->next = y)
|
|
|
|
#define _T_null ((T_tol) 0)
|
|
#define T_isnull(x) ((x) == _T_null)
|
|
|
|
extern T_tol _T_gtol;
|
|
extern void _T_addtol();
|
|
extern void _T_appendtols();
|
|
|
|
/*
|
|
** routines for building the global tolerance list
|
|
*/
|
|
#define T_defatol(x) _T_addtol(&_T_gtol,T_ABSOLUTE,x)
|
|
#define T_defrtol(x) _T_addtol(&_T_gtol,T_RELATIVE,x)
|
|
#define T_defitol() _T_addtol(&_T_gtol,T_IGNORE,(char*)NULL)
|
|
|
|
#define _T_SEPCHAR ';'
|
|
|
|
#define T_INCLUDED
|
|
#endif
|