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:

 	|| 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;

 }

     /* 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;