shithub: riscv

Info  •  Files  •  Log  •  Branches

libmach: fix reading .7 objects containing instructions with an extra register (from3)

--- a/sys/src/libmach/7obj.c

+++ b/sys/src/libmach/7obj.c

@@ -70,8 +70,11 @@

 		p->kind = aText;

 	else if(as == AGLOBL)

 		p->kind = aData;

-	skip(bp, 5);		/* reg(1) lineno(4) */

+	n = (uchar)Bgetc(bp);	/* reg and flag (1) */

+	skip(bp, 4);		/* lineno(4) */

 	a = addr(bp);

+	if(n & 0x40)

+		addr(bp);	/* from3 */

 	addr(bp);

 	if(a.type != D_OREG || a.name != D_STATIC && a.name != D_EXTERN)

 		p->kind = aNone;