diff options
| author | Cinder <cinder@sdf.org> | 2015-02-08 12:53:39 -0700 |
|---|---|---|
| committer | Cinder <cinder@sdf.org> | 2015-02-08 12:53:39 -0700 |
| commit | ca08bd5aba5e69fce3b0f5b4f861ffec9fe4d2e5 (patch) | |
| tree | 16bdd84d4a0911c80d95d5dc04a3bdd342506e55 /indra/lscript/lscript_execute/lscript_execute.cpp | |
| parent | ae6440eecc4d6c018a3634c2c06052757bde962f (diff) | |
OPEN-292 - Remove lscript from project,
Remove legacy udp script upload methods,
Refactor script runtime perms from three arrays to one struct array so we don't have to juggle array order anymore.
Diffstat (limited to 'indra/lscript/lscript_execute/lscript_execute.cpp')
| -rwxr-xr-x | indra/lscript/lscript_execute/lscript_execute.cpp | 4318 |
1 files changed, 0 insertions, 4318 deletions
diff --git a/indra/lscript/lscript_execute/lscript_execute.cpp b/indra/lscript/lscript_execute/lscript_execute.cpp deleted file mode 100755 index 5eb7ffc5a9..0000000000 --- a/indra/lscript/lscript_execute/lscript_execute.cpp +++ /dev/null @@ -1,4318 +0,0 @@ -/** - * @file lscript_execute.cpp - * @brief classes to execute bytecode - * - * $LicenseInfo:firstyear=2002&license=viewerlgpl$ - * Second Life Viewer Source Code - * Copyright (C) 2010, Linden Research, Inc. - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Lesser General Public - * License as published by the Free Software Foundation; - * version 2.1 of the License only. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Lesser General Public License for more details. - * - * You should have received a copy of the GNU Lesser General Public - * License along with this library; if not, write to the Free Software - * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA - * - * Linden Research, Inc., 945 Battery Street, San Francisco, CA 94111 USA - * $/LicenseInfo$ - */ - -#include "linden_common.h" - -#include <algorithm> -#include <sstream> - -#include "lscript_execute.h" -#include "lltimer.h" -#include "lscript_readlso.h" -#include "lscript_library.h" -#include "lscript_heapruntime.h" -#include "lscript_alloc.h" - - -// Static -const S32 DEFAULT_SCRIPT_TIMER_CHECK_SKIP = 4; -S32 LLScriptExecute::sTimerCheckSkip = DEFAULT_SCRIPT_TIMER_CHECK_SKIP; - -void (*binary_operations[LST_EOF][LST_EOF])(U8 *buffer, LSCRIPTOpCodesEnum opcode); -void (*unary_operations[LST_EOF])(U8 *buffer, LSCRIPTOpCodesEnum opcode); - -const char* LSCRIPTRunTimeFaultStrings[LSRF_EOF] = /*Flawfinder: ignore*/ -{ - "Invalid", // LSRF_INVALID, - "Math Error", // LSRF_MATH, - "Stack-Heap Collision", // LSRF_STACK_HEAP_COLLISION, - "Bounds Check Error", // LSRF_BOUND_CHECK_ERROR, - "Heap Error", // LSRF_HEAP_ERROR, - "Version Mismatch", // LSRF_VERSION_MISMATCH, - "Missing Inventory", // LSRF_MISSING_INVENTORY, - "Hit Sandbox Limit", // LSRF_SANDBOX, - "Chat Overrun", // LSRF_CHAT_OVERRUN, - "Too Many Listens", // LSRF_TOO_MANY_LISTENS, - "Lists may not contain lists", // LSRF_NESTING_LISTS, - "CLI Exception" // LSRF_CLI -}; - -void LLScriptExecuteLSL2::startRunning() {} -void LLScriptExecuteLSL2::stopRunning() {} - -const char* URL_REQUEST_GRANTED = "URL_REQUEST_GRANTED"; -const char* URL_REQUEST_DENIED = "URL_REQUEST_DENIED"; - -// HTTP Requests to LSL scripts will time out after 25 seconds. -const U64 LSL_HTTP_REQUEST_TIMEOUT_USEC = 25 * USEC_PER_SEC; - -LLScriptExecuteLSL2::LLScriptExecuteLSL2(LLFILE *fp) -{ - U8 sizearray[4]; - size_t filesize; - S32 pos = 0; - if (fread(&sizearray, 1, 4, fp) != 4) - { - LL_WARNS() << "Short read" << LL_ENDL; - filesize = 0; - } else { - filesize = bytestream2integer(sizearray, pos); - } - mBuffer = new U8[filesize]; - fseek(fp, 0, SEEK_SET); - if (fread(mBuffer, 1, filesize, fp) != filesize) - { - LL_WARNS() << "Short read" << LL_ENDL; - } - fclose(fp); - - init(); -} - -LLScriptExecuteLSL2::LLScriptExecuteLSL2(const U8* bytecode, U32 bytecode_size) -{ - mBuffer = new U8[TOP_OF_MEMORY]; - memset(mBuffer + bytecode_size, 0, TOP_OF_MEMORY - bytecode_size); - S32 src_offset = 0; - S32 dest_offset = 0; - bytestream2bytestream(mBuffer, dest_offset, bytecode, src_offset, bytecode_size); - mBytecodeSize = bytecode_size; - mBytecode = new U8[mBytecodeSize]; - memcpy(mBytecode, bytecode, mBytecodeSize); - init(); -} - -LLScriptExecute::~LLScriptExecute() {} -LLScriptExecuteLSL2::~LLScriptExecuteLSL2() -{ - delete[] mBuffer; - delete[] mBytecode; -} - -void LLScriptExecuteLSL2::init() -{ - S32 i, j; - - mInstructionCount = 0; - - for (i = 0; i < 256; i++) - { - mExecuteFuncs[i] = run_noop; - } - mExecuteFuncs[LSCRIPTOpCodes[LOPC_NOOP]] = run_noop; - - mExecuteFuncs[LSCRIPTOpCodes[LOPC_POP]] = run_pop; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_POPS]] = run_pops; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_POPL]] = run_popl; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_POPV]] = run_popv; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_POPQ]] = run_popq; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_POPARG]] = run_poparg; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_POPIP]] = run_popip; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_POPBP]] = run_popbp; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_POPSP]] = run_popsp; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_POPSLR]] = run_popslr; - - mExecuteFuncs[LSCRIPTOpCodes[LOPC_DUP]] = run_dup; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_DUPS]] = run_dups; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_DUPL]] = run_dupl; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_DUPV]] = run_dupv; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_DUPQ]] = run_dupq; - - mExecuteFuncs[LSCRIPTOpCodes[LOPC_STORE]] = run_store; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_STORES]] = run_stores; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_STOREL]] = run_storel; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_STOREV]] = run_storev; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_STOREQ]] = run_storeq; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_STOREG]] = run_storeg; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_STOREGL]] = run_storegl; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_STOREGS]] = run_storegs; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_STOREGV]] = run_storegv; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_STOREGQ]] = run_storegq; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_LOADP]] = run_loadp; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_LOADSP]] = run_loadsp; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_LOADLP]] = run_loadlp; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_LOADVP]] = run_loadvp; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_LOADQP]] = run_loadqp; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_LOADGP]] = run_loadgp; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_LOADGSP]] = run_loadgsp; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_LOADGLP]] = run_loadglp; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_LOADGVP]] = run_loadgvp; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_LOADGQP]] = run_loadgqp; - - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSH]] = run_push; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHS]] = run_pushs; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHL]] = run_pushl; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHV]] = run_pushv; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHQ]] = run_pushq; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHG]] = run_pushg; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHGS]] = run_pushgs; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHGL]] = run_pushgl; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHGV]] = run_pushgv; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHGQ]] = run_pushgq; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHIP]] = run_puship; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHSP]] = run_pushsp; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHBP]] = run_pushbp; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHARGB]] = run_pushargb; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHARGI]] = run_pushargi; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHARGF]] = run_pushargf; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHARGS]] = run_pushargs; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHARGV]] = run_pushargv; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHARGQ]] = run_pushargq; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHE]] = run_pushe; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHEV]] = run_pushev; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHEQ]] = run_pusheq; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PUSHARGE]] = run_pusharge; - - mExecuteFuncs[LSCRIPTOpCodes[LOPC_ADD]] = run_add; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_SUB]] = run_sub; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_MUL]] = run_mul; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_DIV]] = run_div; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_MOD]] = run_mod; - - mExecuteFuncs[LSCRIPTOpCodes[LOPC_EQ]] = run_eq; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_NEQ]] = run_neq; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_LEQ]] = run_leq; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_GEQ]] = run_geq; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_LESS]] = run_less; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_GREATER]] = run_greater; - - mExecuteFuncs[LSCRIPTOpCodes[LOPC_BITAND]] = run_bitand; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_BITOR]] = run_bitor; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_BITXOR]] = run_bitxor; - - mExecuteFuncs[LSCRIPTOpCodes[LOPC_BOOLAND]] = run_booland; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_BOOLOR]] = run_boolor; - - mExecuteFuncs[LSCRIPTOpCodes[LOPC_SHL]] = run_shl; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_SHR]] = run_shr; - - mExecuteFuncs[LSCRIPTOpCodes[LOPC_NEG]] = run_neg; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_BITNOT]] = run_bitnot; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_BOOLNOT]] = run_boolnot; - - mExecuteFuncs[LSCRIPTOpCodes[LOPC_JUMP]] = run_jump; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_JUMPIF]] = run_jumpif; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_JUMPNIF]] = run_jumpnif; - - mExecuteFuncs[LSCRIPTOpCodes[LOPC_STATE]] = run_state; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_CALL]] = run_call; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_RETURN]] = run_return; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_CAST]] = run_cast; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_STACKTOS]] = run_stacktos; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_STACKTOL]] = run_stacktol; - - mExecuteFuncs[LSCRIPTOpCodes[LOPC_PRINT]] = run_print; - - mExecuteFuncs[LSCRIPTOpCodes[LOPC_CALLLIB]] = run_calllib; - mExecuteFuncs[LSCRIPTOpCodes[LOPC_CALLLIB_TWO_BYTE]] = run_calllib_two_byte; - - for (i = 0; i < LST_EOF; i++) - { - for (j = 0; j < LST_EOF; j++) - { - binary_operations[i][j] = unknown_operation; - } - } - - binary_operations[LST_INTEGER][LST_INTEGER] = integer_integer_operation; - binary_operations[LST_INTEGER][LST_FLOATINGPOINT] = integer_float_operation; - binary_operations[LST_INTEGER][LST_VECTOR] = integer_vector_operation; - - binary_operations[LST_FLOATINGPOINT][LST_INTEGER] = float_integer_operation; - binary_operations[LST_FLOATINGPOINT][LST_FLOATINGPOINT] = float_float_operation; - binary_operations[LST_FLOATINGPOINT][LST_VECTOR] = float_vector_operation; - - binary_operations[LST_STRING][LST_STRING] = string_string_operation; - binary_operations[LST_STRING][LST_KEY] = string_key_operation; - - binary_operations[LST_KEY][LST_STRING] = key_string_operation; - binary_operations[LST_KEY][LST_KEY] = key_key_operation; - - binary_operations[LST_VECTOR][LST_INTEGER] = vector_integer_operation; - binary_operations[LST_VECTOR][LST_FLOATINGPOINT] = vector_float_operation; - binary_operations[LST_VECTOR][LST_VECTOR] = vector_vector_operation; - binary_operations[LST_VECTOR][LST_QUATERNION] = vector_quaternion_operation; - - binary_operations[LST_QUATERNION][LST_QUATERNION] = quaternion_quaternion_operation; - - binary_operations[LST_INTEGER][LST_LIST] = integer_list_operation; - binary_operations[LST_FLOATINGPOINT][LST_LIST] = float_list_operation; - binary_operations[LST_STRING][LST_LIST] = string_list_operation; - binary_operations[LST_KEY][LST_LIST] = key_list_operation; - binary_operations[LST_VECTOR][LST_LIST] = vector_list_operation; - binary_operations[LST_QUATERNION][LST_LIST] = quaternion_list_operation; - binary_operations[LST_LIST][LST_INTEGER] = list_integer_operation; - binary_operations[LST_LIST][LST_FLOATINGPOINT] = list_float_operation; - binary_operations[LST_LIST][LST_STRING] = list_string_operation; - binary_operations[LST_LIST][LST_KEY] = list_key_operation; - binary_operations[LST_LIST][LST_VECTOR] = list_vector_operation; - binary_operations[LST_LIST][LST_QUATERNION] = list_quaternion_operation; - binary_operations[LST_LIST][LST_LIST] = list_list_operation; - - for (i = 0; i < LST_EOF; i++) - { - unary_operations[i] = unknown_operation; - } - - unary_operations[LST_INTEGER] = integer_operation; - unary_operations[LST_FLOATINGPOINT] = float_operation; - unary_operations[LST_VECTOR] = vector_operation; - unary_operations[LST_QUATERNION] = quaternion_operation; - -} - - -// Utility routine for when there's a boundary error parsing bytecode -void LLScriptExecuteLSL2::recordBoundaryError( const LLUUID &id ) -{ - set_fault(mBuffer, LSRF_BOUND_CHECK_ERROR); - LL_WARNS() << "Script boundary error for ID " << id << LL_ENDL; -} - - -// set IP to the event handler with some error checking -void LLScriptExecuteLSL2::setStateEventOpcoodeStartSafely( S32 state, LSCRIPTStateEventType event, const LLUUID &id ) -{ - S32 opcode_start = get_state_event_opcoode_start( mBuffer, state, event ); - if ( opcode_start == -1 ) - { - recordBoundaryError( id ); - } - else - { - set_ip( mBuffer, opcode_start ); - } -} - - - - -S32 lscript_push_variable(LLScriptLibData *data, U8 *buffer); - -void LLScriptExecuteLSL2::resumeEventHandler(BOOL b_print, const LLUUID &id, F32 time_slice) -{ - // call opcode run function pointer with buffer and IP - mInstructionCount++; - S32 value = get_register(mBuffer, LREG_IP); - S32 tvalue = value; - S32 opcode = safe_instruction_bytestream2byte(mBuffer, tvalue); - mExecuteFuncs[opcode](mBuffer, value, b_print, id); - set_ip(mBuffer, value); - add_register_fp(mBuffer, LREG_ESR, -0.1f); - // lsa_print_heap(mBuffer); - - if (b_print) - { - lsa_print_heap(mBuffer); - printf("ip: 0x%X\n", get_register(mBuffer, LREG_IP)); - printf("sp: 0x%X\n", get_register(mBuffer, LREG_SP)); - printf("bp: 0x%X\n", get_register(mBuffer, LREG_BP)); - printf("hr: 0x%X\n", get_register(mBuffer, LREG_HR)); - printf("hp: 0x%X\n", get_register(mBuffer, LREG_HP)); - } - - // NOTE: Babbage: all mExecuteFuncs return false. -} - -void LLScriptExecuteLSL2::callEventHandler(LSCRIPTStateEventType event, const LLUUID &id, F32 time_slice) -{ - S32 major_version = getMajorVersion(); - // push a zero to be popped - lscript_push(mBuffer, 0); - // push sp as current bp - S32 sp = get_register(mBuffer, LREG_SP); - lscript_push(mBuffer, sp); - - // Update current handler and current events registers. - set_event_register(mBuffer, LREG_IE, LSCRIPTStateBitField[event], major_version); - U64 current_events = get_event_register(mBuffer, LREG_CE, major_version); - current_events &= ~LSCRIPTStateBitField[event]; - set_event_register(mBuffer, LREG_CE, current_events, major_version); - - // now, push any additional stack space - U32 current_state = get_register(mBuffer, LREG_CS); - S32 additional_size = get_event_stack_size(mBuffer, current_state, event); - lscript_pusharge(mBuffer, additional_size); - - // now set the bp correctly - sp = get_register(mBuffer, LREG_SP); - sp += additional_size; - set_bp(mBuffer, sp); - - // set IP to the function - S32 opcode_start = get_state_event_opcoode_start(mBuffer, current_state, event); - set_ip(mBuffer, opcode_start); -} - -//void callStateExitHandler() -//{ -// // push a zero to be popped -// lscript_push(mBuffer, 0); -// // push sp as current bp -// S32 sp = get_register(mBuffer, LREG_SP); -// lscript_push(mBuffer, sp); -// -// // now, push any additional stack space -// S32 additional_size = get_event_stack_size(mBuffer, current_state, LSTT_STATE_EXIT); -// lscript_pusharge(mBuffer, additional_size); -// -// sp = get_register(mBuffer, LREG_SP); -// sp += additional_size; -// set_bp(mBuffer, sp); -// -// // set IP to the event handler -// S32 opcode_start = get_state_event_opcoode_start(mBuffer, current_state, LSTT_STATE_EXIT); -// set_ip(mBuffer, opcode_start); -//} -// -//void callStateEntryHandler() -//{ -// // push a zero to be popped -// lscript_push(mBuffer, 0); -// // push sp as current bp -// S32 sp = get_register(mBuffer, LREG_SP); -// lscript_push(mBuffer, sp); -// -// event = return_first_event((S32)LSCRIPTStateBitField[LSTT_STATE_ENTRY]); -// set_event_register(mBuffer, LREG_IE, LSCRIPTStateBitField[event], major_version); -// current_events &= ~LSCRIPTStateBitField[event]; -// set_event_register(mBuffer, LREG_CE, current_events, major_version); -// -// // now, push any additional stack space -// S32 additional_size = get_event_stack_size(mBuffer, current_state, event) - size; -// lscript_pusharge(mBuffer, additional_size); -// -// // now set the bp correctly -// sp = get_register(mBuffer, LREG_SP); -// sp += additional_size + size; -// set_bp(mBuffer, sp); -// // set IP to the function -// S32 opcode_start = get_state_event_opcoode_start(mBuffer, current_state, event); -// set_ip(mBuffer, opcode_start); -//} - -void LLScriptExecuteLSL2::callQueuedEventHandler(LSCRIPTStateEventType event, const LLUUID &id, F32 time_slice) -{ - S32 major_version = getMajorVersion(); - - for (std::list<LLScriptDataCollection*>::iterator it = mEventData.mEventDataList.begin(), end_it = mEventData.mEventDataList.end(); - it != end_it; - ++it) - { - LLScriptDataCollection* eventdata = *it; - - if (eventdata->mType == event) - { - // push a zero to be popped - lscript_push(mBuffer, 0); - // push sp as current bp - S32 sp = get_register(mBuffer, LREG_SP); - lscript_push(mBuffer, sp); - - // Update current handler and current events registers. - set_event_register(mBuffer, LREG_IE, LSCRIPTStateBitField[event], major_version); - U64 current_events = get_event_register(mBuffer, LREG_CE, major_version); - current_events &= ~LSCRIPTStateBitField[event]; - set_event_register(mBuffer, LREG_CE, current_events, major_version); - - // push any arguments that need to be pushed onto the stack - // last piece of data will be type LST_NULL - LLScriptLibData *data = eventdata->mData; - U32 size = 0; - while (data->mType) - { - size += lscript_push_variable(data, mBuffer); - data++; - } - // now, push any additional stack space - U32 current_state = get_register(mBuffer, LREG_CS); - S32 additional_size = get_event_stack_size(mBuffer, current_state, event) - size; - lscript_pusharge(mBuffer, additional_size); - - // now set the bp correctly - sp = get_register(mBuffer, LREG_SP); - sp += additional_size + size; - set_bp(mBuffer, sp); - - // set IP to the function - S32 opcode_start = get_state_event_opcoode_start(mBuffer, current_state, event); - set_ip(mBuffer, opcode_start); - - delete *it; - mEventData.mEventDataList.erase(it); - break; - } - } -} - -void LLScriptExecuteLSL2::callNextQueuedEventHandler(U64 event_register, const LLUUID &id, F32 time_slice) -{ - S32 major_version = getMajorVersion(); - LLScriptDataCollection* eventdata = mEventData.getNextEvent(); - if (eventdata) - { - LSCRIPTStateEventType event = eventdata->mType; - - // make sure that we can actually handle this one - if (LSCRIPTStateBitField[event] & event_register) - { - // push a zero to be popped - lscript_push(mBuffer, 0); - // push sp as current bp - S32 sp = get_register(mBuffer, LREG_SP); - lscript_push(mBuffer, sp); - - // Update current handler and current events registers. - set_event_register(mBuffer, LREG_IE, LSCRIPTStateBitField[event], major_version); - U64 current_events = get_event_register(mBuffer, LREG_CE, major_version); - current_events &= ~LSCRIPTStateBitField[event]; - set_event_register(mBuffer, LREG_CE, current_events, major_version); - - // push any arguments that need to be pushed onto the stack - // last piece of data will be type LST_NULL - LLScriptLibData *data = eventdata->mData; - U32 size = 0; - while (data->mType) - { - size += lscript_push_variable(data, mBuffer); - data++; - } - - // now, push any additional stack space - U32 current_state = get_register(mBuffer, LREG_CS); - S32 additional_size = get_event_stack_size(mBuffer, current_state, event) - size; - lscript_pusharge(mBuffer, additional_size); - - // now set the bp correctly - sp = get_register(mBuffer, LREG_SP); - sp += additional_size + size; - set_bp(mBuffer, sp); - - // set IP to the function - S32 opcode_start = get_state_event_opcoode_start(mBuffer, current_state, event); - set_ip(mBuffer, opcode_start); - } - else - { - LL_WARNS() << "Somehow got an event that we're not registered for!" << LL_ENDL; - } - delete eventdata; - } -} - -U64 LLScriptExecuteLSL2::nextState() -{ - // copy NS to CS - S32 next_state = get_register(mBuffer, LREG_NS); - set_register(mBuffer, LREG_CS, next_state); - - // copy new state's handled events into ER (SR + CS*4 + 4) - return get_handled_events(mBuffer, next_state); -} - -//virtual -void LLScriptExecuteLSL2::addEvent(LLScriptDataCollection* event) -{ - mEventData.addEventData(event); -} - -//virtual -void LLScriptExecuteLSL2::removeEventType(LSCRIPTStateEventType event_type) -{ - mEventData.removeEventType(event_type); -} - -//virtual -F32 LLScriptExecuteLSL2::getSleep() const -{ - return get_register_fp(mBuffer, LREG_SLR); -} - -//virtual -void LLScriptExecuteLSL2::setSleep(F32 value) -{ - set_register_fp(mBuffer, LREG_SLR, value); -} - -//virtual -U64 LLScriptExecuteLSL2::getCurrentHandler() -{ - return get_event_register(mBuffer, LREG_IE, getMajorVersion()); -} - -//virtual -F32 LLScriptExecuteLSL2::getEnergy() const -{ - return get_register_fp(mBuffer, LREG_ESR); -} - -//virtual -void LLScriptExecuteLSL2::setEnergy(F32 value) -{ - set_register_fp(mBuffer, LREG_ESR, value); -} - -//virtual -U32 LLScriptExecuteLSL2::getFreeMemory() -{ - return get_register(mBuffer, LREG_SP) - get_register(mBuffer, LREG_HP); -} - -//virtual -S32 LLScriptExecuteLSL2::getParameter() -{ - return get_register(mBuffer, LREG_PR); -} - -//virtual -void LLScriptExecuteLSL2::setParameter(S32 value) -{ - set_register(mBuffer, LREG_PR, value); -} - - -S32 LLScriptExecuteLSL2::writeState(U8 **dest, U32 header_size, U32 footer_size) -{ - // data format: - // 4 bytes of size of Registers, Name and Description, and Global Variables - // Registers, Name and Description, and Global Variables data - // 4 bytes of size of Heap - // Heap data - // 4 bytes of stack size - // Stack data - - S32 registers_size = get_register(mBuffer, LREG_GFR); - - if (get_register(mBuffer, LREG_HP) > TOP_OF_MEMORY) - reset_hp_to_safe_spot(mBuffer); - - S32 heap_size = get_register(mBuffer, LREG_HP) - get_register(mBuffer, LREG_HR); - S32 stack_size = get_register(mBuffer, LREG_TM) - get_register(mBuffer, LREG_SP); - S32 total_size = registers_size + LSCRIPTDataSize[LST_INTEGER] + - heap_size + LSCRIPTDataSize[LST_INTEGER] + - stack_size + LSCRIPTDataSize[LST_INTEGER]; - - // actually allocate data - delete[] *dest; - *dest = new U8[header_size + total_size + footer_size]; - memset(*dest, 0, header_size + total_size + footer_size); - S32 dest_offset = header_size; - S32 src_offset = 0; - - // registers - integer2bytestream(*dest, dest_offset, registers_size); - - // LL_INFOS() << "Writing CE: " << getCurrentEvents() << LL_ENDL; - bytestream2bytestream(*dest, dest_offset, mBuffer, src_offset, registers_size); - - // heap - integer2bytestream(*dest, dest_offset, heap_size); - - src_offset = get_register(mBuffer, LREG_HR); - bytestream2bytestream(*dest, dest_offset, mBuffer, src_offset, heap_size); - - // stack - integer2bytestream(*dest, dest_offset, stack_size); - - src_offset = get_register(mBuffer, LREG_SP); - bytestream2bytestream(*dest, dest_offset, mBuffer, src_offset, stack_size); - - return total_size; -} - -S32 LLScriptExecuteLSL2::writeBytecode(U8 **dest) -{ - // data format: - // registers through top of heap - // Heap data - S32 total_size = get_register(mBuffer, LREG_HP); - - // actually allocate data - delete [] *dest; - *dest = new U8[total_size]; - S32 dest_offset = 0; - S32 src_offset = 0; - - bytestream2bytestream(*dest, dest_offset, mBuffer, src_offset, total_size); - - return total_size; -} - -S32 LLScriptExecuteLSL2::readState(U8 *src) -{ - // first, blitz heap and stack - S32 hr = get_register(mBuffer, LREG_HR); - S32 tm = get_register(mBuffer, LREG_TM); - memset(mBuffer + hr, 0, tm - hr); - - S32 src_offset = 0; - S32 dest_offset = 0; - S32 size; - - // read register size - size = bytestream2integer(src, src_offset); - - // copy data into register area - bytestream2bytestream(mBuffer, dest_offset, src, src_offset, size); -// LL_INFOS() << "Read CE: " << getCurrentEvents() << LL_ENDL; - if (get_register(mBuffer, LREG_TM) != TOP_OF_MEMORY) - { - LL_WARNS() << "Invalid state. Top of memory register does not match" - << " constant." << LL_ENDL; - reset_hp_to_safe_spot(mBuffer); - return -1; - } - - // read heap size - size = bytestream2integer(src, src_offset); - - // set dest offset - dest_offset = get_register(mBuffer, LREG_HR); - - if (dest_offset + size > TOP_OF_MEMORY) - { - reset_hp_to_safe_spot(mBuffer); - return -1; - } - - // copy data into heap area - bytestream2bytestream(mBuffer, dest_offset, src, src_offset, size); - - // read stack size - size = bytestream2integer(src, src_offset); - - // set dest offset - dest_offset = get_register(mBuffer, LREG_SP); - - if (dest_offset + size > TOP_OF_MEMORY) - { - reset_hp_to_safe_spot(mBuffer); - return -1; - } - - // copy data into heap area - bytestream2bytestream(mBuffer, dest_offset, src, src_offset, size); - - // Return offset to first byte after read data. - return src_offset; -} - -void LLScriptExecuteLSL2::reset() -{ - LLScriptExecute::reset(); - - const U8 *src = getBytecode(); - S32 size = getBytecodeSize(); - - if (!src) - return; - - // first, blitz heap and stack - S32 hr = get_register(mBuffer, LREG_HR); - S32 tm = get_register(mBuffer, LREG_TM); - memset(mBuffer + hr, 0, tm - hr); - - S32 dest_offset = 0; - S32 src_offset = 0; - - bytestream2bytestream(mBuffer, dest_offset, src, src_offset, size); -} - -S32 LLScriptExecuteLSL2::getMajorVersion() const -{ - S32 version = getVersion(); - S32 major_version = 0; - if (version == LSL2_VERSION1_END_NUMBER){ - major_version = 1; - } - else if (version == LSL2_VERSION_NUMBER) - { - major_version = 2; - } - return major_version; -} - -U32 LLScriptExecuteLSL2::getUsedMemory() -{ - return getBytecodeSize(); -} - -LLScriptExecute::LLScriptExecute() : - mReset(FALSE) -{ -} - -void LLScriptExecute::reset() -{ - mReset = FALSE; -} - -bool LLScriptExecute::isYieldDue() const -{ - if(mReset) - { - return true; - } - - if(getSleep() > 0.f) - { - return true; - } - - if(isFinished()) - { - return true; - } - - // State changes can occur within a single time slice, - // but LLScriptData's clean up is required. Yield here - // to allow LLScriptData to perform cleanup and then call - // runQuanta again. - if(isStateChangePending()) - { - return true; - } - - return false; -} - -// Run smallest number of instructions possible: -// a single instruction for LSL2, a segment between save tests for Mono -void LLScriptExecute::runInstructions(BOOL b_print, const LLUUID &id, - const char **errorstr, - U32& events_processed, - F32 quanta) -{ - // is there a fault? - // if yes, print out message and exit - S32 value = getVersion(); - if ( (value != LSL2_VERSION1_END_NUMBER) && (value != LSL2_VERSION_NUMBER) ) - { - setFault(LSRF_VERSION_MISMATCH); - } - value = getFaults(); - if (value > LSRF_INVALID && value < LSRF_EOF) - { - if (b_print) - { - printf("Error!\n"); - } - *errorstr = LSCRIPTRunTimeFaultStrings[value]; - return; - } - else - { - *errorstr = NULL; - } - - if (! isFinished()) - { - resumeEventHandler(b_print, id, quanta); - return; - } - else - { - // make sure that IE is zero - setCurrentHandler(0); - - // if no, we're in a state and waiting for an event - U64 current_events = getCurrentEvents(); - U64 event_register = getEventHandlers(); - - // check NS to see if need to switch states (NS != CS) - if (isStateChangePending()) - { - // ok, blow away any pending events - deleteAllEvents(); - - // if yes, check state exit flag is set - if (current_events & LSCRIPTStateBitField[LSTT_STATE_EXIT]) - { - // if yes, clear state exit flag - setCurrentHandler(LSCRIPTStateBitField[LSTT_STATE_EXIT]); - current_events &= ~LSCRIPTStateBitField[LSTT_STATE_EXIT]; - setCurrentEvents(current_events); - - // check state exit event handler - // if there is a handler, call it - if (event_register & LSCRIPTStateBitField[LSTT_STATE_EXIT]) - { - ++events_processed; - callEventHandler(LSTT_STATE_EXIT, id, quanta); - return; - } - } - - // if no handler or no state exit flag switch to new state - // set state entry flag and clear other CE flags - current_events = LSCRIPTStateBitField[LSTT_STATE_ENTRY]; - setCurrentEvents(current_events); - - U64 handled_events = nextState(); - setEventHandlers(handled_events); - } - - // try to get next event from stack - BOOL b_done = FALSE; - LSCRIPTStateEventType event = LSTT_NULL; - - current_events = getCurrentEvents(); - event_register = getEventHandlers(); - - // first, check to see if state_entry or onrez are raised and handled - if ((current_events & LSCRIPTStateBitField[LSTT_STATE_ENTRY]) - &&(current_events & event_register)) - { - ++events_processed; - callEventHandler(LSTT_STATE_ENTRY, id, quanta); - b_done = TRUE; - } - else if ((current_events & LSCRIPTStateBitField[LSTT_REZ]) - &&(current_events & event_register)) - { - ++events_processed; - callQueuedEventHandler(LSTT_REZ, id, quanta); - b_done = TRUE; - } - - if (!b_done) - { - // Call handler for next queued event. - if(getEventCount() > 0) - { - ++events_processed; - callNextQueuedEventHandler(event_register, id, quanta); - } - else - { - // if no data waiting, do it the old way: - U64 handled_current = current_events & event_register; - if (handled_current) - { - event = return_first_event((S32)handled_current); - ++events_processed; - callEventHandler(event, id, quanta); - } - } - b_done = TRUE; - } - } -} - -// Run for a single timeslice, or until a yield or state transition is due -F32 LLScriptExecute::runQuanta(BOOL b_print, const LLUUID &id, const char **errorstr, F32 quanta, U32& events_processed, LLTimer& timer) -{ - S32 timer_checks = 0; - F32 inloop = 0; - - // Loop while not finished, yield not due and time remaining - // NOTE: Default implementation does not do adaptive timer skipping - // to preserve current LSL behaviour and not break scripts that rely - // on current execution speed. - while(true) - { - runInstructions(b_print, id, errorstr, - events_processed, quanta); - - if(isYieldDue()) - { - break; - } - else if(timer_checks++ >= LLScriptExecute::sTimerCheckSkip) - { - inloop = timer.getElapsedTimeF32(); - if(inloop > quanta) - { - break; - } - timer_checks = 0; - } - } - if (inloop == 0.0f) - { - inloop = timer.getElapsedTimeF32(); - } - return inloop; -} - -F32 LLScriptExecute::runNested(BOOL b_print, const LLUUID &id, const char **errorstr, F32 quanta, U32& events_processed, LLTimer& timer) -{ - return LLScriptExecute::runQuanta(b_print, id, errorstr, quanta, events_processed, timer); -} - -BOOL run_noop(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tNOOP\n", offset); - offset++; - return FALSE; -} - -BOOL run_pop(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPOP\n", offset); - offset++; - lscript_poparg(buffer, LSCRIPTDataSize[LST_INTEGER]); - return FALSE; -} - -BOOL run_pops(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPOPS\n", offset); - offset++; - S32 address = lscript_pop_int(buffer); - if (address) - lsa_decrease_ref_count(buffer, address); - return FALSE; -} - -BOOL run_popl(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPOPL\n", offset); - offset++; - S32 address = lscript_pop_int(buffer); - if (address) - lsa_decrease_ref_count(buffer, address); - return FALSE; -} - -BOOL run_popv(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPOPV\n", offset); - offset++; - lscript_poparg(buffer, LSCRIPTDataSize[LST_VECTOR]); - return FALSE; -} - -BOOL run_popq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPOPQ\n", offset); - offset++; - lscript_poparg(buffer, LSCRIPTDataSize[LST_QUATERNION]); - return FALSE; -} - -BOOL run_poparg(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPOPARG ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("%d\n", arg); - lscript_poparg(buffer, arg); - return FALSE; -} - -BOOL run_popip(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPOPIP\n", offset); - offset++; - offset = lscript_pop_int(buffer); - return FALSE; -} - -BOOL run_popbp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPOPBP\n", offset); - offset++; - S32 bp = lscript_pop_int(buffer); - set_bp(buffer, bp); - return FALSE; -} - -BOOL run_popsp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPOPSP\n", offset); - offset++; - S32 sp = lscript_pop_int(buffer); - set_sp(buffer, sp); - return FALSE; -} - -BOOL run_popslr(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPOPSLR\n", offset); - offset++; - S32 slr = lscript_pop_int(buffer); - set_register(buffer, LREG_SLR, slr); - return FALSE; -} - -BOOL run_dup(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tDUP\n", offset); - offset++; - S32 sp = get_register(buffer, LREG_SP); - S32 value = bytestream2integer(buffer, sp); - lscript_push(buffer, value); - return FALSE; -} - -BOOL run_dups(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tDUPS\n", offset); - offset++; - S32 sp = get_register(buffer, LREG_SP); - S32 value = bytestream2integer(buffer, sp); - lscript_push(buffer, value); - lsa_increase_ref_count(buffer, value); - return FALSE; -} - -BOOL run_dupl(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tDUPL\n", offset); - offset++; - S32 sp = get_register(buffer, LREG_SP); - S32 value = bytestream2integer(buffer, sp); - lscript_push(buffer, value); - lsa_increase_ref_count(buffer, value); - return FALSE; -} - -BOOL run_dupv(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tDUPV\n", offset); - offset++; - S32 sp = get_register(buffer, LREG_SP); - LLVector3 value; - bytestream2vector(value, buffer, sp); - lscript_push(buffer, value); - return FALSE; -} - -BOOL run_dupq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tDUPV\n", offset); - offset++; - S32 sp = get_register(buffer, LREG_SP); - LLQuaternion value; - bytestream2quaternion(value, buffer, sp); - lscript_push(buffer, value); - return FALSE; -} - -BOOL run_store(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTORE ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 sp = get_register(buffer, LREG_SP); - S32 value = bytestream2integer(buffer, sp); - lscript_local_store(buffer, arg, value); - return FALSE; -} - -BOOL run_stores(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTORES ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 sp = get_register(buffer, LREG_SP); - S32 value = bytestream2integer(buffer, sp); - - S32 address = lscript_local_get(buffer, arg); - - lscript_local_store(buffer, arg, value); - lsa_increase_ref_count(buffer, value); - if (address) - lsa_decrease_ref_count(buffer, address); - return FALSE; -} - -BOOL run_storel(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREL ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 sp = get_register(buffer, LREG_SP); - S32 value = bytestream2integer(buffer, sp); - - S32 address = lscript_local_get(buffer, arg); - - lscript_local_store(buffer, arg, value); - lsa_increase_ref_count(buffer, value); - if (address) - lsa_decrease_ref_count(buffer, address); - return FALSE; -} - -BOOL run_storev(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREV ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - LLVector3 value; - S32 sp = get_register(buffer, LREG_SP); - bytestream2vector(value, buffer, sp); - lscript_local_store(buffer, arg, value); - return FALSE; -} - -BOOL run_storeq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREQ ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - LLQuaternion value; - S32 sp = get_register(buffer, LREG_SP); - bytestream2quaternion(value, buffer, sp); - lscript_local_store(buffer, arg, value); - return FALSE; -} - -BOOL run_storeg(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREG ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 sp = get_register(buffer, LREG_SP); - S32 value = bytestream2integer(buffer, sp); - lscript_global_store(buffer, arg, value); - return FALSE; -} - -BOOL run_storegs(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREGS ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 sp = get_register(buffer, LREG_SP); - S32 value = bytestream2integer(buffer, sp); - - S32 address = lscript_global_get(buffer, arg); - - lscript_global_store(buffer, arg, value); - - lsa_increase_ref_count(buffer, value); - if (address) - lsa_decrease_ref_count(buffer, address); - return FALSE; -} - -BOOL run_storegl(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREGL ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 sp = get_register(buffer, LREG_SP); - S32 value = bytestream2integer(buffer, sp); - - S32 address = lscript_global_get(buffer, arg); - - lscript_global_store(buffer, arg, value); - - lsa_increase_ref_count(buffer, value); - if (address) - lsa_decrease_ref_count(buffer, address); - return FALSE; -} - -BOOL run_storegv(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREGV ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - LLVector3 value; - S32 sp = get_register(buffer, LREG_SP); - bytestream2vector(value, buffer, sp); - lscript_global_store(buffer, arg, value); - return FALSE; -} - -BOOL run_storegq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREGQ ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - LLQuaternion value; - S32 sp = get_register(buffer, LREG_SP); - bytestream2quaternion(value, buffer, sp); - lscript_global_store(buffer, arg, value); - return FALSE; -} - -BOOL run_loadp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREP ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 value = lscript_pop_int(buffer); - lscript_local_store(buffer, arg, value); - return FALSE; -} - -BOOL run_loadsp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTORESP ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 value = lscript_pop_int(buffer); - - S32 address = lscript_local_get(buffer, arg); - if (address) - lsa_decrease_ref_count(buffer, address); - - lscript_local_store(buffer, arg, value); - return FALSE; -} - -BOOL run_loadlp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTORELP ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 value = lscript_pop_int(buffer); - - S32 address = lscript_local_get(buffer, arg); - if (address) - lsa_decrease_ref_count(buffer, address); - - lscript_local_store(buffer, arg, value); - return FALSE; -} - -BOOL run_loadvp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREVP ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - LLVector3 value; - lscript_pop_vector(buffer, value); - lscript_local_store(buffer, arg, value); - return FALSE; -} - -BOOL run_loadqp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREQP ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - LLQuaternion value; - lscript_pop_quaternion(buffer, value); - lscript_local_store(buffer, arg, value); - return FALSE; -} - -BOOL run_loadgp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREGP ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 value = lscript_pop_int(buffer); - lscript_global_store(buffer, arg, value); - return FALSE; -} - -BOOL run_loadgsp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREGSP ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("%d\n", arg); - S32 value = lscript_pop_int(buffer); - - S32 address = lscript_global_get(buffer, arg); - if (address) - lsa_decrease_ref_count(buffer, address); - - lscript_global_store(buffer, arg, value); - return FALSE; -} - -BOOL run_loadglp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREGLP ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 value = lscript_pop_int(buffer); - - S32 address = lscript_global_get(buffer, arg); - if (address) - lsa_decrease_ref_count(buffer, address); - - lscript_global_store(buffer, arg, value); - return FALSE; -} - -BOOL run_loadgvp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREGVP ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - LLVector3 value; - lscript_pop_vector(buffer, value); - lscript_global_store(buffer, arg, value); - return FALSE; -} - -BOOL run_loadgqp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTOREGQP ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - LLQuaternion value; - lscript_pop_quaternion(buffer, value); - lscript_global_store(buffer, arg, value); - return FALSE; -} - -BOOL run_push(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSH ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 value = lscript_local_get(buffer, arg); - lscript_push(buffer, value); - return FALSE; -} - -BOOL run_pushs(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHS ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 value = lscript_local_get(buffer, arg); - lscript_push(buffer, value); - lsa_increase_ref_count(buffer, value); - return FALSE; -} - -BOOL run_pushl(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHL ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 value = lscript_local_get(buffer, arg); - lscript_push(buffer, value); - lsa_increase_ref_count(buffer, value); - return FALSE; -} - -BOOL run_pushv(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHV ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - LLVector3 value; - lscript_local_get(buffer, arg, value); - lscript_push(buffer, value); - return FALSE; -} - -BOOL run_pushq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHQ ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - LLQuaternion value; - lscript_local_get(buffer, arg, value); - lscript_push(buffer, value); - return FALSE; -} - -BOOL run_pushg(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHG ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 value = lscript_global_get(buffer, arg); - lscript_push(buffer, value); - return FALSE; -} - -BOOL run_pushgs(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHGS ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 value = lscript_global_get(buffer, arg); - lscript_push(buffer, value); - lsa_increase_ref_count(buffer, value); - return FALSE; -} - -BOOL run_pushgl(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHGL ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - S32 value = lscript_global_get(buffer, arg); - lscript_push(buffer, value); - lsa_increase_ref_count(buffer, value); - return FALSE; -} - -BOOL run_pushgv(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHGV ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - LLVector3 value; - lscript_global_get(buffer, arg, value); - lscript_push(buffer, value); - return FALSE; -} - -BOOL run_pushgq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHGQ ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("0x%X\n", arg); - LLQuaternion value; - lscript_global_get(buffer, arg, value); - lscript_push(buffer, value); - return FALSE; -} - -BOOL run_puship(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHIP\n", offset); - offset++; - lscript_push(buffer, offset); - return FALSE; -} - -BOOL run_pushbp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHBP\n", offset); - offset++; - lscript_push(buffer, get_register(buffer, LREG_BP)); - return FALSE; -} - -BOOL run_pushsp(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHSP\n", offset); - offset++; - lscript_push(buffer, get_register(buffer, LREG_SP)); - return FALSE; -} - -BOOL run_pushargb(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHGARGB ", offset); - offset++; - U8 arg = safe_instruction_bytestream2byte(buffer, offset); - if (b_print) - printf("%d\n", (U32)arg); - lscript_push(buffer, arg); - return FALSE; -} - -BOOL run_pushargi(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHARGI ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("%d\n", arg); - lscript_push(buffer, arg); - return FALSE; -} - -BOOL run_pushargf(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHARGF ", offset); - offset++; - F32 arg = safe_instruction_bytestream2float(buffer, offset); - if (b_print) - printf("%f\n", arg); - lscript_push(buffer, arg); - return FALSE; -} - -BOOL run_pushargs(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHARGS ", offset); - S32 toffset = offset; - safe_instruction_bytestream_count_char(buffer, toffset); - S32 size = toffset - offset; - char *arg = new char[size]; - offset++; - safe_instruction_bytestream2char(arg, buffer, offset, size); - if (b_print) - printf("%s\n", arg); - S32 address = lsa_heap_add_data(buffer, new LLScriptLibData(arg), get_max_heap_size(buffer), TRUE); - lscript_push(buffer, address); - delete [] arg; - return FALSE; -} - -BOOL run_pushargv(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHARGV ", offset); - offset++; - LLVector3 arg; - safe_instruction_bytestream2vector(arg, buffer, offset); - if (b_print) - printf("< %f, %f, %f >\n", arg.mV[VX], arg.mV[VY], arg.mV[VZ]); - lscript_push(buffer, arg); - return FALSE; -} -BOOL run_pushargq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHARGQ ", offset); - offset++; - LLQuaternion arg; - safe_instruction_bytestream2quaternion(arg, buffer, offset); - if (b_print) - printf("< %f, %f, %f, %f >\n", arg.mQ[VX], arg.mQ[VY], arg.mQ[VZ], arg.mQ[VS]); - lscript_push(buffer, arg); - return FALSE; -} -BOOL run_pushe(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHE\n", offset); - offset++; - lscript_pusharge(buffer, LSCRIPTDataSize[LST_INTEGER]); - return FALSE; -} -BOOL run_pushev(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHEV\n", offset); - offset++; - lscript_pusharge(buffer, LSCRIPTDataSize[LST_VECTOR]); - return FALSE; -} -BOOL run_pusheq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHEQ\n", offset); - offset++; - lscript_pusharge(buffer, LSCRIPTDataSize[LST_QUATERNION]); - return FALSE; -} -BOOL run_pusharge(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPUSHARGE ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("%d\n", arg); - lscript_pusharge(buffer, arg); - return FALSE; -} - -void print_type(U8 type) -{ - if (type == LSCRIPTTypeByte[LST_INTEGER]) - { - printf("integer"); - } - else if (type == LSCRIPTTypeByte[LST_FLOATINGPOINT]) - { - printf("float"); - } - else if (type == LSCRIPTTypeByte[LST_STRING]) - { - printf("string"); - } - else if (type == LSCRIPTTypeByte[LST_KEY]) - { - printf("key"); - } - else if (type == LSCRIPTTypeByte[LST_VECTOR]) - { - printf("vector"); - } - else if (type == LSCRIPTTypeByte[LST_QUATERNION]) - { - printf("quaternion"); - } - else if (type == LSCRIPTTypeByte[LST_LIST]) - { - printf("list"); - } -} - -void unknown_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - printf("Unknown arithmetic operation!\n"); -} - -void integer_integer_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - S32 rside = lscript_pop_int(buffer); - S32 result = 0; - - switch(opcode) - { - case LOPC_ADD: - result = lside + rside; - break; - case LOPC_SUB: - result = lside - rside; - break; - case LOPC_MUL: - result = lside * rside; - break; - case LOPC_DIV: - if (rside){ - if( ( rside == -1 ) || ( rside == (S32) 0xffffffff ) )// division by -1 can have funny results: multiplication is OK: SL-31252 - { - result = -1 * lside; - } - else - { - result = lside / rside; - } - } - else - set_fault(buffer, LSRF_MATH); - break; - case LOPC_MOD: - if (rside) - { - if (rside == -1 || rside == 1 ) // mod(1) = mod(-1) = 0: SL-31252 - { - result = 0; - } - else - { - result = lside % rside; - } - } - else - set_fault(buffer, LSRF_MATH); - break; - case LOPC_EQ: - result = (lside == rside); - break; - case LOPC_NEQ: - result = (lside != rside); - break; - case LOPC_LEQ: - result = (lside <= rside); - break; - case LOPC_GEQ: - result = (lside >= rside); - break; - case LOPC_LESS: - result = (lside < rside); - break; - case LOPC_GREATER: - result = (lside > rside); - break; - case LOPC_BITAND: - result = (lside & rside); - break; - case LOPC_BITOR: - result = (lside | rside); - break; - case LOPC_BITXOR: - result = (lside ^ rside); - break; - case LOPC_BOOLAND: - result = (lside && rside); - break; - case LOPC_BOOLOR: - result = (lside || rside); - break; - case LOPC_SHL: - result = (lside << rside); - break; - case LOPC_SHR: - result = (lside >> rside); - break; - default: - break; - } - lscript_push(buffer, result); -} - -void integer_float_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - F32 rside = lscript_pop_float(buffer); - S32 resulti = 0; - F32 resultf = 0; - - switch(opcode) - { - case LOPC_ADD: - resultf = lside + rside; - lscript_push(buffer, resultf); - break; - case LOPC_SUB: - resultf = lside - rside; - lscript_push(buffer, resultf); - break; - case LOPC_MUL: - resultf = lside * rside; - lscript_push(buffer, resultf); - break; - case LOPC_DIV: - if (rside) - resultf = lside / rside; - else - set_fault(buffer, LSRF_MATH); - lscript_push(buffer, resultf); - break; - case LOPC_EQ: - resulti = (lside == rside); - lscript_push(buffer, resulti); - break; - case LOPC_NEQ: - resulti = (lside != rside); - lscript_push(buffer, resulti); - break; - case LOPC_LEQ: - resulti = (lside <= rside); - lscript_push(buffer, resulti); - break; - case LOPC_GEQ: - resulti = (lside >= rside); - lscript_push(buffer, resulti); - break; - case LOPC_LESS: - resulti = (lside < rside); - lscript_push(buffer, resulti); - break; - case LOPC_GREATER: - resulti = (lside > rside); - lscript_push(buffer, resulti); - break; - default: - break; - } -} - -void integer_vector_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - LLVector3 rside; - lscript_pop_vector(buffer, rside); - - switch(opcode) - { - case LOPC_MUL: - rside *= (F32)lside; - lscript_push(buffer, rside); - break; - default: - break; - } -} - -void float_integer_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - F32 lside = lscript_pop_float(buffer); - S32 rside = lscript_pop_int(buffer); - S32 resulti = 0; - F32 resultf = 0; - - switch(opcode) - { - case LOPC_ADD: - resultf = lside + rside; - lscript_push(buffer, resultf); - break; - case LOPC_SUB: - resultf = lside - rside; - lscript_push(buffer, resultf); - break; - case LOPC_MUL: - resultf = lside * rside; - lscript_push(buffer, resultf); - break; - case LOPC_DIV: - if (rside) - resultf = lside / rside; - else - set_fault(buffer, LSRF_MATH); - lscript_push(buffer, resultf); - break; - case LOPC_EQ: - resulti = (lside == rside); - lscript_push(buffer, resulti); - break; - case LOPC_NEQ: - resulti = (lside != rside); - lscript_push(buffer, resulti); - break; - case LOPC_LEQ: - resulti = (lside <= rside); - lscript_push(buffer, resulti); - break; - case LOPC_GEQ: - resulti = (lside >= rside); - lscript_push(buffer, resulti); - break; - case LOPC_LESS: - resulti = (lside < rside); - lscript_push(buffer, resulti); - break; - case LOPC_GREATER: - resulti = (lside > rside); - lscript_push(buffer, resulti); - break; - default: - break; - } -} - -void float_float_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - F32 lside = lscript_pop_float(buffer); - F32 rside = lscript_pop_float(buffer); - F32 resultf = 0; - S32 resulti = 0; - - switch(opcode) - { - case LOPC_ADD: - resultf = lside + rside; - lscript_push(buffer, resultf); - break; - case LOPC_SUB: - resultf = lside - rside; - lscript_push(buffer, resultf); - break; - case LOPC_MUL: - resultf = lside * rside; - lscript_push(buffer, resultf); - break; - case LOPC_DIV: - if (rside) - resultf = lside / rside; - else - set_fault(buffer, LSRF_MATH); - lscript_push(buffer, resultf); - break; - case LOPC_EQ: - resulti = (lside == rside); - lscript_push(buffer, resulti); - break; - case LOPC_NEQ: - resulti = (lside != rside); - lscript_push(buffer, resulti); - break; - case LOPC_LEQ: - resulti = (lside <= rside); - lscript_push(buffer, resulti); - break; - case LOPC_GEQ: - resulti = (lside >= rside); - lscript_push(buffer, resulti); - break; - case LOPC_LESS: - resulti = (lside < rside); - lscript_push(buffer, resulti); - break; - case LOPC_GREATER: - resulti = (lside > rside); - lscript_push(buffer, resulti); - break; - default: - break; - } -} - -void float_vector_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - F32 lside = lscript_pop_float(buffer); - LLVector3 rside; - lscript_pop_vector(buffer, rside); - - switch(opcode) - { - case LOPC_MUL: - rside *= lside; - lscript_push(buffer, rside); - break; - default: - break; - } -} - -void string_string_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - S32 rside = lscript_pop_int(buffer); - S32 resulti; - S32 address; - - switch(opcode) - { - case LOPC_ADD: - address = lsa_cat_strings(buffer, lside, rside, get_max_heap_size(buffer)); - lscript_push(buffer, address); - break; - case LOPC_EQ: - resulti = !lsa_cmp_strings(buffer, lside, rside); - lscript_push(buffer, resulti); - break; - case LOPC_NEQ: - resulti = lsa_cmp_strings(buffer, lside, rside); - lscript_push(buffer, resulti); - break; - default: - break; - } -} - -void string_key_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - S32 rside = lscript_pop_int(buffer); - S32 resulti; - - switch(opcode) - { - case LOPC_NEQ: - resulti = lsa_cmp_strings(buffer, lside, rside); - lscript_push(buffer, resulti); - break; - case LOPC_EQ: - resulti = !lsa_cmp_strings(buffer, lside, rside); - lscript_push(buffer, resulti); - break; - default: - break; - } -} - -void key_string_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - S32 rside = lscript_pop_int(buffer); - S32 resulti; - - switch(opcode) - { - case LOPC_NEQ: - resulti = lsa_cmp_strings(buffer, lside, rside); - lscript_push(buffer, resulti); - break; - case LOPC_EQ: - resulti = !lsa_cmp_strings(buffer, lside, rside); - lscript_push(buffer, resulti); - break; - default: - break; - } -} - -void key_key_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - S32 rside = lscript_pop_int(buffer); - S32 resulti; - - switch(opcode) - { - case LOPC_EQ: - resulti = !lsa_cmp_strings(buffer, lside, rside); - lscript_push(buffer, resulti); - break; - case LOPC_NEQ: - resulti = lsa_cmp_strings(buffer, lside, rside); - lscript_push(buffer, resulti); - break; - default: - break; - } -} - -void vector_integer_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - LLVector3 lside; - lscript_pop_vector(buffer, lside); - S32 rside = lscript_pop_int(buffer); - - switch(opcode) - { - case LOPC_MUL: - lside *= (F32)rside; - lscript_push(buffer, lside); - break; - case LOPC_DIV: - if (rside) - lside *= (1.f/rside); - else - set_fault(buffer, LSRF_MATH); - lscript_push(buffer, lside); - break; - default: - break; - } -} - -void vector_float_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - LLVector3 lside; - lscript_pop_vector(buffer, lside); - F32 rside = lscript_pop_float(buffer); - - switch(opcode) - { - case LOPC_MUL: - lside *= rside; - lscript_push(buffer, lside); - break; - case LOPC_DIV: - if (rside) - lside *= (1.f/rside); - else - set_fault(buffer, LSRF_MATH); - lscript_push(buffer, lside); - break; - default: - break; - } -} - -void vector_vector_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - LLVector3 lside; - lscript_pop_vector(buffer, lside); - LLVector3 rside; - lscript_pop_vector(buffer, rside); - S32 resulti = 0; - F32 resultf = 0.f; - - switch(opcode) - { - case LOPC_ADD: - lside += rside; - lscript_push(buffer, lside); - break; - case LOPC_SUB: - lside -= rside; - lscript_push(buffer, lside); - break; - case LOPC_MUL: - resultf = lside * rside; - lscript_push(buffer, resultf); - break; - case LOPC_MOD: - lside = lside % rside; - lscript_push(buffer, lside); - break; - case LOPC_EQ: - resulti = (lside == rside); - lscript_push(buffer, resulti); - break; - case LOPC_NEQ: - resulti = (lside != rside); - lscript_push(buffer, resulti); - break; - default: - break; - } -} - -void vector_quaternion_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - LLVector3 lside; - lscript_pop_vector(buffer, lside); - LLQuaternion rside; - lscript_pop_quaternion(buffer, rside); - - switch(opcode) - { - case LOPC_MUL: - lside = lside * rside; - lscript_push(buffer, lside); - break; - case LOPC_DIV: - lside = lside * rside.conjQuat(); - lscript_push(buffer, lside); - break; - default: - break; - } -} - -void quaternion_quaternion_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - LLQuaternion lside; - lscript_pop_quaternion(buffer, lside); - LLQuaternion rside; - lscript_pop_quaternion(buffer, rside); - S32 resulti = 0; - - switch(opcode) - { - case LOPC_ADD: - lside = lside + rside; - lscript_push(buffer, lside); - break; - case LOPC_SUB: - lside = lside - rside; - lscript_push(buffer, lside); - break; - case LOPC_MUL: - lside *= rside; - lscript_push(buffer, lside); - break; - case LOPC_DIV: - lside = lside * rside.conjQuat(); - lscript_push(buffer, lside); - break; - case LOPC_EQ: - resulti = (lside == rside); - lscript_push(buffer, resulti); - break; - case LOPC_NEQ: - resulti = (lside != rside); - lscript_push(buffer, resulti); - break; - default: - break; - } -} - -void integer_list_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - S32 rside = lscript_pop_int(buffer); - S32 address; - - switch(opcode) - { - case LOPC_ADD: - { - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = new LLScriptLibData(lside); - address = lsa_preadd_lists(buffer, list, rside, get_max_heap_size(buffer)); - lscript_push(buffer, address); - list->mListp = NULL; - delete list; - } - break; - default: - break; - } -} - -void float_list_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - F32 lside = lscript_pop_float(buffer); - S32 rside = lscript_pop_int(buffer); - S32 address; - - switch(opcode) - { - case LOPC_ADD: - { - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = new LLScriptLibData(lside); - address = lsa_preadd_lists(buffer, list, rside, get_max_heap_size(buffer)); - lscript_push(buffer, address); - list->mListp = NULL; - delete list; - } - break; - default: - break; - } -} - -void string_list_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - S32 rside = lscript_pop_int(buffer); - S32 address; - - switch(opcode) - { - case LOPC_ADD: - { - LLScriptLibData *string = lsa_get_data(buffer, lside, TRUE); - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = string; - address = lsa_preadd_lists(buffer, list, rside, get_max_heap_size(buffer)); - lscript_push(buffer, address); - list->mListp = NULL; - delete list; - } - break; - default: - break; - } -} - -void key_list_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - S32 rside = lscript_pop_int(buffer); - S32 address; - - switch(opcode) - { - case LOPC_ADD: - { - LLScriptLibData *key = lsa_get_data(buffer, lside, TRUE); - // need to convert key to key, since it comes out like a string - if (key->mType == LST_STRING) - { - key->mKey = key->mString; - key->mString = NULL; - key->mType = LST_KEY; - } - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = key; - address = lsa_preadd_lists(buffer, list, rside, get_max_heap_size(buffer)); - lscript_push(buffer, address); - list->mListp = NULL; - delete list; - } - break; - default: - break; - } -} - -void vector_list_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - LLVector3 lside; - lscript_pop_vector(buffer, lside); - S32 rside = lscript_pop_int(buffer); - S32 address; - - switch(opcode) - { - case LOPC_ADD: - { - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = new LLScriptLibData(lside); - address = lsa_preadd_lists(buffer, list, rside, get_max_heap_size(buffer)); - lscript_push(buffer, address); - list->mListp = NULL; - delete list; - } - break; - default: - break; - } -} - -void quaternion_list_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - LLQuaternion lside; - lscript_pop_quaternion(buffer, lside); - S32 rside = lscript_pop_int(buffer); - S32 address; - - switch(opcode) - { - case LOPC_ADD: - { - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = new LLScriptLibData(lside); - address = lsa_preadd_lists(buffer, list, rside, get_max_heap_size(buffer)); - lscript_push(buffer, address); - list->mListp = NULL; - delete list; - } - break; - default: - break; - } -} - -void list_integer_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - S32 rside = lscript_pop_int(buffer); - S32 address; - - switch(opcode) - { - case LOPC_ADD: - { - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = new LLScriptLibData(rside); - address = lsa_postadd_lists(buffer, lside, list, get_max_heap_size(buffer)); - list->mListp = NULL; - delete list; - lscript_push(buffer, address); - } - break; - default: - break; - } -} - -void list_float_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - F32 rside = lscript_pop_float(buffer); - S32 address; - - switch(opcode) - { - case LOPC_ADD: - { - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = new LLScriptLibData(rside); - address = lsa_postadd_lists(buffer, lside, list, get_max_heap_size(buffer)); - list->mListp = NULL; - delete list; - lscript_push(buffer, address); - } - break; - default: - break; - } -} - -void list_string_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - S32 rside = lscript_pop_int(buffer); - S32 address; - - switch(opcode) - { - case LOPC_ADD: - { - LLScriptLibData *string = lsa_get_data(buffer, rside, TRUE); - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = string; - address = lsa_postadd_lists(buffer, lside, list, get_max_heap_size(buffer)); - list->mListp = NULL; - delete list; - lscript_push(buffer, address); - } - break; - default: - break; - } -} - -void list_key_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - S32 rside = lscript_pop_int(buffer); - S32 address; - - switch(opcode) - { - case LOPC_ADD: - { - LLScriptLibData *key = lsa_get_data(buffer, rside, TRUE); - // need to convert key to key, since it comes out like a string - if (key->mType == LST_STRING) - { - key->mKey = key->mString; - key->mString = NULL; - key->mType = LST_KEY; - } - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = key; - address = lsa_postadd_lists(buffer, lside, list, get_max_heap_size(buffer)); - list->mListp = NULL; - delete list; - lscript_push(buffer, address); - } - break; - default: - break; - } -} - -void list_vector_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - LLVector3 rside; - lscript_pop_vector(buffer, rside); - S32 address; - - switch(opcode) - { - case LOPC_ADD: - { - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = new LLScriptLibData(rside); - address = lsa_postadd_lists(buffer, lside, list, get_max_heap_size(buffer)); - list->mListp = NULL; - delete list; - lscript_push(buffer, address); - } - break; - default: - break; - } -} - -void list_quaternion_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - LLQuaternion rside; - lscript_pop_quaternion(buffer, rside); - S32 address; - - switch(opcode) - { - case LOPC_ADD: - { - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = new LLScriptLibData(rside); - address = lsa_postadd_lists(buffer, lside, list, get_max_heap_size(buffer)); - list->mListp = NULL; - delete list; - lscript_push(buffer, address); - } - break; - default: - break; - } -} - -void list_list_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - S32 rside = lscript_pop_int(buffer); - S32 resulti; - S32 address; - - switch(opcode) - { - case LOPC_ADD: - address = lsa_cat_lists(buffer, lside, rside, get_max_heap_size(buffer)); - lscript_push(buffer, address); - break; - case LOPC_EQ: - resulti = !lsa_cmp_lists(buffer, lside, rside); - lscript_push(buffer, resulti); - break; - case LOPC_NEQ: - resulti = lsa_cmp_lists(buffer, lside, rside); - lscript_push(buffer, resulti); - break; - default: - break; - } -} - -static U8 safe_op_index(U8 index) -{ - if(index >= LST_EOF) - { - // Operations on LST_NULL will always be unknown_operation. - index = LST_NULL; - } - return index; -} - -BOOL run_add(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tADD ", offset); - offset++; - U8 arg = safe_instruction_bytestream2byte(buffer, offset); - U8 arg1 = safe_op_index(arg >> 4); - U8 arg2 = safe_op_index(arg & 0xf); - if (b_print) - { - print_type(arg1); - printf(", "); - print_type(arg2); - printf("\n"); - } - binary_operations[arg1][arg2](buffer, LOPC_ADD); - return FALSE; -} - -BOOL run_sub(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSUB ", offset); - offset++; - U8 arg = safe_instruction_bytestream2byte(buffer, offset); - U8 arg1 = safe_op_index(arg >> 4); - U8 arg2 = safe_op_index(arg & 0xf); - if (b_print) - { - print_type(arg1); - printf(", "); - print_type(arg2); - printf("\n"); - } - binary_operations[arg1][arg2](buffer, LOPC_SUB); - return FALSE; -} -BOOL run_mul(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tMUL ", offset); - offset++; - U8 arg = safe_instruction_bytestream2byte(buffer, offset); - U8 arg1 = safe_op_index(arg >> 4); - U8 arg2 = safe_op_index(arg & 0xf); - if (b_print) - { - print_type(arg1); - printf(", "); - print_type(arg2); - printf("\n"); - } - binary_operations[arg1][arg2](buffer, LOPC_MUL); - return FALSE; -} -BOOL run_div(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tDIV ", offset); - offset++; - U8 arg = safe_instruction_bytestream2byte(buffer, offset); - U8 arg1 = safe_op_index(arg >> 4); - U8 arg2 = safe_op_index(arg & 0xf); - if (b_print) - { - print_type(arg1); - printf(", "); - print_type(arg2); - printf("\n"); - } - binary_operations[arg1][arg2](buffer, LOPC_DIV); - return FALSE; -} -BOOL run_mod(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tMOD ", offset); - offset++; - U8 arg = safe_instruction_bytestream2byte(buffer, offset); - U8 arg1 = safe_op_index(arg >> 4); - U8 arg2 = safe_op_index(arg & 0xf); - if (b_print) - { - print_type(arg1); - printf(", "); - print_type(arg2); - printf("\n"); - } - binary_operations[arg1][arg2](buffer, LOPC_MOD); - return FALSE; -} - -BOOL run_eq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tEQ ", offset); - offset++; - U8 arg = safe_instruction_bytestream2byte(buffer, offset); - U8 arg1 = safe_op_index(arg >> 4); - U8 arg2 = safe_op_index(arg & 0xf); - if (b_print) - { - print_type(arg1); - printf(", "); - print_type(arg2); - printf("\n"); - } - binary_operations[arg1][arg2](buffer, LOPC_EQ); - return FALSE; -} -BOOL run_neq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tNEQ ", offset); - offset++; - U8 arg = safe_instruction_bytestream2byte(buffer, offset); - U8 arg1 = safe_op_index(arg >> 4); - U8 arg2 = safe_op_index(arg & 0xf); - if (b_print) - { - print_type(arg1); - printf(", "); - print_type(arg2); - printf("\n"); - } - binary_operations[arg1][arg2](buffer, LOPC_NEQ); - return FALSE; -} -BOOL run_leq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tLEQ ", offset); - offset++; - U8 arg = safe_instruction_bytestream2byte(buffer, offset); - U8 arg1 = safe_op_index(arg >> 4); - U8 arg2 = safe_op_index(arg & 0xf); - if (b_print) - { - print_type(arg1); - printf(", "); - print_type(arg2); - printf("\n"); - } - binary_operations[arg1][arg2](buffer, LOPC_LEQ); - return FALSE; -} -BOOL run_geq(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tGEQ ", offset); - offset++; - U8 arg = safe_instruction_bytestream2byte(buffer, offset); - U8 arg1 = safe_op_index(arg >> 4); - U8 arg2 = safe_op_index(arg & 0xf); - if (b_print) - { - print_type(arg1); - printf(", "); - print_type(arg2); - printf("\n"); - } - binary_operations[arg1][arg2](buffer, LOPC_GEQ); - return FALSE; -} -BOOL run_less(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tLESS ", offset); - offset++; - U8 arg = safe_instruction_bytestream2byte(buffer, offset); - U8 arg1 = safe_op_index(arg >> 4); - U8 arg2 = safe_op_index(arg & 0xf); - if (b_print) - { - print_type(arg1); - printf(", "); - print_type(arg2); - printf("\n"); - } - binary_operations[arg1][arg2](buffer, LOPC_LESS); - return FALSE; -} -BOOL run_greater(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tGREATER ", offset); - offset++; - U8 arg = safe_instruction_bytestream2byte(buffer, offset); - U8 arg1 = safe_op_index(arg >> 4); - U8 arg2 = safe_op_index(arg & 0xf); - if (b_print) - { - print_type(arg1); - printf(", "); - print_type(arg2); - printf("\n"); - } - binary_operations[arg1][arg2](buffer, LOPC_GREATER); - return FALSE; -} - -BOOL run_bitand(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tBITAND\n", offset); - offset++; - binary_operations[LST_INTEGER][LST_INTEGER](buffer, LOPC_BITAND); - return FALSE; -} -BOOL run_bitor(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tBITOR\n", offset); - offset++; - binary_operations[LST_INTEGER][LST_INTEGER](buffer, LOPC_BITOR); - return FALSE; -} -BOOL run_bitxor(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tBITXOR\n", offset); - offset++; - binary_operations[LST_INTEGER][LST_INTEGER](buffer, LOPC_BITXOR); - return FALSE; -} -BOOL run_booland(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tBOOLAND\n", offset); - offset++; - binary_operations[LST_INTEGER][LST_INTEGER](buffer, LOPC_BOOLAND); - return FALSE; -} -BOOL run_boolor(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tBOOLOR\n", offset); - offset++; - binary_operations[LST_INTEGER][LST_INTEGER](buffer, LOPC_BOOLOR); - return FALSE; -} - -BOOL run_shl(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSHL\n", offset); - offset++; - binary_operations[LST_INTEGER][LST_INTEGER](buffer, LOPC_SHL); - return FALSE; -} -BOOL run_shr(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSHR\n", offset); - offset++; - binary_operations[LST_INTEGER][LST_INTEGER](buffer, LOPC_SHR); - return FALSE; -} - -void integer_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - S32 lside = lscript_pop_int(buffer); - S32 result = 0; - - switch(opcode) - { - case LOPC_NEG: - result = -lside; - break; - case LOPC_BITNOT: - result = ~lside; - break; - case LOPC_BOOLNOT: - result = !lside; - break; - default: - break; - } - lscript_push(buffer, result); -} - -void float_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - F32 lside = lscript_pop_float(buffer); - F32 result = 0; - - switch(opcode) - { - case LOPC_NEG: - result = -lside; - lscript_push(buffer, result); - break; - default: - break; - } -} - -void vector_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - LLVector3 lside; - lscript_pop_vector(buffer, lside); - LLVector3 result; - - switch(opcode) - { - case LOPC_NEG: - result = -lside; - lscript_push(buffer, result); - break; - default: - break; - } -} - -void quaternion_operation(U8 *buffer, LSCRIPTOpCodesEnum opcode) -{ - LLQuaternion lside; - lscript_pop_quaternion(buffer, lside); - LLQuaternion result; - - switch(opcode) - { - case LOPC_NEG: - result = -lside; - lscript_push(buffer, result); - break; - default: - break; - } -} - -BOOL run_neg(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tNEG ", offset); - offset++; - U8 arg = safe_op_index(safe_instruction_bytestream2byte(buffer, offset)); - if (b_print) - { - print_type(arg); - printf("\n"); - } - unary_operations[arg](buffer, LOPC_NEG); - return FALSE; -} - -BOOL run_bitnot(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tBITNOT\n", offset); - offset++; - unary_operations[LST_INTEGER](buffer, LOPC_BITNOT); - return FALSE; -} - -BOOL run_boolnot(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tBOOLNOT\n", offset); - offset++; - unary_operations[LST_INTEGER](buffer, LOPC_BOOLNOT); - return FALSE; -} - -BOOL run_jump(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tJUMP ", offset); - offset++; - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("%d\n", arg); - offset += arg; - return FALSE; -} - -BOOL run_jumpif(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tJUMPIF ", offset); - offset++; - U8 type = safe_instruction_bytestream2byte(buffer, offset); - if (b_print) - { - print_type(type); - printf(", "); - } - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("%d\n", arg); - - if (type == LST_INTEGER) - { - S32 test = lscript_pop_int(buffer); - if (test) - { - offset += arg; - } - } - else if (type == LST_FLOATINGPOINT) - { - F32 test = lscript_pop_float(buffer); - if (test) - { - offset += arg; - } - } - else if (type == LST_VECTOR) - { - LLVector3 test; - lscript_pop_vector(buffer, test); - if (!test.isExactlyZero()) - { - offset += arg; - } - } - else if (type == LST_QUATERNION) - { - LLQuaternion test; - lscript_pop_quaternion(buffer, test); - if (!test.isIdentity()) - { - offset += arg; - } - } - else if (type == LST_STRING) - { - S32 base_address = lscript_pop_int(buffer); - // this bit of nastiness is to get around that code paths to - // local variables can result in lack of initialization and - // function clean up of ref counts isn't based on scope (a - // mistake, I know) - S32 address = base_address + get_register(buffer, LREG_HR) - 1; - if (address) - { - S32 string = address; - string += SIZEOF_SCRIPT_ALLOC_ENTRY; - if (safe_heap_check_address(buffer, string, 1)) - { - S32 toffset = string; - safe_heap_bytestream_count_char(buffer, toffset); - S32 size = toffset - string; - char *sdata = new char[size]; - bytestream2char(sdata, buffer, string, size); - if (strlen(sdata)) /*Flawfinder: ignore*/ - { - offset += arg; - } - delete [] sdata; - } - lsa_decrease_ref_count(buffer, base_address); - } - } - else if (type == LST_KEY) - { - S32 base_address = lscript_pop_int(buffer); - // this bit of nastiness is to get around that code paths to - // local variables can result in lack of initialization and - // function clean up of ref counts isn't based on scope (a - // mistake, I know) - S32 address = base_address + get_register(buffer, LREG_HR) - 1; - if (address) - { - S32 string = address; - string += SIZEOF_SCRIPT_ALLOC_ENTRY; - if (safe_heap_check_address(buffer, string, 1)) - { - S32 toffset = string; - safe_heap_bytestream_count_char(buffer, toffset); - S32 size = toffset - string; - char *sdata = new char[size]; - bytestream2char(sdata, buffer, string, size); - if (strlen(sdata)) /*Flawfinder: ignore*/ - { - LLUUID id; - if (id.set(sdata) && id.notNull()) - offset += arg; - } - delete [] sdata; - } - lsa_decrease_ref_count(buffer, base_address); - } - } - else if (type == LST_LIST) - { - S32 base_address = lscript_pop_int(buffer); - S32 address = base_address + get_register(buffer, LREG_HR) - 1; - if (address) - { - if (safe_heap_check_address(buffer, address + SIZEOF_SCRIPT_ALLOC_ENTRY, 1)) - { - LLScriptLibData *list = lsa_get_list_ptr(buffer, base_address, TRUE); - if (list && list->getListLength()) - { - offset += arg; - } - delete list; - } - } - } - return FALSE; -} - -BOOL run_jumpnif(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tJUMPNIF ", offset); - offset++; - U8 type = safe_instruction_bytestream2byte(buffer, offset); - if (b_print) - { - print_type(type); - printf(", "); - } - S32 arg = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("%d\n", arg); - - if (type == LST_INTEGER) - { - S32 test = lscript_pop_int(buffer); - if (!test) - { - offset += arg; - } - } - else if (type == LST_FLOATINGPOINT) - { - F32 test = lscript_pop_float(buffer); - if (!test) - { - offset += arg; - } - } - else if (type == LST_VECTOR) - { - LLVector3 test; - lscript_pop_vector(buffer, test); - if (test.isExactlyZero()) - { - offset += arg; - } - } - else if (type == LST_QUATERNION) - { - LLQuaternion test; - lscript_pop_quaternion(buffer, test); - if (test.isIdentity()) - { - offset += arg; - } - } - else if (type == LST_STRING) - { - S32 base_address = lscript_pop_int(buffer); - // this bit of nastiness is to get around that code paths to - // local variables can result in lack of initialization and - // function clean up of ref counts isn't based on scope (a - // mistake, I know) - S32 address = base_address + get_register(buffer, LREG_HR) - 1; - if (address) - { - S32 string = address; - string += SIZEOF_SCRIPT_ALLOC_ENTRY; - if (safe_heap_check_address(buffer, string, 1)) - { - S32 toffset = string; - safe_heap_bytestream_count_char(buffer, toffset); - S32 size = toffset - string; - char *sdata = new char[size]; - bytestream2char(sdata, buffer, string, size); - if (!strlen(sdata)) /*Flawfinder: ignore*/ - { - offset += arg; - } - delete [] sdata; - } - lsa_decrease_ref_count(buffer, base_address); - } - } - else if (type == LST_KEY) - { - S32 base_address = lscript_pop_int(buffer); - // this bit of nastiness is to get around that code paths to - // local variables can result in lack of initialization and - // function clean up of ref counts isn't based on scope (a - // mistake, I know) - S32 address = base_address + get_register(buffer, LREG_HR) - 1; - if (address) - { - S32 string = address; - string += SIZEOF_SCRIPT_ALLOC_ENTRY; - if (safe_heap_check_address(buffer, string, 1)) - { - S32 toffset = string; - safe_heap_bytestream_count_char(buffer, toffset); - S32 size = toffset - string; - char *sdata = new char[size]; - bytestream2char(sdata, buffer, string, size); - if (strlen(sdata)) /*Flawfinder: ignore*/ - { - LLUUID id; - if (!id.set(sdata) || id.isNull()) - offset += arg; - } - else - { - offset += arg; - } - delete [] sdata; - } - lsa_decrease_ref_count(buffer, base_address); - } - } - else if (type == LST_LIST) - { - S32 base_address = lscript_pop_int(buffer); - // this bit of nastiness is to get around that code paths to - // local variables can result in lack of initialization and - // function clean up of ref counts isn't based on scope (a - // mistake, I know) - S32 address = base_address + get_register(buffer, LREG_HR) - 1; - if (address) - { - if (safe_heap_check_address(buffer, address + SIZEOF_SCRIPT_ALLOC_ENTRY, 1)) - { - LLScriptLibData *list = lsa_get_list_ptr(buffer, base_address, TRUE); - if (!list || !list->getListLength()) - { - offset += arg; - } - delete list; - } - } - } - return FALSE; -} - -BOOL run_state(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tSTATE ", offset); - offset++; - S32 state = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("%d\n", state); - - S32 bp = lscript_pop_int(buffer); - set_bp(buffer, bp); - - offset = lscript_pop_int(buffer); - - S32 major_version = 0; - S32 value = get_register(buffer, LREG_VN); - if (value == LSL2_VERSION1_END_NUMBER) - { - major_version = 1; - } - else if (value == LSL2_VERSION_NUMBER) - { - major_version = 2; - } - - S32 current_state = get_register(buffer, LREG_CS); - if (state != current_state) - { - U64 ce = get_event_register(buffer, LREG_CE, major_version); - ce |= LSCRIPTStateBitField[LSTT_STATE_EXIT]; - set_event_register(buffer, LREG_CE, ce, major_version); - } - set_register(buffer, LREG_NS, state); - return FALSE; -} - -BOOL run_call(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tCALL ", offset); - offset++; - S32 func = safe_instruction_bytestream2integer(buffer, offset); - if (b_print) - printf("%d\n", func); - - lscript_local_store(buffer, -8, offset); - - S32 minimum = get_register(buffer, LREG_GFR); - S32 maximum = get_register(buffer, LREG_SR); - S32 lookup = minimum + func*4 + 4; - S32 function; - - if ( (lookup >= minimum) - &&(lookup < maximum)) - { - function = bytestream2integer(buffer, lookup) + minimum; - if ( (lookup >= minimum) - &&(lookup < maximum)) - { - offset = function; - offset += bytestream2integer(buffer, function); - } - else - { - set_fault(buffer, LSRF_BOUND_CHECK_ERROR); - } - } - else - { - set_fault(buffer, LSRF_BOUND_CHECK_ERROR); - } - return FALSE; -} - -BOOL run_return(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tRETURN\n", offset); - offset++; - - // SEC-53: babbage: broken instructions may allow inbalanced pushes and - // pops which can cause caller BP and return IP to be corrupted, so restore - // SP from BP before popping caller BP and IP. - S32 bp = get_register(buffer, LREG_BP); - set_sp(buffer, bp); - - bp = lscript_pop_int(buffer); - set_bp(buffer, bp); - offset = lscript_pop_int(buffer); - return FALSE; -} - - - -BOOL run_cast(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - char caststr[1024]; /*Flawfinder: ignore*/ - if (b_print) - printf("[0x%X]\tCAST ", offset); - offset++; - U8 arg = safe_instruction_bytestream2byte(buffer, offset); - U8 from = arg >> 4; - U8 to = arg & 0xf; - if (b_print) - { - print_type(from); - printf(", "); - print_type(to); - printf("\n"); - } - - switch(from) - { - case LST_INTEGER: - { - switch(to) - { - case LST_INTEGER: - break; - case LST_FLOATINGPOINT: - { - S32 source = lscript_pop_int(buffer); - F32 dest = (F32)source; - lscript_push(buffer, dest); - } - break; - case LST_STRING: - { - S32 address, source = lscript_pop_int(buffer); - snprintf(caststr, sizeof(caststr), "%d", source); /* Flawfinder: ignore */ - address = lsa_heap_add_data(buffer, new LLScriptLibData(caststr), get_max_heap_size(buffer), TRUE); - lscript_push(buffer, address); - } - break; - case LST_LIST: - { - S32 address, source = lscript_pop_int(buffer); - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = new LLScriptLibData(source); - address = lsa_heap_add_data(buffer, list, get_max_heap_size(buffer), TRUE); - lscript_push(buffer, address); - } - break; - default: - break; - } - } - break; - case LST_FLOATINGPOINT: - { - switch(to) - { - case LST_INTEGER: - { - F32 source = lscript_pop_float(buffer); - S32 dest = (S32)source; - lscript_push(buffer, dest); - } - break; - case LST_FLOATINGPOINT: - break; - case LST_STRING: - { - S32 address; - F32 source = lscript_pop_float(buffer); - snprintf(caststr, sizeof(caststr), "%f", source); /* Flawfinder: ignore */ - address = lsa_heap_add_data(buffer, new LLScriptLibData(caststr), get_max_heap_size(buffer), TRUE); - lscript_push(buffer, address); - } - break; - case LST_LIST: - { - S32 address; - F32 source = lscript_pop_float(buffer); - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = new LLScriptLibData(source); - address = lsa_heap_add_data(buffer, list, get_max_heap_size(buffer), TRUE); - lscript_push(buffer, address); - } - break; - default: - break; - } - } - break; - case LST_STRING: - { - switch(to) - { - case LST_INTEGER: - { - S32 base_address = lscript_pop_int(buffer); - // this bit of nastiness is to get around that code paths to local variables can result in lack of initialization - // and function clean up of ref counts isn't based on scope (a mistake, I know) - S32 address = base_address + get_register(buffer, LREG_HR) - 1; - if (address) - { - S32 string = address; - string += SIZEOF_SCRIPT_ALLOC_ENTRY; - if (safe_heap_check_address(buffer, string, 1)) - { - S32 toffset = string; - safe_heap_bytestream_count_char(buffer, toffset); - S32 size = toffset - string; - char *arg = new char[size]; - bytestream2char(arg, buffer, string, size); - // S32 length = strlen(arg); - S32 dest; - S32 base; - - // Check to see if this is a hexidecimal number. - if ( (arg[0] == '0') && - (arg[1] == 'x' || arg[1] == 'X') ) - { - // Let strtoul do a hex conversion. - base = 16; - } - else - { - // Force base-10, so octal is never used. - base = 10; - } - - dest = strtoul(arg, NULL, base); - - lscript_push(buffer, dest); - delete [] arg; - } - lsa_decrease_ref_count(buffer, base_address); - } - } - break; - case LST_FLOATINGPOINT: - { - S32 base_address = lscript_pop_int(buffer); - // this bit of nastiness is to get around that code paths to local variables can result in lack of initialization - // and function clean up of ref counts isn't based on scope (a mistake, I know) - S32 address = base_address + get_register(buffer, LREG_HR) - 1; - if (address) - { - S32 string = address; - string += SIZEOF_SCRIPT_ALLOC_ENTRY; - if (safe_heap_check_address(buffer, string, 1)) - { - S32 toffset = string; - safe_heap_bytestream_count_char(buffer, toffset); - S32 size = toffset - string; - char *arg = new char[size]; - bytestream2char(arg, buffer, string, size); - F32 dest = (F32)atof(arg); - - - lscript_push(buffer, dest); - delete [] arg; - } - lsa_decrease_ref_count(buffer, base_address); - } - } - break; - case LST_STRING: - break; - case LST_LIST: - { - S32 saddress = lscript_pop_int(buffer); - LLScriptLibData *string = lsa_get_data(buffer, saddress, TRUE); - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = string; - S32 address = lsa_heap_add_data(buffer, list, get_max_heap_size(buffer), TRUE); - lscript_push(buffer, address); - } - break; - case LST_VECTOR: - { - S32 base_address = lscript_pop_int(buffer); - // this bit of nastiness is to get around that code paths to local variables can result in lack of initialization - // and function clean up of ref counts isn't based on scope (a mistake, I know) - S32 address = base_address + get_register(buffer, LREG_HR) - 1; - if (address) - { - S32 string = address; - string += SIZEOF_SCRIPT_ALLOC_ENTRY; - if (safe_heap_check_address(buffer, string, 1)) - { - S32 toffset = string; - safe_heap_bytestream_count_char(buffer, toffset); - S32 size = toffset - string; - char *arg = new char[size]; - bytestream2char(arg, buffer, string, size); - LLVector3 vec; - S32 num = sscanf(arg, "<%f, %f, %f>", &vec.mV[VX], &vec.mV[VY], &vec.mV[VZ]); - if (num != 3) - { - vec = LLVector3::zero; - } - lscript_push(buffer, vec); - delete [] arg; - } - lsa_decrease_ref_count(buffer, base_address); - } - } - break; - case LST_QUATERNION: - { - S32 base_address = lscript_pop_int(buffer); - // this bit of nastiness is to get around that code paths to local variables can result in lack of initialization - // and function clean up of ref counts isn't based on scope (a mistake, I know) - S32 address = base_address + get_register(buffer, LREG_HR) - 1; - if (address) - { - S32 string = address; - string += SIZEOF_SCRIPT_ALLOC_ENTRY; - if (safe_heap_check_address(buffer, string, 1)) - { - S32 toffset = string; - safe_heap_bytestream_count_char(buffer, toffset); - S32 size = toffset - string; - char *arg = new char[size]; - bytestream2char(arg, buffer, string, size); - LLQuaternion quat; - S32 num = sscanf(arg, "<%f, %f, %f, %f>", &quat.mQ[VX], &quat.mQ[VY], &quat.mQ[VZ], &quat.mQ[VW]); - if (num != 4) - { - quat = LLQuaternion::DEFAULT; - - } - lscript_push(buffer, quat); - delete [] arg; - } - lsa_decrease_ref_count(buffer, base_address); - } - } - break; - default: - break; - } - } - break; - case LST_KEY: - { - switch(to) - { - case LST_KEY: - break; - case LST_STRING: - break; - case LST_LIST: - { - S32 saddress = lscript_pop_int(buffer); - LLScriptLibData *string = lsa_get_data(buffer, saddress, TRUE); - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = string; - S32 address = lsa_heap_add_data(buffer, list, get_max_heap_size(buffer), TRUE); - lscript_push(buffer, address); - } - break; - default: - break; - } - } - break; - case LST_VECTOR: - { - switch(to) - { - case LST_VECTOR: - break; - case LST_STRING: - { - S32 address; - LLVector3 source; - lscript_pop_vector(buffer, source); - snprintf(caststr, sizeof(caststr), "<%5.5f, %5.5f, %5.5f>", source.mV[VX], source.mV[VY], source.mV[VZ]); /* Flawfinder: ignore */ - address = lsa_heap_add_data(buffer, new LLScriptLibData(caststr), get_max_heap_size(buffer), TRUE); - lscript_push(buffer, address); - } - break; - case LST_LIST: - { - S32 address; - LLVector3 source; - lscript_pop_vector(buffer, source); - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = new LLScriptLibData(source); - address = lsa_heap_add_data(buffer, list, get_max_heap_size(buffer), TRUE); - lscript_push(buffer, address); - } - break; - default: - break; - } - } - break; - case LST_QUATERNION: - { - switch(to) - { - case LST_QUATERNION: - break; - case LST_STRING: - { - S32 address; - LLQuaternion source; - lscript_pop_quaternion(buffer, source); - snprintf(caststr, sizeof(caststr), "<%5.5f, %5.5f, %5.5f, %5.5f>", source.mQ[VX], source.mQ[VY], source.mQ[VZ], source.mQ[VS]); /* Flawfinder: ignore */ - address = lsa_heap_add_data(buffer, new LLScriptLibData(caststr), get_max_heap_size(buffer), TRUE); - lscript_push(buffer, address); - } - break; - case LST_LIST: - { - S32 address; - LLQuaternion source; - lscript_pop_quaternion(buffer, source); - LLScriptLibData *list = new LLScriptLibData; - list->mType = LST_LIST; - list->mListp = new LLScriptLibData(source); - address = lsa_heap_add_data(buffer, list, get_max_heap_size(buffer), TRUE); - lscript_push(buffer, address); - } - break; - default: - break; - } - } - break; - case LST_LIST: - { - switch(to) - { - case LST_LIST: - break; - case LST_STRING: - { - S32 address = lscript_pop_int(buffer); - LLScriptLibData *list = lsa_get_data(buffer, address, TRUE); - LLScriptLibData *list_root = list; - - std::ostringstream dest; - while (list) - { - list->print(dest, FALSE); - list = list->mListp; - } - delete list_root; - char *tmp = strdup(dest.str().c_str()); - LLScriptLibData *string = new LLScriptLibData(tmp); - free(tmp); - tmp = NULL; - S32 destaddress = lsa_heap_add_data(buffer, string, get_max_heap_size(buffer), TRUE); - lscript_push(buffer, destaddress); - } - break; - default: - break; - } - } - break; - default: - break; - } - return FALSE; -} - -BOOL run_stacktos(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - offset++; - S32 length = lscript_pop_int(buffer); - S32 i; - char *arg = new char[length]; - S32 fault; - for (i = 0; i < length; i++) - { - fault = get_register(buffer, LREG_FR); - if (fault) - break; - - arg[length - i - 1] = lscript_pop_char(buffer); - } - S32 address = lsa_heap_add_data(buffer, new LLScriptLibData(arg), get_max_heap_size(buffer), TRUE); - lscript_push(buffer, address); - delete [] arg; - return FALSE; -} - -void lscript_stacktol_pop_variable(LLScriptLibData *data, U8 *buffer, char type) -{ - S32 address, string; - S32 base_address; - - switch(type) - { - case LST_INTEGER: - data->mType = LST_INTEGER; - data->mInteger = lscript_pop_int(buffer); - break; - case LST_FLOATINGPOINT: - data->mType = LST_FLOATINGPOINT; - data->mFP = lscript_pop_float(buffer); - break; - case LST_KEY: - data->mType = LST_KEY; - - base_address = lscript_pop_int(buffer); - // this bit of nastiness is to get around that code paths to local variables can result in lack of initialization - // and function clean up of ref counts isn't based on scope (a mistake, I know) - address = base_address + get_register(buffer, LREG_HR) - 1; - - if (address) - { - string = address + SIZEOF_SCRIPT_ALLOC_ENTRY; - if (safe_heap_check_address(buffer, string, 1)) - { - S32 toffset = string; - safe_heap_bytestream_count_char(buffer, toffset); - S32 size = toffset - string; - data->mKey = new char[size]; - bytestream2char(data->mKey, buffer, string, size); - } - lsa_decrease_ref_count(buffer, base_address); - } - else - { - data->mKey = new char[1]; - data->mKey[0] = 0; - } - break; - case LST_STRING: - data->mType = LST_STRING; - - base_address = lscript_pop_int(buffer); - // this bit of nastiness is to get around that code paths to local variables can result in lack of initialization - // and function clean up of ref counts isn't based on scope (a mistake, I know) - address = base_address + get_register(buffer, LREG_HR) - 1; - - if (address) - { - string = address + SIZEOF_SCRIPT_ALLOC_ENTRY; - if (safe_heap_check_address(buffer, string, 1)) - { - S32 toffset = string; - safe_heap_bytestream_count_char(buffer, toffset); - S32 size = toffset - string; - data->mString = new char[size]; - bytestream2char(data->mString, buffer, string, size); - } - lsa_decrease_ref_count(buffer, base_address); - } - else - { - data->mString = new char[1]; - data->mString[0] = 0; - } - break; - case LST_VECTOR: - data->mType = LST_VECTOR; - lscript_pop_vector(buffer, data->mVec); - break; - case LST_QUATERNION: - data->mType = LST_QUATERNION; - lscript_pop_quaternion(buffer, data->mQuat); - break; - case LST_LIST: - data->mType = LST_LIST; - address = lscript_pop_int(buffer); - data->mListp = lsa_get_data(buffer, address, TRUE); - break; - } -} - -BOOL run_stacktol(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - offset++; - S32 length = safe_instruction_bytestream2integer(buffer, offset); - S32 i; - S32 fault; - - S8 type; - - LLScriptLibData *data = new LLScriptLibData, *tail; - data->mType = LST_LIST; - - for (i = 0; i < length; i++) - { - fault = get_register(buffer, LREG_FR); - if (fault) - break; - - type = lscript_pop_char(buffer); - - tail = new LLScriptLibData; - - lscript_stacktol_pop_variable(tail, buffer, type); - - tail->mListp = data->mListp; - data->mListp = tail; - } - S32 address = lsa_heap_add_data(buffer,data, get_max_heap_size(buffer), TRUE); - lscript_push(buffer, address); - return FALSE; -} - -BOOL run_print(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - if (b_print) - printf("[0x%X]\tPRINT ", offset); - offset++; - U8 type = safe_instruction_bytestream2byte(buffer, offset); - if (b_print) - { - print_type(type); - printf("\n"); - } - switch(type) - { - case LST_INTEGER: - { - S32 source = lscript_pop_int(buffer); - printf("%d\n", source); - } - break; - case LST_FLOATINGPOINT: - { - F32 source = lscript_pop_float(buffer); - printf("%f\n", source); - } - break; - case LST_STRING: - { - S32 base_address = lscript_pop_int(buffer); - // this bit of nastiness is to get around that code paths to local variables can result in lack of initialization - // and function clean up of ref counts isn't based on scope (a mistake, I know) - S32 address = base_address + get_register(buffer, LREG_HR) - 1; - - if (address) - { - S32 string = address; - string += SIZEOF_SCRIPT_ALLOC_ENTRY; - if (safe_heap_check_address(buffer, string, 1)) - { - S32 toffset = string; - safe_heap_bytestream_count_char(buffer, toffset); - S32 size = toffset - string; - char *arg = new char[size]; - bytestream2char(arg, buffer, string, size); - printf("%s\n", arg); - delete [] arg; - } - lsa_decrease_ref_count(buffer, base_address); - } - } - break; - case LST_VECTOR: - { - LLVector3 source; - lscript_pop_vector(buffer, source); - printf("< %f, %f, %f >\n", source.mV[VX], source.mV[VY], source.mV[VZ]); - } - break; - case LST_QUATERNION: - { - LLQuaternion source; - lscript_pop_quaternion(buffer, source); - printf("< %f, %f, %f, %f >\n", source.mQ[VX], source.mQ[VY], source.mQ[VZ], source.mQ[VS]); - } - break; - case LST_LIST: - { - S32 base_address = lscript_pop_int(buffer); - LLScriptLibData *data = lsa_get_data(buffer, base_address, TRUE); - LLScriptLibData *print = data; - - printf("list\n"); - - while (print) - { - switch(print->mType) - { - case LST_INTEGER: - { - printf("%d\n", print->mInteger); - } - break; - case LST_FLOATINGPOINT: - { - printf("%f\n", print->mFP); - } - break; - case LST_STRING: - { - printf("%s\n", print->mString); - } - break; - case LST_KEY: - { - printf("%s\n", print->mKey); - } - break; - case LST_VECTOR: - { - printf("< %f, %f, %f >\n", print->mVec.mV[VX], print->mVec.mV[VY], print->mVec.mV[VZ]); - } - break; - case LST_QUATERNION: - { - printf("< %f, %f, %f, %f >\n", print->mQuat.mQ[VX], print->mQuat.mQ[VY], print->mQuat.mQ[VZ], print->mQuat.mQ[VS]); - } - break; - default: - break; - } - print = print->mListp; - } - delete data; - } - break; - default: - break; - } - return FALSE; -} - - -void lscript_run(const std::string& filename, BOOL b_debug) -{ - LLTimer timer; - - const char *error; - LLScriptExecuteLSL2 *execute = NULL; - - if (filename.empty()) - { - LL_ERRS() << "filename is NULL" << LL_ENDL; - // Just reporting error is likely not enough. Need - // to check how to abort or error out gracefully - // from this function. XXXTBD - } - LLFILE* file = LLFile::fopen(filename, "r"); /* Flawfinder: ignore */ - if(file) - { - execute = new LLScriptExecuteLSL2(file); - fclose(file); - } - if (execute) - { - timer.reset(); - F32 time_slice = 3600.0f; // 1 hr. - U32 events_processed = 0; - - do { - LLTimer timer2; - execute->runQuanta(b_debug, LLUUID::null, &error, - time_slice, events_processed, timer2); - } while (!execute->isFinished()); - - F32 time = timer.getElapsedTimeF32(); - F32 ips = execute->mInstructionCount / time; - LL_INFOS() << execute->mInstructionCount << " instructions in " << time << " seconds" << LL_ENDL; - LL_INFOS() << ips/1000 << "K instructions per second" << LL_ENDL; - printf("ip: 0x%X\n", get_register(execute->mBuffer, LREG_IP)); - printf("sp: 0x%X\n", get_register(execute->mBuffer, LREG_SP)); - printf("bp: 0x%X\n", get_register(execute->mBuffer, LREG_BP)); - printf("hr: 0x%X\n", get_register(execute->mBuffer, LREG_HR)); - printf("hp: 0x%X\n", get_register(execute->mBuffer, LREG_HP)); - delete execute; - fclose(file); - } -} - -void lscript_pop_variable(LLScriptLibData *data, U8 *buffer, char type) -{ - S32 address, string; - S32 base_address; - - switch(type) - { - case 'i': - data->mType = LST_INTEGER; - data->mInteger = lscript_pop_int(buffer); - break; - case 'f': - data->mType = LST_FLOATINGPOINT; - data->mFP = lscript_pop_float(buffer); - break; - case 'k': - data->mType = LST_KEY; - data->mKey = NULL; - - base_address = lscript_pop_int(buffer); - // this bit of nastiness is to get around that code paths to local variables can result in lack of initialization - // and function clean up of ref counts isn't based on scope (a mistake, I know) - address = base_address + get_register(buffer, LREG_HR) - 1; - - if (address) - { - string = address + SIZEOF_SCRIPT_ALLOC_ENTRY; - if (safe_heap_check_address(buffer, string, 1)) - { - S32 toffset = string; - safe_heap_bytestream_count_char(buffer, toffset); - S32 size = toffset - string; - data->mKey = new char[size]; - bytestream2char(data->mKey, buffer, string, size); - } - lsa_decrease_ref_count(buffer, base_address); - } - if (data->mKey == NULL) - { - data->mKey = new char[1]; - data->mKey[0] = 0; - } - break; - case 's': - data->mType = LST_STRING; - data->mString = NULL; - - base_address = lscript_pop_int(buffer); - // this bit of nastiness is to get around that code paths to local variables can result in lack of initialization - // and function clean up of ref counts isn't based on scope (a mistake, I know) - address = base_address + get_register(buffer, LREG_HR) - 1; - - if (address) - { - string = address + SIZEOF_SCRIPT_ALLOC_ENTRY; - if (safe_heap_check_address(buffer, string, 1)) - { - S32 toffset = string; - safe_heap_bytestream_count_char(buffer, toffset); - S32 size = toffset - string; - data->mString = new char[size]; - bytestream2char(data->mString, buffer, string, size); - } - lsa_decrease_ref_count(buffer, base_address); - } - if (data->mString == NULL) - { - data->mString = new char[1]; - data->mString[0] = 0; - } - break; - case 'l': - { - S32 base_address = lscript_pop_int(buffer); - data->mType = LST_LIST; - data->mListp = lsa_get_list_ptr(buffer, base_address, TRUE); - } - break; - case 'v': - data->mType = LST_VECTOR; - lscript_pop_vector(buffer, data->mVec); - break; - case 'q': - data->mType = LST_QUATERNION; - lscript_pop_quaternion(buffer, data->mQuat); - break; - } -} - -void lscript_push_return_variable(LLScriptLibData *data, U8 *buffer) -{ - S32 address; - switch(data->mType) - { - case LST_INTEGER: - lscript_local_store(buffer, -12, data->mInteger); - break; - case LST_FLOATINGPOINT: - lscript_local_store(buffer, -12, data->mFP); - break; - case LST_KEY: - address = lsa_heap_add_data(buffer, data, get_max_heap_size(buffer), FALSE); - lscript_local_store(buffer, -12, address); - break; - case LST_STRING: - address = lsa_heap_add_data(buffer, data, get_max_heap_size(buffer), FALSE); - lscript_local_store(buffer, -12, address); - break; - case LST_LIST: - address = lsa_heap_add_data(buffer, data, get_max_heap_size(buffer), FALSE); - lscript_local_store(buffer, -12, address); - break; - case LST_VECTOR: - lscript_local_store(buffer, -20, data->mVec); - break; - case LST_QUATERNION: - lscript_local_store(buffer, -24, data->mQuat); - break; - default: - break; - } -} - -S32 lscript_push_variable(LLScriptLibData *data, U8 *buffer) -{ - S32 address; - switch(data->mType) - { - case LST_INTEGER: - lscript_push(buffer, data->mInteger); - break; - case LST_FLOATINGPOINT: - lscript_push(buffer, data->mFP); - return 4; - break; - case LST_KEY: - address = lsa_heap_add_data(buffer, data, get_max_heap_size(buffer), FALSE); - lscript_push(buffer, address); - return 4; - break; - case LST_STRING: - address = lsa_heap_add_data(buffer, data, get_max_heap_size(buffer), FALSE); - lscript_push(buffer, address); - return 4; - break; - case LST_LIST: - address = lsa_heap_add_data(buffer, data, get_max_heap_size(buffer), FALSE); - lscript_push(buffer, address); - return 4; - break; - case LST_VECTOR: - lscript_push(buffer, data->mVec); - return 12; - break; - case LST_QUATERNION: - lscript_push(buffer, data->mQuat); - return 16; - break; - default: - break; - } - return 4; -} - - -// Shared code for run_calllib() and run_calllib_two_byte() -BOOL run_calllib_common(U8 *buffer, S32 &offset, const LLUUID &id, U16 arg) -{ - if (arg >= gScriptLibrary.mFunctions.size()) - { - set_fault(buffer, LSRF_BOUND_CHECK_ERROR); - return FALSE; - } - LLScriptLibraryFunction const & function = gScriptLibrary.mFunctions[arg]; - - // pull out the arguments and the return values - LLScriptLibData *arguments = NULL; - LLScriptLibData *returnvalue = NULL; - - S32 i, number; - - if (function.mReturnType) - { - returnvalue = new LLScriptLibData; - } - - if (function.mArgs) - { - number = (S32)strlen(function.mArgs); //Flawfinder: ignore - arguments = new LLScriptLibData[number]; - } - else - { - number = 0; - } - - for (i = number - 1; i >= 0; i--) - { - lscript_pop_variable(&arguments[i], buffer, function.mArgs[i]); - } - - // Actually execute the function call - function.mExecFunc(returnvalue, arguments, id); - - add_register_fp(buffer, LREG_ESR, -(function.mEnergyUse)); - add_register_fp(buffer, LREG_SLR, function.mSleepTime); - - if (returnvalue) - { - returnvalue->mType = char2type(*function.mReturnType); - lscript_push_return_variable(returnvalue, buffer); - } - - delete [] arguments; - delete returnvalue; - - // reset the BP after calling the library files - S32 bp = lscript_pop_int(buffer); - set_bp(buffer, bp); - - // pop off the spot for the instruction pointer - lscript_poparg(buffer, 4); - return FALSE; -} - - -BOOL run_calllib(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - offset++; - U16 arg = (U16) safe_instruction_bytestream2byte(buffer, offset); - if (b_print && - arg < gScriptLibrary.mFunctions.size()) - { - printf("[0x%X]\tCALLLIB ", offset); - LLScriptLibraryFunction const & function = gScriptLibrary.mFunctions[arg]; - printf("%d (%s)\n", (U32)arg, function.mName); - //printf("%s\n", function.mDesc); - } - return run_calllib_common(buffer, offset, id, arg); -} - -BOOL run_calllib_two_byte(U8 *buffer, S32 &offset, BOOL b_print, const LLUUID &id) -{ - offset++; - U16 arg = safe_instruction_bytestream2u16(buffer, offset); - if (b_print && - arg < gScriptLibrary.mFunctions.size()) - { - printf("[0x%X]\tCALLLIB ", (offset-1)); - LLScriptLibraryFunction const & function = gScriptLibrary.mFunctions[arg]; - printf("%d (%s)\n", (U32)arg, function.mName); - //printf("%s\n", function.mDesc); - } - return run_calllib_common(buffer, offset, id, arg); -} |