stretch_big to increse c.bgnm.size

k-okada · k-okada · commit 52083dbc0418 · 2020-05-25T12:37:26.000Z
diff --git a/lisp/c/big.c b/lisp/c/big.c
@@ -364,6 +364,7 @@ eusinteger_t i;
   for (j=0; j<vlen; j++) newv->c.ivec.iv[j]=bn->c.ivec.iv[j];
   newv->c.ivec.iv[vlen]=i;
   pointer_update(x->c.bgnm.bv, newv);
+  x->c.bgnm.size=makeint(vlen+1);
   return(newv);
   }
 

Original file line number	Diff line number	Diff line change
`@@ -364,6 +364,7 @@ eusinteger_t i;`
`364`	`364`	`for (j=0; j<vlen; j++) newv->c.ivec.iv[j]=bn->c.ivec.iv[j];`
`365`	`365`	`newv->c.ivec.iv[vlen]=i;`
`366`	`366`	`pointer_update(x->c.bgnm.bv, newv);`
	`367`	`+ x->c.bgnm.size=makeint(vlen+1);`
`367`	`368`	`return(newv);`
`368`	`369`	`}`
`369`	`370`