git: 9front

Info  •  Files  •  Log  •  Branches

mpc: use new strtomp() c-style prefixes to parse integer constants

--- a/sys/src/cmd/mpc.y

+++ b/sys/src/cmd/mpc.y

@@ -579,7 +579,9 @@

 		return nil;

 	if(f->c == NUM){

-		m = strtomp(f->s->n, nil, 10, nil);

+		m = strtomp(f->s->n, nil, 0, nil);

+		if(m == nil)

+			diag(f, "bad constant");

 		if(mpcmp(m, mpzero) == 0){

 			f->c = NAME;

 			f->s = sym("mpzero");

@@ -643,7 +645,9 @@

 	switch(f->c){

 	case NUM:

-		m = strtomp(f->s->n, nil, 10, nil);

+		m = strtomp(f->s->n, nil, 0, nil);

+		if(m == nil)

+			diag(f, "bad constant");

 		if(mpsignif(m) <= 32)

 			cprint("uitomp(%udUL, %N);\n", mptoui(m), t);

 		else if(mpsignif(m) <= 64)

-- 

⑨