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

Comparing ray/src/common/calfunc.c (file contents):
Revision 2.26 by greg, Thu Sep 16 23:48:47 2021 UTC vs.
Revision 2.28 by greg, Fri Apr 8 23:32:25 2022 UTC

# Line 358 | Line 358 | libfunc(                               /* execute library function */
358              errno = ERANGE;
359      }
360   #endif
361 <    if (errno == EDOM || errno == ERANGE) {
361 >    if ((errno == EDOM) | (errno == ERANGE)) {
362          wputs(fname);
363          if (errno == EDOM)
364                  wputs(": domain error\n");
# Line 396 | Line 396 | l_select(char *nm)     /* return argument #(A1+1) */
396          double  a1 = argument(1);
397          int  n = (int)(a1 + .5);
398  
399 <        if (a1 < -.5 || n >= narg) {
399 >        if ((a1 < -.5) | (n >= narg)) {
400                  errno = EDOM;
401                  return(0.0);
402          }
# Line 412 | Line 412 | l_max(char *nm)                /* general maximum function */
412          int  n = nargum();
413          double  vmax = argument(1);
414  
415 <        while (--n) {
416 <                double  v = argument(n);
415 >        while (n > 1) {
416 >                double  v = argument(n--);
417                  if (vmax < v)
418                          vmax = v;
419          }
# Line 427 | Line 427 | l_min(char *nm)                /* general minimum function */
427          int  n = nargum();
428          double  vmin = argument(1);
429  
430 <        while (--n) {
431 <                double  v = argument(n);
430 >        while (n > 1) {
431 >                double  v = argument(n--);
432                  if (vmin > v)
433                          vmin = v;
434          }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines