blob: 5aece347fccf373ed26e087d9cf6b450fe19784e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
/* Float object interface */
/*
floatobject represents a (double precision) floating point number.
*/
typedef struct {
OB_HEAD
double ob_fval;
} floatobject;
extern typeobject Floattype;
#define is_floatobject(op) ((op)->ob_type == &Floattype)
extern object *newfloatobject PROTO((double));
extern double getfloatvalue PROTO((object *));
/* Macro, trading safety for speed */
#define GETFLOATVALUE(op) ((op)->ob_fval)
|
