Changeset 172 for trunk/thune/eval.c

Show
Ignore:
Timestamp:
06/08/06 01:12:46 (3 years ago)
Author:
krobillard
Message:

Thune - Implemented datatype typemask.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/thune/eval.c

    r168 r172  
    418418        if( ! _verifyType( it++, dt++ ) ) 
    419419        { 
     420            UString* str; 
     421 
    420422            --it; 
    421423            --dt; 
    422424            ur_throwErr( ur_thread, UR_EX_DATATYPE, 
    423                          "verify found %s! at TOS-%d; expected %s!", 
     425                         "verify found %s! at TOS-%d; expected ", 
    424426                         ur_typeName( ur_type(it) ), 
    425                          count - (int) (end - it), 
    426                          ur_typeName( ur_datatype(dt) ) ); 
     427                         count - (int) (end - it) ); 
     428            str = ur_binPtr( UR_TOS->err.messageStr ); 
     429            ur_toStr( dt, str, 0 ); 
     430 
    427431            //_appendTraceBlk( &UR_TOS->err, blkN, pc - start ); 
    428432            UR_CALL_OP = 0;