[Git][cmucl/cmucl][rtoy-fix-40-map-heap-higher] 2 commits: Fix compiler warning.

Raymond Toy rtoy at common-lisp.net
Wed Aug 30 00:30:38 UTC 2017


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/aba0bc5c5e47f4c25c52b4498761da5610a97b74...535b4f0ea4b9afcd1c84724d094a322df00aef27

---
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/aba0bc5c5e47f4c25c52b4498761da5610a97b74...535b4f0ea4b9afcd1c84724d094a322df00aef27
You're receiving this email because of your account on gitlab.common-lisp.net.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20170830/628fa14f/attachment-0001.html>


More information about the cmucl-cvs mailing list