blob: d3451169f9b50de33a0451db30306340f816221e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
$NetBSD: patch-ac,v 1.1 2002/03/15 00:22:42 jmc Exp $
--- src/l_defs.h.orig Fri Mar 15 00:16:28 2002
+++ src/l_defs.h Fri Mar 15 00:16:40 2002
@@ -69,6 +69,7 @@
uc * a;
/** Additional information */
uc * b;
+ double d;
};
/** ATOM pointer */
typedef struct _ato * ATOM;
@@ -141,7 +142,7 @@
ATOM MakeDAtom(double d);
ATOM MakeFAtom(FILE *d);
/* double GetDouble(ATOM a); */
-#define GetDouble(at) (*((double *)((at)->a)))
+#define GetDouble(at) ((at)->d)
int kilatom(ATOM a);
int killlist(LIST l);
int kilat(ATOM a);
|
