Raymond Toy pushed to branch rtoy-fix-40-map-heap-higher at cmucl / cmucl

Commits: 48a1c32a by Raymond Toy at 2017-08-29T16:51:13-07:00 Fix compiler warning.

./../src/lisp/k_rem_pio2.c:171:6: warning: this ‘for’ clause does not guard... [-Wmisleading-indentation] for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw; ^~~ ../../src/lisp/k_rem_pio2.c:171:54: note: ...this statement, but the latter is misleadingly indented as if it is guarded by the ‘for’ for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw; ^

Just move the q stuff down a line.

- - - - - 535b4f0e by Raymond Toy at 2017-08-29T17:25:35-07:00 Fix compiler warning in valid_addr

Cast control_stack and binding_stack to lispobj.

- - - - -

2 changed files:

- src/lisp/Linux-os.c - src/lisp/k_rem_pio2.c

Changes:

===================================== src/lisp/Linux-os.c ===================================== --- a/src/lisp/Linux-os.c +++ b/src/lisp/Linux-os.c @@ -385,8 +385,8 @@ valid_addr(os_vm_address_t addr) || in_range_p(addr, STATIC_SPACE_START, static_space_size) || in_range_p(addr, DYNAMIC_0_SPACE_START, dynamic_space_size) || in_range_p(addr, DYNAMIC_1_SPACE_START, dynamic_space_size) - || in_range_p(addr, control_stack, control_stack_size) - || in_range_p(addr, binding_stack, binding_stack_size)) + || in_range_p(addr, (lispobj) control_stack, control_stack_size) + || in_range_p(addr, (lispobj) binding_stack, binding_stack_size)) return TRUE; return FALSE; }

===================================== src/lisp/k_rem_pio2.c ===================================== --- a/src/lisp/k_rem_pio2.c +++ b/src/lisp/k_rem_pio2.c @@ -168,7 +168,8 @@ int __kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec, const int

/* compute q[0],q[1],...q[jk] */ for (i=0;i<=jk;i++) { - for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw; + for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; + q[i] = fw; }

jz = jk;

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/aba0bc5c5e47f4c25c52b4498...

--- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/aba0bc5c5e47f4c25c52b4498... You're receiving this email because of your account on gitlab.common-lisp.net.