lang/vslisp/patches/patch-ae

   1 $NetBSD$
   2
   3 --- src/lcore.c.orig    Fri Mar 15 00:16:32 2002
   4 +++ src/lcore.c Fri Mar 15 00:16:44 2002
   5 @@ -113,7 +113,7 @@
   6    case 1: sprintf(TeXt,"[^H]");return TeXt;
   7    case 2: sprintf(TeXt,"[^F]");return TeXt;
   8    case 3: sprintf(TeXt,"[^T]");return TeXt;
   9 -  case 4: sprintf(TeXt,"%g",*(double*)(a->a)); return TeXt;
  10 +  case 4: sprintf(TeXt,"%g",a->d); return TeXt;
  11    case 6: sprintf(TeXt,"%d",*(int*)(a->a)); return TeXt;
  12    case 5: sprintf(TeXt,"[^II]");return TeXt;
  13    case 8: sprintf(TeXt,"[^IF]");return TeXt;
  14 @@ -180,6 +180,7 @@
  15    tmp->a=(char *)malloc(sizeof(double));
  16    dd=(double *)(tmp->a);
  17    (*dd)=d;
  18 +  tmp->d = d;
  19    tmp->g=1;tmp->f=4<<1;tmp->b=NULL;
  20    return tmp;
  21  }
  22 @@ -197,9 +198,7 @@
  23  /*--X FNAME: "GetDouble" DESC: "Takes a double from atom a" */
  24  double GetDbleOld(ATOM a)
  25  {
  26 -  double *dd;
  27 -  dd=(double*)(a->a);
  28 -  return *dd;
  29 +  return a->d;
  30  }
  31
  32  /*--X VNAME: "Pos" DESC: "Temporary variable for a string to list conversion" */
  33 @@ -249,7 +248,7 @@
  34      {
  35        double *d;
  36        t=mkatm(sizeof(double));t->f=4<<1;
  37 -      d=(double*)(t->a);
  38 +      d=&t->d;
  39        sscanf(c,"%lf",d);
  40      }
  41    return t;