diff options
Diffstat (limited to 'lang/vslisp/patches/patch-ae')
-rw-r--r-- | lang/vslisp/patches/patch-ae | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/lang/vslisp/patches/patch-ae b/lang/vslisp/patches/patch-ae new file mode 100644 index 00000000000..29628174517 --- /dev/null +++ b/lang/vslisp/patches/patch-ae @@ -0,0 +1,41 @@ +$NetBSD: patch-ae,v 1.1 2002/03/15 00:22:43 jmc Exp $ + +--- src/lcore.c.orig Fri Mar 15 00:16:32 2002 ++++ src/lcore.c Fri Mar 15 00:16:44 2002 +@@ -113,7 +113,7 @@ + case 1: sprintf(TeXt,"[^H]");return TeXt; + case 2: sprintf(TeXt,"[^F]");return TeXt; + case 3: sprintf(TeXt,"[^T]");return TeXt; +- case 4: sprintf(TeXt,"%g",*(double*)(a->a)); return TeXt; ++ case 4: sprintf(TeXt,"%g",a->d); return TeXt; + case 6: sprintf(TeXt,"%d",*(int*)(a->a)); return TeXt; + case 5: sprintf(TeXt,"[^II]");return TeXt; + case 8: sprintf(TeXt,"[^IF]");return TeXt; +@@ -180,6 +180,7 @@ + tmp->a=(char *)malloc(sizeof(double)); + dd=(double *)(tmp->a); + (*dd)=d; ++ tmp->d = d; + tmp->g=1;tmp->f=4<<1;tmp->b=NULL; + return tmp; + } +@@ -197,9 +198,7 @@ + /*--X FNAME: "GetDouble" DESC: "Takes a double from atom a" */ + double GetDbleOld(ATOM a) + { +- double *dd; +- dd=(double*)(a->a); +- return *dd; ++ return a->d; + } + + /*--X VNAME: "Pos" DESC: "Temporary variable for a string to list conversion" */ +@@ -249,7 +248,7 @@ + { + double *d; + t=mkatm(sizeof(double));t->f=4<<1; +- d=(double*)(t->a); ++ d=&t->d; + sscanf(c,"%lf",d); + } + return t; |