Fix printf args for 64-bit archs
Sponsored by: The FreeBSD Foundation
This commit is contained in:
parent
6cf1ada9e1
commit
f58d027be1
@ -201,7 +201,7 @@ static void seeColon(FICL_VM *pVM, CELL *pc)
|
|||||||
*cp++ = '>';
|
*cp++ = '>';
|
||||||
else
|
else
|
||||||
*cp++ = ' ';
|
*cp++ = ' ';
|
||||||
cp += sprintf(cp, "%3d ", pc-param0);
|
cp += sprintf(cp, "%3d ", (int)(pc-param0));
|
||||||
|
|
||||||
if (isAFiclWord(pd, pFW))
|
if (isAFiclWord(pd, pFW))
|
||||||
{
|
{
|
||||||
@ -239,40 +239,40 @@ static void seeColon(FICL_VM *pVM, CELL *pc)
|
|||||||
case IF:
|
case IF:
|
||||||
c = *++pc;
|
c = *++pc;
|
||||||
if (c.i > 0)
|
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
|
else
|
||||||
sprintf(cp, "until (branch %d)", pc+c.i-param0);
|
sprintf(cp, "until (branch %d)", (int)(pc+c.i-param0));
|
||||||
break;
|
break;
|
||||||
case BRANCH:
|
case BRANCH:
|
||||||
c = *++pc;
|
c = *++pc;
|
||||||
if (c.i == 0)
|
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)
|
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
|
else
|
||||||
sprintf(cp, "endof (branch %d)", pc+c.i-param0);
|
sprintf(cp, "endof (branch %d)", (int)(pc+c.i-param0));
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case OF:
|
case OF:
|
||||||
c = *++pc;
|
c = *++pc;
|
||||||
sprintf(cp, "of (branch %d)", pc+c.i-param0);
|
sprintf(cp, "of (branch %d)", (int)(pc+c.i-param0));
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case QDO:
|
case QDO:
|
||||||
c = *++pc;
|
c = *++pc;
|
||||||
sprintf(cp, "?do (leave %d)", (CELL *)c.p-param0);
|
sprintf(cp, "?do (leave %d)", (int)((CELL *)c.p-param0));
|
||||||
break;
|
break;
|
||||||
case DO:
|
case DO:
|
||||||
c = *++pc;
|
c = *++pc;
|
||||||
sprintf(cp, "do (leave %d)", (CELL *)c.p-param0);
|
sprintf(cp, "do (leave %d)", (int)((CELL *)c.p-param0));
|
||||||
break;
|
break;
|
||||||
case LOOP:
|
case LOOP:
|
||||||
c = *++pc;
|
c = *++pc;
|
||||||
sprintf(cp, "loop (branch %d)", pc+c.i-param0);
|
sprintf(cp, "loop (branch %d)", (int)(pc+c.i-param0));
|
||||||
break;
|
break;
|
||||||
case PLOOP:
|
case PLOOP:
|
||||||
c = *++pc;
|
c = *++pc;
|
||||||
sprintf(cp, "+loop (branch %d)", pc+c.i-param0);
|
sprintf(cp, "+loop (branch %d)", (int)(pc+c.i-param0));
|
||||||
break;
|
break;
|
||||||
default:
|
default:
|
||||||
sprintf(cp, "%.*s", pFW->nName, pFW->name);
|
sprintf(cp, "%.*s", pFW->nName, pFW->name);
|
||||||
|
Loading…
x
Reference in New Issue
Block a user