diff options
Diffstat (limited to 'indra/lscript/lscript_execute')
| -rwxr-xr-x | indra/lscript/lscript_execute/CMakeLists.txt | 43 | ||||
| -rwxr-xr-x | indra/lscript/lscript_execute/llscriptresource.cpp | 93 | ||||
| -rwxr-xr-x | indra/lscript/lscript_execute/llscriptresourceconsumer.cpp | 106 | ||||
| -rwxr-xr-x | indra/lscript/lscript_execute/llscriptresourcepool.cpp | 44 | ||||
| -rwxr-xr-x | indra/lscript/lscript_execute/lscript_execute.cpp | 4318 | ||||
| -rwxr-xr-x | indra/lscript/lscript_execute/lscript_heapruntime.cpp | 519 | ||||
| -rwxr-xr-x | indra/lscript/lscript_execute/lscript_heapruntime.h | 40 | ||||
| -rwxr-xr-x | indra/lscript/lscript_execute/lscript_readlso.cpp | 1585 | ||||
| -rwxr-xr-x | indra/lscript/lscript_execute/lscript_readlso.h | 164 |
9 files changed, 0 insertions, 6912 deletions
diff --git a/indra/lscript/lscript_execute/CMakeLists.txt b/indra/lscript/lscript_execute/CMakeLists.txt deleted file mode 100755 index 49605982a8..0000000000 --- a/indra/lscript/lscript_execute/CMakeLists.txt +++ /dev/null @@ -1,43 +0,0 @@ -# -*- cmake -*- - -include(00-Common) -include(LLCommon) -include(LLMath) -include(LScript) - -include_directories( - ${LLCOMMON_INCLUDE_DIRS} - ${LLMATH_INCLUDE_DIRS} - ${LSCRIPT_INCLUDE_DIRS} - ) -include_directories(SYSTEM - ${LLCOMMON_SYSTEM_INCLUDE_DIRS} - ) - -set(lscript_execute_SOURCE_FILES - llscriptresource.cpp - llscriptresourceconsumer.cpp - llscriptresourcepool.cpp - lscript_execute.cpp - lscript_heapruntime.cpp - lscript_readlso.cpp - ) - -set(lscript_execute_HEADER_FILES - CMakeLists.txt - - ../llscriptresource.h - ../llscriptresourceconsumer.h - ../llscriptresourcepool.h - ../lscript_execute.h - ../lscript_rt_interface.h - lscript_heapruntime.h - lscript_readlso.h - ) - -set_source_files_properties(${lscript_execute_HEADER_FILES} - PROPERTIES HEADER_FILE_ONLY TRUE) - -list(APPEND lscript_execute_SOURCE_FILES ${lscript_execute_HEADER_FILES}) - -add_library (lscript_execute ${lscript_execute_SOURCE_FILES}) diff --git a/indra/lscript/lscript_execute/llscriptresource.cpp b/indra/lscript/lscript_execute/llscriptresource.cpp deleted file mode 100755 index 2c6811b226..0000000000 --- a/indra/lscript/lscript_execute/llscriptresource.cpp +++ /dev/null @@ -1,93 +0,0 @@ -/** - * @file llscriptresource.cpp - * @brief LLScriptResource class implementation for managing limited resources - * - * $LicenseInfo:firstyear=2008&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 "llscriptresource.h" -#include "llerror.h" - -LLScriptResource::LLScriptResource() -: mTotal(0), - mUsed(0) -{ -} - -bool LLScriptResource::request(S32 amount /* = 1 */) -{ - if (mUsed + amount <= mTotal) - { - mUsed += amount; - return true; - } - - return false; -} - -bool LLScriptResource::release(S32 amount /* = 1 */) -{ - if (mUsed >= amount) - { - mUsed -= amount; - return true; - } - - return false; -} - -S32 LLScriptResource::getAvailable() const -{ - if (mUsed > mTotal) - { - // It is possible after a parcel ownership change for more than total to be used - // In this case the user of this class just wants to know - // whether or not they can use a resource - return 0; - } - return (mTotal - mUsed); -} - -void LLScriptResource::setTotal(S32 amount) -{ - // This may cause this resource to be over spent - // such that more are in use than total allowed - // Until those resources are released getAvailable will return 0. - mTotal = amount; -} - -S32 LLScriptResource::getTotal() const -{ - return mTotal; -} - -S32 LLScriptResource::getUsed() const -{ - return mUsed; -} - -bool LLScriptResource::isOverLimit() const -{ - return (mUsed > mTotal); -} diff --git a/indra/lscript/lscript_execute/llscriptresourceconsumer.cpp b/indra/lscript/lscript_execute/llscriptresourceconsumer.cpp deleted file mode 100755 index 0ce5eb7dab..0000000000 --- a/indra/lscript/lscript_execute/llscriptresourceconsumer.cpp +++ /dev/null @@ -1,106 +0,0 @@ -/** - * @file llscriptresourceconsumer.cpp - * @brief An interface for a script resource consumer. - * - * $LicenseInfo:firstyear=2008&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 "llscriptresourceconsumer.h" - -#include "llscriptresourcepool.h" - -LLScriptResourceConsumer::LLScriptResourceConsumer() - : mScriptResourcePool(&LLScriptResourcePool::null) -{ } - -// Get the resource pool this consumer is currently using. -// virtual -LLScriptResourcePool& LLScriptResourceConsumer::getScriptResourcePool() -{ - return *mScriptResourcePool; -} - -// Get the resource pool this consumer is currently using. -// virtual -const LLScriptResourcePool& LLScriptResourceConsumer::getScriptResourcePool() const -{ - return *mScriptResourcePool; -} - -// virtual -void LLScriptResourceConsumer::setScriptResourcePool(LLScriptResourcePool& new_pool) -{ - mScriptResourcePool = &new_pool; -} - -bool LLScriptResourceConsumer::switchScriptResourcePools(LLScriptResourcePool& new_pool) -{ - if (&new_pool == &LLScriptResourcePool::null) - { - LL_WARNS() << "New pool is null" << LL_ENDL; - } - - if (isInPool(new_pool)) - { - return true; - } - - if (!canUseScriptResourcePool(new_pool)) - { - return false; - } - - S32 used_urls = getUsedPublicURLs(); - - getScriptResourcePool().getPublicURLResource().release( used_urls ); - setScriptResourcePool(new_pool); - getScriptResourcePool().getPublicURLResource().request( used_urls ); - - return true; -} - -bool LLScriptResourceConsumer::canUseScriptResourcePool(const LLScriptResourcePool& resource_pool) -{ - if (isInPool(resource_pool)) - { - return true; - } - - if (resource_pool.getPublicURLResource().getAvailable() < getUsedPublicURLs()) - { - return false; - } - - return true; -} - -bool LLScriptResourceConsumer::isInPool(const LLScriptResourcePool& resource_pool) -{ - const LLScriptResourcePool& current_pool = getScriptResourcePool(); - if ( &resource_pool == ¤t_pool ) - { - // This consumer is already in this pool - return true; - } - return false; -} - diff --git a/indra/lscript/lscript_execute/llscriptresourcepool.cpp b/indra/lscript/lscript_execute/llscriptresourcepool.cpp deleted file mode 100755 index 6bdc2bbd48..0000000000 --- a/indra/lscript/lscript_execute/llscriptresourcepool.cpp +++ /dev/null @@ -1,44 +0,0 @@ -/** - * @file llscriptresourcepool.cpp - * @brief Collection of limited script resources - * - * $LicenseInfo:firstyear=2008&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 "llscriptresourcepool.h" - -LLScriptResourcePool LLScriptResourcePool::null; - -LLScriptResourcePool::LLScriptResourcePool() -{ - -} - -LLScriptResource& LLScriptResourcePool::getPublicURLResource() -{ - return mLSLPublicURLs; -} - -const LLScriptResource& LLScriptResourcePool::getPublicURLResource() const -{ - return mLSLPublicURLs; -} 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); -} diff --git a/indra/lscript/lscript_execute/lscript_heapruntime.cpp b/indra/lscript/lscript_execute/lscript_heapruntime.cpp deleted file mode 100755 index 749857753d..0000000000 --- a/indra/lscript/lscript_execute/lscript_heapruntime.cpp +++ /dev/null @@ -1,519 +0,0 @@ -/** - * @file lscript_heapruntime.cpp - * @brief classes to manage script heap at runtime - * - * $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$ - */ - -#if 0 - -#include "linden_common.h" - -#include "lscript_heapruntime.h" -#include "lscript_execute.h" - - -/* - String Heap Format - Byte Description - 0x0 - 0xnn Single byte string including null terminator - - List Heap Format - Byte Description - 0x0 Next Entry Type - 0: End of list - 1: Integer - 2: Floating point - 3: String - 4: Vector - 5: Quaternion - 6: List - 0x1 - 0x4 Integer, Floating Point, String Address, List Address - or - 0x1 - 0xd Vector - or - 0x1 - 0x11 Quaternion - . . . - - Heap Block Format - Byte Description - 0x0 - 0x3 Offset to Next Block - 0x4 - 0x7 Object Reference Count - 0x8 Block Type - 0: Empty - 3: String - 6: List - 0x9 - 0xM Object Data - - Heap Management - - Adding Data - - 1) Set last empty spot to zero. - 2) Go to start of the heap (HR). - 3) Get next 4 bytes of offset. - 4) If zero, we've reached the end of used memory. If empty spot is zero go to step 9. Otherwise set base offset to 0 and go to step 9. - 5) Skip 4 bytes. - 6) Get next 1 byte of entry type. - 7) If zero, this spot is empty. If empty spot is zero, set empty spot to this address and go to step 9. Otherwise, coalesce with last empty spot and then go to step 9. - 8) Skip forward by offset and go to step 3. - 9) If the spot is empty, check to see if the size needed == offset - 9. - 10) If it does, let's drop our data into this spot. Set reference count to 1. Set entry type appropriately and copy the data in. - 11) If size needed < offset - 9 then we can stick in data and add in an empty block. - 12) Otherwise, we need to keep looking. Go to step 3. - - Increasing reference counts - - Decreasing reference counts - 1) Set entry type to 0. - 2) If offset is non-zero and the next entry is empty, coalesce. Go to step 2. - - What increases reference count: - Initial creation sets reference count to 1. - Storing the reference increases reference count by 1. - Pushing the reference increases reference count by 1. - Duplicating the reference increases reference count by 1. - - What decreases the reference count: - Popping the reference decreases reference count by 1. - */ - - -LLScriptHeapRunTime::LLScriptHeapRunTime() -: mLastEmpty(0), mBuffer(NULL), mCurrentPosition(0), mStackPointer(0), mHeapRegister(0), mbPrint(FALSE) -{ -} - -LLScriptHeapRunTime::~LLScriptHeapRunTime() -{ -} - -S32 LLScriptHeapRunTime::addData(char *string) -{ - if (!mBuffer) - return 0; - - S32 size = strlen(string) + 1; - S32 block_offset = findOpenBlock(size + HEAP_BLOCK_HEADER_SIZE); - - if (mCurrentPosition) - { - S32 offset = mCurrentPosition; - if (offset + block_offset + HEAP_BLOCK_HEADER_SIZE + LSCRIPTDataSize[LST_INTEGER] >= mStackPointer) - { - set_fault(mBuffer, LSRF_STACK_HEAP_COLLISION); - return 0; - } - // cool, we've found a spot! - // set offset - integer2bytestream(mBuffer, offset, block_offset); - // set reference count - integer2bytestream(mBuffer, offset, 1); - // set type - *(mBuffer + offset++) = LSCRIPTTypeByte[LST_STRING]; - // plug in data - char2bytestream(mBuffer, offset, string); - if (mbPrint) - printf("0x%X created ref count %d\n", mCurrentPosition - mHeapRegister, 1); - - // now, zero out next offset to prevent "trouble" - // offset = mCurrentPosition + size + HEAP_BLOCK_HEADER_SIZE; - // integer2bytestream(mBuffer, offset, 0); - } - return mCurrentPosition; -} - -S32 LLScriptHeapRunTime::addData(U8 *list) -{ - if (!mBuffer) - return 0; - return 0; -} - -S32 LLScriptHeapRunTime::catStrings(S32 address1, S32 address2) -{ - if (!mBuffer) - return 0; - - S32 dataaddress1 = address1 + 2*LSCRIPTDataSize[LST_INTEGER] + 1; - S32 dataaddress2 = address2 + 2*LSCRIPTDataSize[LST_INTEGER] + 1; - - S32 toffset1 = dataaddress1; - safe_heap_bytestream_count_char(mBuffer, toffset1); - - S32 toffset2 = dataaddress2; - safe_heap_bytestream_count_char(mBuffer, toffset2); - - // calculate new string size - S32 size1 = toffset1 - dataaddress1; - S32 size2 = toffset2 - dataaddress2; - S32 newbuffer = size1 + size2 - 1; - - char *temp = new char[newbuffer]; - - // get the strings - bytestream2char(temp, mBuffer, dataaddress1); - bytestream2char(temp + size1 - 1, mBuffer, dataaddress2); - - decreaseRefCount(address1); - decreaseRefCount(address2); - - S32 retaddress = addData(temp); - - return retaddress; -} - -S32 LLScriptHeapRunTime::cmpStrings(S32 address1, S32 address2) -{ - if (!mBuffer) - return 0; - - S32 dataaddress1 = address1 + 2*LSCRIPTDataSize[LST_INTEGER] + 1; - S32 dataaddress2 = address2 + 2*LSCRIPTDataSize[LST_INTEGER] + 1; - - S32 toffset1 = dataaddress1; - safe_heap_bytestream_count_char(mBuffer, toffset1); - - S32 toffset2 = dataaddress2; - safe_heap_bytestream_count_char(mBuffer, toffset2); - - // calculate new string size - S32 size1 = toffset1 - dataaddress1; - S32 size2 = toffset2 - dataaddress2; - - if (size1 != size2) - { - return llmin(size1, size2); - } - else - { - return strncmp((char *)(mBuffer + dataaddress1), (char *)(mBuffer + dataaddress2), size1); - } -} - -void LLScriptHeapRunTime::removeData(S32 address) -{ - if (!mBuffer) - return; - - S32 toffset = address; - // read past offset (relying on function side effect - bytestream2integer(mBuffer, toffset); - - // make sure that reference count is 0 - integer2bytestream(mBuffer, toffset, 0); - // show the block as empty - *(mBuffer + toffset) = 0; - - // now, clean up the heap - S32 clean = mHeapRegister; - S32 tclean; - S32 clean_offset; - - S32 nclean; - S32 tnclean; - S32 next_offset; - - U8 type; - U8 ntype; - - for(;;) - { - tclean = clean; - clean_offset = bytestream2integer(mBuffer, tclean); - // is this block, empty? - tclean += LSCRIPTDataSize[LST_INTEGER]; - type = *(mBuffer + tclean); - - if (!clean_offset) - { - if (!type) - { - // we're done! if our block is empty, we can pull in the HP and zero out our offset - set_register(mBuffer, LREG_HP, clean); - } - return; - } - - - if (!type) - { - // if we're empty, try to coalesce with the next one - nclean = clean + clean_offset; - tnclean = nclean; - next_offset = bytestream2integer(mBuffer, tnclean); - tnclean += LSCRIPTDataSize[LST_INTEGER]; - ntype = *(mBuffer + tnclean); - - if (!next_offset) - { - // we're done! if our block is empty, we can pull in the HP and zero out our offset - tclean = clean; - integer2bytestream(mBuffer, tclean, 0); - set_register(mBuffer, LREG_HP, clean); - return; - } - - if (!ntype) - { - // hooray! we can coalesce - tclean = clean; - integer2bytestream(mBuffer, tclean, clean_offset + next_offset); - // don't skip forward so that we can keep coalescing on next pass through the loop - } - else - { - clean += clean_offset; - } - } - else - { - // if not, move on to the next block - clean += clean_offset; - } - } -} - -void LLScriptHeapRunTime::coalesce(S32 address1, S32 address2) -{ - // we need to bump the base offset by the second block's - S32 toffset = address1; - S32 offset1 = bytestream2integer(mBuffer, toffset); - offset1 += bytestream2integer(mBuffer, address2); - - integer2bytestream(mBuffer, address1, offset1); -} - -void LLScriptHeapRunTime::split(S32 address1, S32 size) -{ - S32 toffset = address1; - S32 oldoffset = bytestream2integer(mBuffer, toffset); - - // add new offset and zero out reference count and block used - S32 newoffset = oldoffset - size; - S32 newblockpos = address1 + size; - - // set new offset - integer2bytestream(mBuffer, newblockpos, newoffset); - // zero out reference count - integer2bytestream(mBuffer, newblockpos, 0); - // mark as empty - *(mBuffer + newblockpos) = 0; - - // now, change the offset of the original block - integer2bytestream(mBuffer, address1, size + HEAP_BLOCK_HEADER_SIZE); -} - -/* - - For reference count changes, strings are easy. For lists, we'll need to go through the lists reducing - the reference counts for any included strings and lists - - */ - -void LLScriptHeapRunTime::increaseRefCount(S32 address) -{ - if (!mBuffer) - return; - - if (!address) - { - // unused temp string entry - return; - } - - // get current reference count - S32 toffset = address + 4; - S32 count = bytestream2integer(mBuffer, toffset); - - count++; - - if (mbPrint) - printf("0x%X inc ref count %d\n", address - mHeapRegister, count); - - // see which type it is - U8 type = *(mBuffer + toffset); - - if (type == LSCRIPTTypeByte[LST_STRING]) - { - toffset = address + 4; - integer2bytestream(mBuffer, toffset, count); - } - // TO DO: put list stuff here! - else - { - set_fault(mBuffer, LSRF_HEAP_ERROR); - } -} - -void LLScriptHeapRunTime::decreaseRefCount(S32 address) -{ - if (!mBuffer) - return; - - if (!address) - { - // unused temp string entry - return; - } - - // get offset - S32 toffset = address; - // read past offset (rely on function side effect) - bytestream2integer(mBuffer, toffset); - - // get current reference count - S32 count = bytestream2integer(mBuffer, toffset); - - // see which type it is - U8 type = *(mBuffer + toffset); - - if (type == LSCRIPTTypeByte[LST_STRING]) - { - count--; - - if (mbPrint) - printf("0x%X dec ref count %d\n", address - mHeapRegister, count); - - toffset = address + 4; - integer2bytestream(mBuffer, toffset, count); - if (!count) - { - // we can blow this one away - removeData(address); - } - } - // TO DO: put list stuff here! - else - { - set_fault(mBuffer, LSRF_HEAP_ERROR); - } -} - -// if we're going to assign a variable, we need to decrement the reference count of what we were pointing at (if anything) -void LLScriptHeapRunTime::releaseLocal(S32 address) -{ - S32 hr = get_register(mBuffer, LREG_HR); - address = lscript_local_get(mBuffer, address); - if ( (address >= hr) - &&(address < hr + get_register(mBuffer, LREG_HP))) - { - decreaseRefCount(address); - } -} - -void LLScriptHeapRunTime::releaseGlobal(S32 address) -{ - // NOTA BENE: Global strings are referenced relative to the HR while local strings aren't - S32 hr = get_register(mBuffer, LREG_HR); - address = lscript_global_get(mBuffer, address) + hr; - if ( (address >= hr) - &&(address < hr + get_register(mBuffer, LREG_HP))) - { - decreaseRefCount(address); - } -} - - -// we know the following function has "unreachable code" -// don't remind us every friggin' time we compile. . . - -#if defined(_MSC_VER) -# pragma warning(disable: 4702) // unreachable code -#endif - -S32 LLScriptHeapRunTime::findOpenBlock(S32 size) -{ - S32 offset; - S32 toffset; - U8 blocktype; - - while(1) - { - if (mCurrentPosition + size >= mStackPointer) - { - set_fault(mBuffer, LSRF_STACK_HEAP_COLLISION); - mCurrentPosition = 0; - } - - toffset = mCurrentPosition; - offset = bytestream2integer(mBuffer, toffset); - if (!offset) - { - // we've reached the end of Heap, return this location if we'll fit - // do we need to coalesce with last empty space? - if (mLastEmpty) - { - // ok, that everything from mLastEmpty to us is empty, so we don't need a block - // zero out the last empty's offset and return it - mCurrentPosition = mLastEmpty; - integer2bytestream(mBuffer, mLastEmpty, 0); - mLastEmpty = 0; - } - // now, zero out next offset to prevent "trouble" - offset = mCurrentPosition + size; - integer2bytestream(mBuffer, offset, 0); - - // set HP to appropriate value - set_register(mBuffer, LREG_HP, mCurrentPosition + size); - return size; - } - - // ok, is this slot empty? - toffset += LSCRIPTDataSize[LST_INTEGER]; - - blocktype = *(mBuffer + toffset++); - - if (!blocktype) - { - // Empty block, do we need to coalesce? - if (mLastEmpty) - { - coalesce(mLastEmpty, mCurrentPosition); - mCurrentPosition = mLastEmpty; - toffset = mCurrentPosition; - offset = bytestream2integer(mBuffer, toffset); - } - - // do we fit in this block? - if (offset >= size) - { - // do we need to split the block? (only split if splitting will leave > HEAP_BLOCK_SPLIT_THRESHOLD bytes of free space) - if (offset - HEAP_BLOCK_SPLIT_THRESHOLD >= size) - { - split(mCurrentPosition, size); - return size; - } - else - return offset; - } - } - // nothing found, keep looking - mCurrentPosition += offset; - } - // fake return to prevent warnings - mCurrentPosition = 0; - return 0; -} - -LLScriptHeapRunTime gRunTime; -#endif diff --git a/indra/lscript/lscript_execute/lscript_heapruntime.h b/indra/lscript/lscript_execute/lscript_heapruntime.h deleted file mode 100755 index 0e924a2036..0000000000 --- a/indra/lscript/lscript_execute/lscript_heapruntime.h +++ /dev/null @@ -1,40 +0,0 @@ -/** - * @file lscript_heapruntime.h - * @brief classes to manage script heap at runtime - * - * $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$ - */ - -#if 0 - -#ifndef LL_LSCRIPT_HEAPRUNTIME_H -#define LL_LSCRIPT_HEAPRUNTIME_H - -#include "lscript_byteconvert.h" - - -const S32 HEAP_BLOCK_HEADER_SIZE = 9; -const S32 HEAP_BLOCK_SPLIT_THRESHOLD = 16; - - -#endif -#endif diff --git a/indra/lscript/lscript_execute/lscript_readlso.cpp b/indra/lscript/lscript_execute/lscript_readlso.cpp deleted file mode 100755 index abcb28e998..0000000000 --- a/indra/lscript/lscript_execute/lscript_readlso.cpp +++ /dev/null @@ -1,1585 +0,0 @@ -/** - * @file lscript_readlso.cpp - * @brief classes to read lso file - * - * $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 "lscript_readlso.h" -#include "lscript_library.h" -#include "lscript_alloc.h" - -LLScriptLSOParse::LLScriptLSOParse(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); - } - mRawData = new U8[filesize]; - fseek(fp, 0, SEEK_SET); - if (fread(mRawData, 1, filesize, fp) != filesize) - { - LL_WARNS() << "Short read" << LL_ENDL; - } - - initOpCodePrinting(); -} - -LLScriptLSOParse::LLScriptLSOParse(U8 *buffer) -{ - mRawData = buffer; - initOpCodePrinting(); -} - -LLScriptLSOParse::~LLScriptLSOParse() -{ - delete [] mRawData; -} - -void LLScriptLSOParse::printData(LLFILE *fp) -{ - - - - printNameDesc(fp); - - printRegisters(fp); - - printGlobals(fp); - - printGlobalFunctions(fp); - - printStates(fp); - - printHeap(fp); -} - -void LLScriptLSOParse::printNameDesc(LLFILE *fp) -{ - fprintf(fp, "=============================\n\n"); -} - -S32 gMajorVersion = 0; - -void LLScriptLSOParse::printRegisters(LLFILE *fp) -{ - // print out registers first - S32 i; - - fprintf(fp, "=============================\n"); - fprintf(fp, "Registers\n"); - fprintf(fp, "=============================\n"); - S32 version = get_register(mRawData, LREG_VN); - if (version == LSL2_VERSION1_END_NUMBER) - { - gMajorVersion = LSL2_MAJOR_VERSION_ONE; - } - else if (version == LSL2_VERSION_NUMBER) - { - gMajorVersion = LSL2_MAJOR_VERSION_TWO; - } - for (i = LREG_IP; i < LREG_EOF; i++) - { - if (i < LREG_NCE) - { - fprintf(fp, "%s: 0x%X\n", gLSCRIPTRegisterNames[i], get_register(mRawData, (LSCRIPTRegisters)i)); - } - else if (gMajorVersion == LSL2_MAJOR_VERSION_TWO) - { - U64 data = get_register_u64(mRawData, (LSCRIPTRegisters)i); - fprintf(fp, "%s: 0x%X%X\n", gLSCRIPTRegisterNames[i], (U32)(data>>32), (U32)(data & 0xFFFFFFFF)); - } - } - fprintf(fp, "=============================\n\n"); -} - -void LLScriptLSOParse::printGlobals(LLFILE *fp) -{ - // print out registers first - S32 varoffset; - S32 ivalue; - F32 fpvalue; - LLVector3 vvalue; - LLQuaternion qvalue; - char name[256]; /*Flawfinder: ignore*/ - U8 type; - - S32 global_v_offset = get_register(mRawData, LREG_GVR); - S32 global_f_offset = get_register(mRawData, LREG_GFR); - - fprintf(fp, "=============================\n"); - fprintf(fp, "[0x%X] Global Variables\n", global_v_offset); - fprintf(fp, "=============================\n"); - - - while (global_v_offset < global_f_offset) - { - - // get offset to skip past name - varoffset = global_v_offset; - bytestream2integer(mRawData, global_v_offset); - // get typeexport - type = *(mRawData + global_v_offset++); - - // set name - bytestream2char(name, mRawData, global_v_offset, sizeof(name)); - - switch(type) - { - case LST_INTEGER: - ivalue = bytestream2integer(mRawData, global_v_offset); - fprintf(fp, "[0x%X] integer %s = %d\n", varoffset, name, ivalue); - break; - case LST_FLOATINGPOINT: - fpvalue = bytestream2float(mRawData, global_v_offset); - fprintf(fp, "[0x%X] integer %s = %f\n", varoffset, name, fpvalue); - break; - case LST_STRING: - ivalue = bytestream2integer(mRawData, global_v_offset); - fprintf(fp, "[0x%X] string %s = 0x%X\n", varoffset, name, ivalue + get_register(mRawData, LREG_HR) - 1); - break; - case LST_KEY: - ivalue = bytestream2integer(mRawData, global_v_offset); - fprintf(fp, "[0x%X] key %s = 0x%X\n", varoffset, name, ivalue + get_register(mRawData, LREG_HR) - 1); - break; - case LST_VECTOR: - bytestream2vector(vvalue, mRawData, global_v_offset); - fprintf(fp, "[0x%X] vector %s = < %f, %f, %f >\n", varoffset, name, vvalue.mV[VX], vvalue.mV[VY], vvalue.mV[VZ]); - break; - case LST_QUATERNION: - bytestream2quaternion(qvalue, mRawData, global_v_offset); - fprintf(fp, "[0x%X] quaternion %s = < %f, %f, %f, %f >\n", varoffset, name, qvalue.mQ[VX], qvalue.mQ[VY], qvalue.mQ[VZ], qvalue.mQ[VS]); - break; - case LST_LIST: - ivalue = bytestream2integer(mRawData, global_v_offset); - fprintf(fp, "[0x%X] list %s = 0x%X\n", varoffset, name, ivalue + get_register(mRawData, LREG_HR) - 1); - break; - default: - break; - } - } - - fprintf(fp, "=============================\n\n"); -} - -void LLScriptLSOParse::printGlobalFunctions(LLFILE *fp) -{ - // print out registers first - S32 i, offset; -// LLVector3 vvalue; unused -// LLQuaternion qvalue; unused - char name[256]; /*Flawfinder: ignore*/ - U8 type; - - offset = get_register(mRawData, LREG_GFR); - S32 start_of_state = get_register(mRawData, LREG_SR); - if (start_of_state == offset) - return; - - S32 global_f_offset = get_register(mRawData, LREG_GFR); - - fprintf(fp, "=============================\n"); - fprintf(fp, "[0x%X] Global Functions\n", global_f_offset); - fprintf(fp, "=============================\n"); - - - S32 num_functions = bytestream2integer(mRawData, offset); - S32 orig_function_offset; - S32 function_offset; - S32 next_function_offset = 0; - S32 function_number = 0; - S32 opcode_start; - S32 opcode_end; - - for (i = 0; i < num_functions; i++) - { - // jump to function - // if this is the first function - if (i == 0) - { - if (i < num_functions - 1) - { - function_offset = bytestream2integer(mRawData, offset); - next_function_offset = bytestream2integer(mRawData, offset); - function_offset += global_f_offset; - opcode_end = next_function_offset + global_f_offset; - } - else - { - function_offset = bytestream2integer(mRawData, offset); - function_offset += global_f_offset; - opcode_end = get_register(mRawData, LREG_SR); - } - } - else if (i < num_functions - 1) - { - function_offset = next_function_offset; - next_function_offset = bytestream2integer(mRawData, offset); - function_offset += global_f_offset; - opcode_end = next_function_offset + global_f_offset; - } - else - { - function_offset = next_function_offset; - function_offset += global_f_offset; - opcode_end = get_register(mRawData, LREG_SR); - } - orig_function_offset = function_offset; - // where do the opcodes start - opcode_start = bytestream2integer(mRawData, function_offset); - opcode_start += orig_function_offset; - bytestream2char(name, mRawData, function_offset, sizeof(name)); - // get return type - type = *(mRawData + function_offset++); - fprintf(fp, "[Function #%d] [0x%X] %s\n", function_number, orig_function_offset, name); - fprintf(fp, "\tReturn Type: %s\n", LSCRIPTTypeNames[type]); - type = *(mRawData + function_offset++); - S32 pcount = 0; - while (type) - { - bytestream2char(name, mRawData, function_offset, sizeof(name)); - fprintf(fp, "\tParameter #%d: %s %s\n", pcount++, LSCRIPTTypeNames[type], name); - type = *(mRawData + function_offset++); - } - fprintf(fp, "\t\tOpCodes: 0x%X - 0x%X\n", opcode_start, opcode_end); - printOpCodeRange(fp, opcode_start, opcode_end, 2); - function_number++; - } - - fprintf(fp, "=============================\n\n"); -} - -void LLScriptLSOParse::printStates(LLFILE *fp) -{ - // print out registers first - S32 i, offset; - U32 j, k; -// LLVector3 vvalue; unused -// LLQuaternion qvalue; unused - char name[256]; /*Flawfinder: ignore*/ - - S32 state_offset = get_register(mRawData, LREG_SR); - - fprintf(fp, "=============================\n"); - fprintf(fp, "[0x%X] States\n", state_offset); - fprintf(fp, "=============================\n"); - - offset = state_offset; - S32 num_states = bytestream2integer(mRawData, offset); - S32 state_info_offset; - S32 event_jump_table; - U64 event_handlers; - S32 event_offset; - S32 original_event_offset; - S32 opcode_start; - S32 worst_case_opcode_end; - S32 opcode_end; - S32 stack_size; - S32 read_ahead; - S32 first_jump = 0; - - for (i = 0; i < num_states; i++) - { - state_info_offset = bytestream2integer(mRawData, offset); - if (gMajorVersion == LSL2_MAJOR_VERSION_TWO) - event_handlers = bytestream2u64(mRawData, offset); - else - event_handlers = bytestream2integer(mRawData, offset); - if (!first_jump) - { - first_jump = state_info_offset; - } - read_ahead = offset; - if (offset < first_jump + state_offset) - { - worst_case_opcode_end = bytestream2integer(mRawData, read_ahead) + state_offset; - } - else - { - worst_case_opcode_end = get_register(mRawData, LREG_HR); - } - state_info_offset += state_offset; - fprintf(fp, "[0x%X] ", state_info_offset); - state_info_offset += LSCRIPTDataSize[LST_INTEGER]; - bytestream2char(name, mRawData, state_info_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - - event_jump_table = state_info_offset; - - // run run through the handlers - for (j = LSTT_STATE_BEGIN; j < LSTT_STATE_END; j++) - { - if (event_handlers & LSCRIPTStateBitField[j]) - { - event_offset = bytestream2integer(mRawData, state_info_offset); - stack_size = bytestream2integer(mRawData, state_info_offset); - - read_ahead = event_jump_table; - - S32 temp_end; - - opcode_end = worst_case_opcode_end; - (void)opcode_end; - - for (k = LSTT_STATE_BEGIN; k < LSTT_STATE_END; k++) - { - if (event_handlers & LSCRIPTStateBitField[k]) - { - temp_end = bytestream2integer(mRawData, read_ahead); - bytestream2integer(mRawData, read_ahead); - if ( (temp_end < opcode_end) - &&(temp_end > event_offset)) - { - opcode_end = temp_end; - } - } - } - - if (event_offset) - { - event_offset += event_jump_table; - if (opcode_end < worst_case_opcode_end) - opcode_end += event_jump_table; - original_event_offset = event_offset; - - fprintf(fp, "\t[0x%X] ", event_offset); - - opcode_start = bytestream2integer(mRawData, event_offset); - opcode_start += original_event_offset; - - switch(j) - { - case LSTT_STATE_ENTRY: // LSTT_STATE_ENTRY - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - break; - case LSTT_STATE_EXIT: // LSTT_STATE_EXIT - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - break; - case LSTT_TOUCH_START: // LSTT_TOUCH_START - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tvector %s\n", name); - break; - case LSTT_TOUCH: // LSTT_TOUCH - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tvector %s\n", name); - break; - case LSTT_TOUCH_END: // LSTT_TOUCH_END - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tvector %s\n", name); - break; - case LSTT_COLLISION_START: // LSTT_COLLISION_START - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tvector %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tvector %s\n", name); - break; - case LSTT_COLLISION: // LSTT_COLLISION - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tvector %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tvector %s\n", name); - break; - case LSTT_COLLISION_END: // LSTT_COLLISION_END - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tvector %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tvector %s\n", name); - break; - case LSTT_LAND_COLLISION_START: // LSTT_LAND_COLLISION_START - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tvector %s\n", name); - break; - case LSTT_LAND_COLLISION: // LSTT_LAND_COLLISION - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tvector %s\n", name); - break; - case LSTT_LAND_COLLISION_END: // LSTT_LAND_COLLISION_END - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tvector %s\n", name); - break; - case LSTT_INVENTORY: // LSTT_INVENTORY - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tinteger %s\n", name); - break; - case LSTT_ATTACH: // LSTT_ATTACH - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - break; - case LSTT_DATASERVER: // LSTT_DATASERVER - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tstring %s\n", name); - break; - case LSTT_TIMER: // LSTT_TIMER - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - break; - case LSTT_MOVING_START: // LSTT_MOVING_START - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - break; - case LSTT_MOVING_END: // LSTT_MOVING_END - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - break; - case LSTT_CHAT: // LSTT_CHAT - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tinteger %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tstring %s\n", name); - break; - case LSTT_OBJECT_REZ: // LSTT_OBJECT_REZ - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - break; - case LSTT_REMOTE_DATA: // LSTT_REMOTE_DATA - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tinteger %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tinteger %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tstring %s\n", name); - break; - case LSTT_REZ: // LSTT_REZ - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - break; - case LSTT_SENSOR: // LSTT_SENSOR - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tinteger %s\n", name); - break; - case LSTT_NO_SENSOR: // LSTT_NO_SENSOR - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - break; - case LSTT_CONTROL: // LSTT_CONTROL - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tinteger %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tinteger %s\n", name); - break; - case LSTT_LINK_MESSAGE: // LSTT_LINK_MESSAGE - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tinteger %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tstring %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - break; - case LSTT_MONEY: // LSTT_MONEY - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tinteger %s\n", name); - break; - case LSTT_EMAIL: // LSTT_EMAIL - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tstring %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tstring %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tstring %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tinteger %s\n", name); - break; - case LSTT_AT_TARGET: // LSTT_AT_TARGET - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tinteger %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tvector %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tvector %s\n", name); - break; - case LSTT_NOT_AT_TARGET: // LSTT_NOT_AT_TARGET - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - break; - case LSTT_AT_ROT_TARGET: // LSTT_AT_ROT_TARGET - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tinteger %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tquaternion %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tquaternion %s\n", name); - break; - case LSTT_NOT_AT_ROT_TARGET: // LSTT_NOT_AT_TARGET - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - break; - case LSTT_RTPERMISSIONS: // LSTT_RTPERMISSIONS - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - fprintf(fp, "\t\tinteger %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - break; - case LSTT_HTTP_RESPONSE: // LSTT_REMOTE_DATA ?!?!?! - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tinteger %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tlist %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tstring %s\n", name); - break; - case LSTT_HTTP_REQUEST: // LSTT_HTTP_REQUEST - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "%s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tkey %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tstring %s\n", name); - bytestream2char(name, mRawData, event_offset, sizeof(name)); - fprintf(fp, "\t\tstring %s\n", name); - break; - default: - break; - } - fprintf(fp, "\t\tStack Size: %d\n", stack_size); - fprintf(fp, "\t\t\tOpCodes: 0x%X - 0x%X\n", opcode_start, opcode_end); - printOpCodeRange(fp, opcode_start, opcode_end, 3); - } - } - } - } - fprintf(fp, "=============================\n\n"); -} - -void LLScriptLSOParse::printHeap(LLFILE *fp) -{ - // print out registers first - - S32 heap_offset = get_register(mRawData, LREG_HR); - S32 heap_pointer = get_register(mRawData, LREG_HP); - fprintf(fp, "=============================\n"); - fprintf(fp, "[0x%X - 0x%X] Heap\n", heap_offset, heap_pointer); - fprintf(fp, "=============================\n"); - - lsa_fprint_heap(mRawData, fp); - - fprintf(fp, "=============================\n\n"); -} - -void lso_print_tabs(LLFILE *fp, S32 tabs) -{ - S32 i; - for (i = 0; i < tabs; i++) - { - fprintf(fp, "\t"); - } -} - -void LLScriptLSOParse::printOpCodes(LLFILE *fp, S32 &offset, S32 tabs) -{ - U8 opcode = *(mRawData + offset); - mPrintOpCodes[opcode](fp, mRawData, offset, tabs); -} - -void LLScriptLSOParse::printOpCodeRange(LLFILE *fp, S32 start, S32 end, S32 tabs) -{ - while (start < end) - { - printOpCodes(fp, start, tabs); - } -} - -void LLScriptLSOParse::initOpCodePrinting() -{ - S32 i; - for (i = 0; i < 256; i++) - { - mPrintOpCodes[i] = print_noop; - } - mPrintOpCodes[LSCRIPTOpCodes[LOPC_NOOP]] = print_noop; - - mPrintOpCodes[LSCRIPTOpCodes[LOPC_POP]] = print_pop; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_POPS]] = print_pops; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_POPL]] = print_popl; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_POPV]] = print_popv; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_POPQ]] = print_popq; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_POPARG]] = print_poparg; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_POPIP]] = print_popip; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_POPBP]] = print_popbp; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_POPSP]] = print_popsp; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_POPSLR]] = print_popslr; - - mPrintOpCodes[LSCRIPTOpCodes[LOPC_DUP]] = print_dup; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_DUPS]] = print_dups; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_DUPL]] = print_dupl; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_DUPV]] = print_dupv; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_DUPQ]] = print_dupq; - - mPrintOpCodes[LSCRIPTOpCodes[LOPC_STORE]] = print_store; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_STORES]] = print_stores; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_STOREL]] = print_storel; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_STOREV]] = print_storev; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_STOREQ]] = print_storeq; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_STOREG]] = print_storeg; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_STOREGS]] = print_storegs; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_STOREGL]] = print_storegl; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_STOREGV]] = print_storegv; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_STOREGQ]] = print_storegq; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_LOADP]] = print_loadp; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_LOADSP]] = print_loadsp; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_LOADLP]] = print_loadlp; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_LOADVP]] = print_loadvp; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_LOADQP]] = print_loadqp; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_LOADGP]] = print_loadgp; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_LOADGSP]] = print_loadgsp; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_LOADGLP]] = print_loadglp; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_LOADGVP]] = print_loadgvp; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_LOADGQP]] = print_loadgqp; - - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSH]] = print_push; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHS]] = print_pushs; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHL]] = print_pushl; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHV]] = print_pushv; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHQ]] = print_pushq; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHG]] = print_pushg; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHGS]] = print_pushgs; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHGL]] = print_pushgl; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHGV]] = print_pushgv; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHGQ]] = print_pushgq; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHIP]] = print_puship; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHSP]] = print_pushsp; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHBP]] = print_pushbp; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHARGB]] = print_pushargb; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHARGI]] = print_pushargi; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHARGF]] = print_pushargf; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHARGS]] = print_pushargs; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHARGV]] = print_pushargv; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHARGQ]] = print_pushargq; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHE]] = print_pushe; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHEV]] = print_pushev; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHEQ]] = print_pusheq; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PUSHARGE]] = print_pusharge; - - mPrintOpCodes[LSCRIPTOpCodes[LOPC_ADD]] = print_add; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_SUB]] = print_sub; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_MUL]] = print_mul; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_DIV]] = print_div; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_MOD]] = print_mod; - - mPrintOpCodes[LSCRIPTOpCodes[LOPC_EQ]] = print_eq; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_NEQ]] = print_neq; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_LEQ]] = print_leq; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_GEQ]] = print_geq; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_LESS]] = print_less; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_GREATER]] = print_greater; - - mPrintOpCodes[LSCRIPTOpCodes[LOPC_BITAND]] = print_bitand; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_BITOR]] = print_bitor; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_BITXOR]] = print_bitxor; - - mPrintOpCodes[LSCRIPTOpCodes[LOPC_BOOLAND]] = print_booland; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_BOOLOR]] = print_boolor; - - mPrintOpCodes[LSCRIPTOpCodes[LOPC_SHL]] = print_shl; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_SHR]] = print_shr; - - mPrintOpCodes[LSCRIPTOpCodes[LOPC_NEG]] = print_neg; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_BITNOT]] = print_bitnot; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_BOOLNOT]] = print_boolnot; - - mPrintOpCodes[LSCRIPTOpCodes[LOPC_JUMP]] = print_jump; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_JUMPIF]] = print_jumpif; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_JUMPNIF]] = print_jumpnif; - - mPrintOpCodes[LSCRIPTOpCodes[LOPC_STATE]] = print_state; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_CALL]] = print_call; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_RETURN]] = print_return; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_CAST]] = print_cast; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_STACKTOS]] = print_stacktos; - mPrintOpCodes[LSCRIPTOpCodes[LOPC_STACKTOL]] = print_stacktol; - - mPrintOpCodes[LSCRIPTOpCodes[LOPC_PRINT]] = print_print; - - mPrintOpCodes[LSCRIPTOpCodes[LOPC_CALLLIB]] = print_calllib; - - mPrintOpCodes[LSCRIPTOpCodes[LOPC_CALLLIB_TWO_BYTE]] = print_calllib_two_byte; -} - -void print_noop(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tNOOP\n", offset++); -} - -void print_pop(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPOP\n", offset++); -} - -void print_pops(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPOPS\n", offset++); -} - -void print_popl(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPOPL\n", offset++); -} - -void print_popv(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPOPV\n", offset++); -} - -void print_popq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPOPQ\n", offset++); -} - -void print_poparg(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPOPARG ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_popip(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPOPIP\n", offset++); -} - -void print_popbp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPOPBP\n", offset++); -} - -void print_popsp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPOPSP\n", offset++); -} - -void print_popslr(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPOPSLR\n", offset++); -} - -void print_dup(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tDUP\n", offset++); -} - -void print_dups(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tDUPS\n", offset++); -} - -void print_dupl(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tDUPL\n", offset++); -} - -void print_dupv(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tDUPV\n", offset++); -} - -void print_dupq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tDUPQ\n", offset++); -} - -void print_store(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTORE $BP + ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_stores(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTORES $BP + ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_storel(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREL $BP + ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_storev(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREV $BP + ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_storeq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREQ $BP + ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_storeg(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREG ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg + get_register(buffer, LREG_GVR)); -} - -void print_storegs(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREGS ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg + get_register(buffer, LREG_GVR)); -} - -void print_storegl(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREGL ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg + get_register(buffer, LREG_GVR)); -} - -void print_storegv(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREGV ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg + get_register(buffer, LREG_GVR)); -} - -void print_storegq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREGQ ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg + get_register(buffer, LREG_GVR)); -} - -void print_loadp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREP $BP + ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_loadsp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREPS $BP + ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_loadlp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREPL $BP + ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_loadvp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREVP $BP + ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_loadqp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREQP $BP + ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_loadgp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREGP ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg + get_register(buffer, LREG_GVR)); -} - -void print_loadgsp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREGSP ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg + get_register(buffer, LREG_GVR)); -} - -void print_loadglp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREGLP ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg + get_register(buffer, LREG_GVR)); -} - -void print_loadgvp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREGVP ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg + get_register(buffer, LREG_GVR)); -} - -void print_loadgqp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTOREGQP ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg + get_register(buffer, LREG_GVR)); -} - -void print_push(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSH $BP + ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_pushs(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHS $BP + ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_pushl(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHL $BP + ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_pushv(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHV $BP + ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_pushq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHQ $BP + ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_pushg(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHG ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "0x%X\n", arg + get_register(buffer, LREG_GVR)); -} - -void print_pushgs(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHGS ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "0x%X\n", arg + get_register(buffer, LREG_GVR)); -} - -void print_pushgl(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHGL ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "0x%X\n", arg + get_register(buffer, LREG_GVR)); -} - -void print_pushgv(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHGV ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "0x%X\n", arg + get_register(buffer, LREG_GVR)); -} - -void print_pushgq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHGQ ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "0x%X\n", arg + get_register(buffer, LREG_GVR)); -} - -void print_puship(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHIP\n", offset++); -} - -void print_pushbp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHBP\n", offset++); -} - -void print_pushsp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHSP\n", offset++); -} - -void print_pushargb(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U8 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHARGB ", offset++); - arg = *(buffer + offset++); - fprintf(fp, "%d\n", (U32)arg); -} - -void print_pushargi(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHARGI ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_pushargf(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - F32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHARGF ", offset++); - arg = bytestream2float(buffer, offset); - fprintf(fp, "%f\n", arg); -} - -void print_pushargs(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - char arg[1024]; /*Flawfinder: ignore*/ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHARGS ", offset++); - bytestream2char(arg, buffer, offset, sizeof(arg)); - fprintf(fp, "%s\n", arg); -} - -void print_pushargv(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - LLVector3 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHARGV ", offset++); - bytestream2vector(arg, buffer, offset); - fprintf(fp, "< %f, %f, %f >\n", arg.mV[VX], arg.mV[VY], arg.mV[VZ]); -} - -void print_pushargq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - LLQuaternion arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHARGV ", offset++); - bytestream2quaternion(arg, buffer, offset); - fprintf(fp, "< %f, %f, %f, %f >\n", arg.mQ[VX], arg.mQ[VY], arg.mQ[VZ], arg.mQ[VS]); -} - -void print_pushe(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHE\n", offset++); -} - -void print_pushev(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHEV\n", offset++); -} - -void print_pusheq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHEQ\n", offset++); -} - -void print_pusharge(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPUSHARGE ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - - -void print_add(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U8 types; - U8 type1; - U8 type2; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tADD ", offset++); - types = *(buffer + offset++); - type1 = types >> 4; - type2 = types & 0xf; - fprintf(fp, "%s, %s\n", LSCRIPTTypeNames[type1], LSCRIPTTypeNames[type2]); -} - -void print_sub(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U8 types; - U8 type1; - U8 type2; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSUB ", offset++); - types = *(buffer + offset++); - type1 = types >> 4; - type2 = types & 0xf; - fprintf(fp, "%s, %s\n", LSCRIPTTypeNames[type1], LSCRIPTTypeNames[type2]); -} - -void print_mul(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U8 types; - U8 type1; - U8 type2; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tMUL ", offset++); - types = *(buffer + offset++); - type1 = types >> 4; - type2 = types & 0xf; - fprintf(fp, "%s, %s\n", LSCRIPTTypeNames[type1], LSCRIPTTypeNames[type2]); -} - -void print_div(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U8 types; - U8 type1; - U8 type2; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tDIV ", offset++); - types = *(buffer + offset++); - type1 = types >> 4; - type2 = types & 0xf; - fprintf(fp, "%s, %s\n", LSCRIPTTypeNames[type1], LSCRIPTTypeNames[type2]); -} - -void print_mod(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U8 types; - U8 type1; - U8 type2; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tMOD ", offset++); - types = *(buffer + offset++); - type1 = types >> 4; - type2 = types & 0xf; - fprintf(fp, "%s, %s\n", LSCRIPTTypeNames[type1], LSCRIPTTypeNames[type2]); -} - -void print_eq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U8 types; - U8 type1; - U8 type2; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tEQ ", offset++); - types = *(buffer + offset++); - type1 = types >> 4; - type2 = types & 0xf; - fprintf(fp, "%s, %s\n", LSCRIPTTypeNames[type1], LSCRIPTTypeNames[type2]); -} - -void print_neq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U8 types; - U8 type1; - U8 type2; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tNEQ ", offset++); - types = *(buffer + offset++); - type1 = types >> 4; - type2 = types & 0xf; - fprintf(fp, "%s, %s\n", LSCRIPTTypeNames[type1], LSCRIPTTypeNames[type2]); -} - -void print_leq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U8 types; - U8 type1; - U8 type2; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tLEQ ", offset++); - types = *(buffer + offset++); - type1 = types >> 4; - type2 = types & 0xf; - fprintf(fp, "%s, %s\n", LSCRIPTTypeNames[type1], LSCRIPTTypeNames[type2]); -} - -void print_geq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U8 types; - U8 type1; - U8 type2; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tGEQ ", offset++); - types = *(buffer + offset++); - type1 = types >> 4; - type2 = types & 0xf; - fprintf(fp, "%s, %s\n", LSCRIPTTypeNames[type1], LSCRIPTTypeNames[type2]); -} - -void print_less(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U8 types; - U8 type1; - U8 type2; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tLESS ", offset++); - types = *(buffer + offset++); - type1 = types >> 4; - type2 = types & 0xf; - fprintf(fp, "%s, %s\n", LSCRIPTTypeNames[type1], LSCRIPTTypeNames[type2]); -} - -void print_greater(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U8 types; - U8 type1; - U8 type2; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tGREATER ", offset++); - types = *(buffer + offset++); - type1 = types >> 4; - type2 = types & 0xf; - fprintf(fp, "%s, %s\n", LSCRIPTTypeNames[type1], LSCRIPTTypeNames[type2]); -} - - -void print_bitand(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tBITAND\n", offset++); -} - -void print_bitor(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tBITOR\n", offset++); -} - -void print_bitxor(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tBITXOR\n", offset++); -} - -void print_booland(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tBOOLAND\n", offset++); -} - -void print_boolor(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tBOOLOR\n", offset++); -} - -void print_shl(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSHL\n", offset++); -} - -void print_shr(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSHR\n", offset++); -} - - -void print_neg(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U8 type; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tNEG ", offset++); - type = *(buffer + offset++); - fprintf(fp, "%s\n", LSCRIPTTypeNames[type]); -} - -void print_bitnot(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tBITNOT\n", offset++); -} - -void print_boolnot(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tBOOLNOT\n", offset++); -} - -void print_jump(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tJUMP ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_jumpif(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - U8 type; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tJUMPIF ", offset++); - type = *(buffer + offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%s, %d\n", LSCRIPTTypeNames[type], arg); -} - -void print_jumpnif(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - U8 type; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tJUMPNIF ", offset++); - type = *(buffer + offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%s, %d\n", LSCRIPTTypeNames[type], arg); -} - -void print_state(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTATE ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_call(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tCALL ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_return(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tRETURN\n", offset++); -} - -void print_cast(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U8 types; - U8 type1; - U8 type2; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tCAST ", offset++); - types = *(buffer + offset++); - type1 = types >> 4; - type2 = types & 0xf; - fprintf(fp, "%s, %s\n", LSCRIPTTypeNames[type1], LSCRIPTTypeNames[type2]); -} - -void print_stacktos(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTACKTOS ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_stacktol(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - S32 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tSTACKTOL ", offset++); - arg = bytestream2integer(buffer, offset); - fprintf(fp, "%d\n", arg); -} - -void print_print(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tPRINT ", offset++); - U8 type = *(buffer + offset++); - fprintf(fp, "%s\n", LSCRIPTTypeNames[type]); -} - -void print_calllib(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U8 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tCALLLIB ", offset++); - arg = *(buffer + offset++); - fprintf(fp, "%d (%s)\n", (U32)arg, gScriptLibrary.mFunctions[arg].mName); -} - - -void print_calllib_two_byte(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs) -{ - U16 arg; - lso_print_tabs(fp, tabs); - fprintf(fp, "[0x%X]\tCALLLIB_TWO_BYTE ", offset++); - arg = bytestream2u16(buffer, offset); - fprintf(fp, "%d (%s)\n", (U32)arg, gScriptLibrary.mFunctions[arg].mName); -} - diff --git a/indra/lscript/lscript_execute/lscript_readlso.h b/indra/lscript/lscript_execute/lscript_readlso.h deleted file mode 100755 index f3b2b66746..0000000000 --- a/indra/lscript/lscript_execute/lscript_readlso.h +++ /dev/null @@ -1,164 +0,0 @@ -/** - * @file lscript_readlso.h - * @brief classes to read lso file - * - * $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$ - */ - -#ifndef LL_LSCRIPT_READLSO_H -#define LL_LSCRIPT_READLSO_H - -#include "lscript_byteconvert.h" - -// list of op code print functions -void print_noop(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pop(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pops(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_popl(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_popv(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_popq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_poparg(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_popip(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_popbp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_popsp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_popslr(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); - -void print_dup(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_dups(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_dupl(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_dupv(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_dupq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); - -void print_store(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_stores(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_storel(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_storev(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_storeq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_storeg(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_storegs(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_storegl(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_storegv(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_storegq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_loadp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_loadsp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_loadlp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_loadvp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_loadqp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_loadgp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_loadgsp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_loadglp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_loadgvp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_loadgqp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); - -void print_push(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushl(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushs(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushv(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushg(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushgl(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushgs(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushgv(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushgq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_puship(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushbp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushsp(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushargb(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushargi(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushargf(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushargs(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushargv(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushargq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushe(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pushev(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pusheq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_pusharge(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); - -void print_add(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_sub(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_mul(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_div(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_mod(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); - -void print_eq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_neq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_leq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_geq(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_less(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_greater(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); - -void print_bitand(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_bitor(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_bitxor(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_booland(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_boolor(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); - -void print_shl(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_shr(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); - -void print_neg(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_bitnot(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_boolnot(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); - -void print_jump(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_jumpif(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_jumpnif(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); - -void print_state(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_call(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_return(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_cast(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_stacktos(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_stacktol(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); - -void print_print(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); - -void print_calllib(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -void print_calllib_two_byte(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); - -class LLScriptLSOParse -{ -public: - LLScriptLSOParse(LLFILE *fp); - LLScriptLSOParse(U8 *buffer); - ~LLScriptLSOParse(); - - void initOpCodePrinting(); - - void printData(LLFILE *fp); - void printNameDesc(LLFILE *fp); - void printRegisters(LLFILE *fp); - void printGlobals(LLFILE *fp); - void printGlobalFunctions(LLFILE *fp); - void printStates(LLFILE *fp); - void printHeap(LLFILE *fp); - void printOpCodes(LLFILE *fp, S32 &offset, S32 tabs); - void printOpCodeRange(LLFILE *fp, S32 start, S32 end, S32 tabs); - - U8 *mRawData; - void (*mPrintOpCodes[0x100])(LLFILE *fp, U8 *buffer, S32 &offset, S32 tabs); -}; - - -void lso_print_tabs(LLFILE *fp, S32 tabs); - -#endif |