Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
8ac7e849
by Raymond Toy at 2017-11-04T21:31:06-07:00
-
4abbe215
by Raymond Toy at 2017-11-04T21:33:00-07:00
2 changed files:
Changes:
... | ... | @@ -168,7 +168,9 @@ int __kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec, const int |
168 | 168 |
|
169 | 169 |
/* compute q[0],q[1],...q[jk] */
|
170 | 170 |
for (i=0;i<=jk;i++) {
|
171 |
- for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw;
|
|
171 |
+ for(j=0,fw=0.0;j<=jx;j++)
|
|
172 |
+ fw += x[j]*f[jx+i-j];
|
|
173 |
+ q[i] = fw;
|
|
172 | 174 |
}
|
173 | 175 |
|
174 | 176 |
jz = jk;
|
... | ... | @@ -354,7 +354,7 @@ print_struct(lispobj obj) |
354 | 354 |
{
|
355 | 355 |
struct instance *instance = (struct instance *) PTR(obj);
|
356 | 356 |
int i;
|
357 |
- char buffer[16];
|
|
357 |
+ char buffer[32];
|
|
358 | 358 |
|
359 | 359 |
print_obj("type: ", ((struct instance *) PTR(obj))->slots[0]);
|
360 | 360 |
for (i = 1; i < HeaderValue(instance->header); i++) {
|