OBJ
readNumber(OBJ inStream, char firstChar, int isNegative){
//printf(YEL "\nreadNumber>" RESET);
/*
* TO-DO refactor!
*/
jscheme_int64 *iVal = NULL;
char ch;
OBJ retVal;
// substract the ASCII value of '0' from char to get the actual value between 0 and 9.
jscheme_int64 start = (jscheme_int64) firstChar - '0';
if(isNegative) start *= -1;
iVal = &start;
while( isDigit( ch = nextChar(inStream) )){
//iVal = iVal * 10 + ( (int)ch - '0');
jscheme_int64 ch_val = (jscheme_int64) ch - '0';
if(isNegative){
int mul = __builtin_smull_overflow(*iVal, 10, iVal);
int sub = __builtin_ssubl_overflow(*iVal, ch_val, iVal);
if( mul || sub ){
if(thisIsTheEnd(inStream)){
prompt_on();
}
js_error("readNumber: integer underflow", newInteger(*iVal));
}
}else{
int mul = __builtin_smull_overflow(*iVal, 10, iVal);
int add = __builtin_saddl_overflow(*iVal, ch_val, iVal);
if( mul || add ){
if(thisIsTheEnd(inStream)){
prompt_on();
}
js_error("readNumber: integer overflow", newInteger(*iVal));
}
}
}
unreadChar(inStream, ch);
retVal = newInteger( *iVal );
return retVal;
}
OBJ
builtin_plus(int numArgs){
jscheme_int64 start = 0;
jscheme_int64 *sum = NULL;
sum = &start;
int i;
for(i = 0; i < numArgs; i++){
OBJ theArg = POP();
if( !ISINTEGER(theArg)){
POPN((numArgs - 1) - i);
js_error("(+): non-integer argument", theArg);
}
if(__builtin_saddl_overflow( *sum, INTVAL(theArg), sum)){
// clean evalStack
POPN((numArgs - 1) - i);
js_error("(+): integer overflow", newInteger(*sum));
};
}
return newInteger(*sum);
}
// Could add this to the others, but the inliner should be smart enough
// that this isn't needed:
extern "C" Box* add_i64_i64(i64 lhs, i64 rhs) {
i64 result;
if (!__builtin_saddl_overflow(lhs, rhs, &result))
return boxInt(result);
return longAdd(boxLong(lhs), boxLong(rhs));
}
