Make ficl work on sparc64. The assumption that int == long == void * is
very pervasive in this code. This fixes a few of those assumptions and band-aids over some others. Tested on: ia32 alpha sparc64 Reviewed by: peter jake (in concept)
This commit is contained in:
parent
88268f8f47
commit
f1757c6ee7
@ -104,7 +104,7 @@ int ficlParsePrefix(FICL_VM *pVM, STRINGINFO si)
|
||||
vmSetTibIndex(pVM, si.cp + n - pVM->tib.cp );
|
||||
vmExecute(pVM, pFW);
|
||||
|
||||
return FICL_TRUE;
|
||||
return (int)FICL_TRUE;
|
||||
}
|
||||
pFW = pFW->link;
|
||||
}
|
||||
|
@ -732,7 +732,7 @@ static void ficlSprintf(FICL_VM *pVM) /* */
|
||||
int base = 10;
|
||||
int unsignedInteger = FALSE;
|
||||
|
||||
int append = FICL_TRUE;
|
||||
FICL_INT append = FICL_TRUE;
|
||||
|
||||
while (format < formatStop)
|
||||
{
|
||||
@ -816,7 +816,7 @@ static void ficlSprintf(FICL_VM *pVM) /* */
|
||||
}
|
||||
}
|
||||
|
||||
if (append == FICL_TRUE)
|
||||
if (append != FICL_FALSE)
|
||||
{
|
||||
if (!desiredLength)
|
||||
desiredLength = actualLength;
|
||||
@ -1262,7 +1262,7 @@ static void ifParen(FICL_VM *pVM)
|
||||
}
|
||||
else
|
||||
{ /* take branch (to else/endif/begin) */
|
||||
vmBranchRelative(pVM, *(int *)(pVM->ip));
|
||||
vmBranchRelative(pVM, (uintptr_t)*(pVM->ip));
|
||||
}
|
||||
|
||||
return;
|
||||
@ -1311,7 +1311,7 @@ static void elseCoIm(FICL_VM *pVM)
|
||||
|
||||
static void branchParen(FICL_VM *pVM)
|
||||
{
|
||||
vmBranchRelative(pVM, *(int *)(pVM->ip));
|
||||
vmBranchRelative(pVM, (uintptr_t)*(pVM->ip));
|
||||
return;
|
||||
}
|
||||
|
||||
@ -1473,7 +1473,7 @@ static int ficlParseWord(FICL_VM *pVM, STRINGINFO si)
|
||||
}
|
||||
|
||||
vmExecute(pVM, tempFW);
|
||||
return FICL_TRUE;
|
||||
return (int)FICL_TRUE;
|
||||
}
|
||||
}
|
||||
|
||||
@ -1489,7 +1489,7 @@ static int ficlParseWord(FICL_VM *pVM, STRINGINFO si)
|
||||
{
|
||||
dictAppendCell(dp, LVALUEtoCELL(tempFW));
|
||||
}
|
||||
return FICL_TRUE;
|
||||
return (int)FICL_TRUE;
|
||||
}
|
||||
}
|
||||
|
||||
@ -1922,7 +1922,7 @@ static void loopParen(FICL_VM *pVM)
|
||||
else
|
||||
{ /* update index, branch to loop head */
|
||||
stackSetTop(pVM->rStack, LVALUEtoCELL(index));
|
||||
vmBranchRelative(pVM, *(int *)(pVM->ip));
|
||||
vmBranchRelative(pVM, (uintptr_t)*(pVM->ip));
|
||||
}
|
||||
|
||||
return;
|
||||
@ -1957,7 +1957,7 @@ static void plusLoopParen(FICL_VM *pVM)
|
||||
else
|
||||
{ /* update index, branch to loop head */
|
||||
stackSetTop(pVM->rStack, LVALUEtoCELL(index));
|
||||
vmBranchRelative(pVM, *(int *)(pVM->ip));
|
||||
vmBranchRelative(pVM, (uintptr_t)*(pVM->ip));
|
||||
}
|
||||
|
||||
return;
|
||||
|
Loading…
Reference in New Issue
Block a user