Changeset 270 for trunk/thune/eval.c

Timestamp:

09/06/06 22:52:08 (2 years ago)

Author:

krobillard

Message:

Thune - Created thread.c

Files:

• trunk/thune/eval.c (modified) (1 diff)

trunk/thune/eval.c

@@ -1410 +1410 @@
     }
     return UR_EVAL_OK;
-}
-
-
-/**
-  Pops TOS and returns cell pointer.
-*/
-UCell* ur_result( UThread* ur_thread, int pop )
-{
-    UCell* tos = UR_TOS;
-    if( pop )
-    {
-        UR_S_SAFE_DROP;
-    }
-    return tos;
-}
-
-
-/**
-  Throw error from call.  The error is pushed onto the stack.
-*/
-void ur_throwErr( UThread* ur_thread, int exceptionType, const char* fmt, ... )
-{
-#define MAX_ERR_LEN 256
-    UCell* tos;
-    UString* str;
-    UIndex strN;
-    char* cp;
-    va_list arg;
-
-    //(void) exceptionType;
-
-    strN = ur_makeBinary( MAX_ERR_LEN );
-    str = ur_binPtr( strN );
-
-    va_start( arg, fmt );
-    vaStrPrint( str->ptr.c, MAX_ERR_LEN, fmt, arg );
-    va_end( arg );
-
-    cp = str->ptr.c;
-    while( *cp != '\0' )
-        ++cp;
-    str->used = cp - str->ptr.c;
-
-    //ur_termCStr( str );
-    //makeError( exceptionType, str );
-    //dprint( str->ptr.c );
-
-    UR_S_GROW;
-    tos = UR_TOS;
-    ur_initType(tos, UT_ERROR);
-    tos->err.exType     = exceptionType;
-    tos->err.messageStr = strN;
-
-    // Init traceBlk to zero before ur_makeBlock() in case GC occurs.
-    tos->err.traceBlk   = 0;
-    tos->err.traceBlk   = ur_makeBlock( 8 );
-
-    UR_CALL_OP = OP_THROW;
 }