ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/Development/ray/src/common/calexpr.c
(Generate patch)

Comparing ray/src/common/calexpr.c (file contents):
Revision 2.47 by greg, Sun Feb 25 04:11:10 2024 UTC vs.
Revision 2.48 by greg, Sun Feb 25 04:41:44 2024 UTC

# Line 218 | Line 218 | epflatten(                     /* flatten hierarchies for '+', '*' */
218   {
219      EPNODE      *ep;
220  
221 <    if (epar->nkids < 0) {
222 <        eputs("Cannot flatten EPNODE array\n");
223 <        quit(1);
224 <    }
221 >    if (epar->nkids < 0)        /* can't handle array allocations */
222 >        return;
223 >
224      for (ep = epar->v.kid; ep != NULL; ep = ep->sibling)
225 <        while (ep->type == epar->type) {
225 >        while (ep->type == epar->type && ep->nkids > 0) {
226              EPNODE      *ep1 = ep->v.kid;
227              while (ep1->sibling != NULL)
228                  ep1 = ep1->sibling;
229              ep1->sibling = ep->sibling;
230 <            epar->nkids += nekids(ep) - 1;
230 >            epar->nkids += ep->nkids - 1;
231              ep1 = ep->v.kid;
232              *ep = *ep1;
233              efree(ep1);         /* not epfree()! */
# Line 347 | Line 346 | edivi(
346   )
347   {
348      EPNODE  *ep1 = ep->v.kid;
349 <    EPNODE  *ep2 = ep1->sibling;
351 <    double  d;
349 >    double  den = evalue(ep1->sibling);
350  
351 <    d = evalue(ep2);
354 <    if (d == 0.0) {
351 >    if (den == 0.0) {
352          wputs("Division by zero\n");
353          errno = ERANGE;
354          return(0.0);
355      }
356 <    return(envalue(ep1) / d);
356 >    return(envalue(ep1) / den);
357   }
358  
359   static double

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)