Fix printf args for 64-bit archs

Sponsored by:	The FreeBSD Foundation
This commit is contained in:
Ed Maste 2014-04-08 18:02:32 +00:00
parent 6cf1ada9e1
commit f58d027be1
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=264262

View File

@ -201,7 +201,7 @@ static void seeColon(FICL_VM *pVM, CELL *pc)
*cp++ = '>';
else
*cp++ = ' ';
cp += sprintf(cp, "%3d ", pc-param0);
cp += sprintf(cp, "%3d ", (int)(pc-param0));
if (isAFiclWord(pd, pFW))
{
@ -239,40 +239,40 @@ static void seeColon(FICL_VM *pVM, CELL *pc)
case IF:
c = *++pc;
if (c.i > 0)
sprintf(cp, "if / while (branch %d)", pc+c.i-param0);
sprintf(cp, "if / while (branch %d)", (int)(pc+c.i-param0));
else
sprintf(cp, "until (branch %d)", pc+c.i-param0);
sprintf(cp, "until (branch %d)", (int)(pc+c.i-param0));
break;
case BRANCH:
c = *++pc;
if (c.i == 0)
sprintf(cp, "repeat (branch %d)", pc+c.i-param0);
sprintf(cp, "repeat (branch %d)", (int)(pc+c.i-param0));
else if (c.i == 1)
sprintf(cp, "else (branch %d)", pc+c.i-param0);
sprintf(cp, "else (branch %d)", (int)(pc+c.i-param0));
else
sprintf(cp, "endof (branch %d)", pc+c.i-param0);
sprintf(cp, "endof (branch %d)", (int)(pc+c.i-param0));
break;
case OF:
c = *++pc;
sprintf(cp, "of (branch %d)", pc+c.i-param0);
sprintf(cp, "of (branch %d)", (int)(pc+c.i-param0));
break;
case QDO:
c = *++pc;
sprintf(cp, "?do (leave %d)", (CELL *)c.p-param0);
sprintf(cp, "?do (leave %d)", (int)((CELL *)c.p-param0));
break;
case DO:
c = *++pc;
sprintf(cp, "do (leave %d)", (CELL *)c.p-param0);
sprintf(cp, "do (leave %d)", (int)((CELL *)c.p-param0));
break;
case LOOP:
c = *++pc;
sprintf(cp, "loop (branch %d)", pc+c.i-param0);
sprintf(cp, "loop (branch %d)", (int)(pc+c.i-param0));
break;
case PLOOP:
c = *++pc;
sprintf(cp, "+loop (branch %d)", pc+c.i-param0);
sprintf(cp, "+loop (branch %d)", (int)(pc+c.i-param0));
break;
default:
sprintf(cp, "%.*s", pFW->nName, pFW->name);