22 lines
536 B
Text
22 lines
536 B
Text
|
$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);
|