24 lines
575 B
Plaintext
24 lines
575 B
Plaintext
$NetBSD: patch-ac,v 1.2 2015/12/29 23:34:57 dholland Exp $
|
|
|
|
Handle floating values properly.
|
|
|
|
--- 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);
|