123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299 |
- /*
- * Copyright (c) Contributors, http://opensimulator.org/
- * See CONTRIBUTORS.TXT for a full list of copyright holders.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions are met:
- * * Redistributions of source code must retain the above copyright
- * notice, this list of conditions and the following disclaimer.
- * * Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- * * Neither the name of the OpenSimulator Project nor the
- * names of its contributors may be used to endorse or promote products
- * derived from this software without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE DEVELOPERS ``AS IS'' AND ANY
- * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
- * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
- * DISCLAIMED. IN NO EVENT SHALL THE CONTRIBUTORS BE LIABLE FOR ANY
- * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
- * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
- * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
- * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
- * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
- * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- */
- using System;
- using System.Reflection;
- using System.Reflection.Emit;
- using LSL_Float = OpenSim.Region.ScriptEngine.Shared.LSL_Types.LSLFloat;
- using LSL_Integer = OpenSim.Region.ScriptEngine.Shared.LSL_Types.LSLInteger;
- using LSL_Key = OpenSim.Region.ScriptEngine.Shared.LSL_Types.LSLString;
- using LSL_List = OpenSim.Region.ScriptEngine.Shared.LSL_Types.list;
- using LSL_Rotation = OpenSim.Region.ScriptEngine.Shared.LSL_Types.Quaternion;
- using LSL_String = OpenSim.Region.ScriptEngine.Shared.LSL_Types.LSLString;
- using LSL_Vector = OpenSim.Region.ScriptEngine.Shared.LSL_Types.Vector3;
- namespace OpenSim.Region.ScriptEngine.Yengine
- {
- /**
- * One instance of this class for lsl base objects that take a variable
- * amount of memory. They are what the script-visible list,object,string
- * variables are declared as at the CIL level. Generally, temp vars used
- * by the compiler get their basic type (list,object,string).
- *
- * Note that the xmr arrays and script-defined objects have their own
- * heap tracking built in so do not need any of this stuff.
- */
- public class HeapTrackerBase
- {
- protected int usage; // num bytes used by object
- protected XMRInstAbstract instance; // what script it is in
- public HeapTrackerBase(XMRInstAbstract inst)
- {
- if(inst == null)
- throw new ArgumentNullException("inst");
- instance = inst;
- }
- ~HeapTrackerBase()
- {
- usage = instance.UpdateHeapUse(usage, 0);
- }
- }
- /**
- * Wrapper around lists to keep track of how much memory they use.
- */
- public class HeapTrackerList: HeapTrackerBase
- {
- private static FieldInfo listValueField = typeof(HeapTrackerList).GetField("value");
- private static MethodInfo listSaveMethod = typeof(HeapTrackerList).GetMethod("Save");
- public LSL_List value;
- public HeapTrackerList(XMRInstAbstract inst) : base(inst) { }
- // generate CIL code to pop the value from the CIL stack
- // input:
- // 'this' pointer already pushed on CIL stack
- // new value pushed on CIL stack
- // output:
- // 'this' pointer popped from stack
- // new value popped from CIL stack
- // heap usage updated
- public static void GenPop(Token errorAt, ScriptMyILGen ilGen)
- {
- ilGen.Emit(errorAt, OpCodes.Call, listSaveMethod);
- }
- // generate CIL code to push the value on the CIL stack
- // input:
- // 'this' pointer already pushed on CIL stack
- // output:
- // 'this' pointer popped from stack
- // value pushed on CIL stack replacing 'this' pointer
- // returns typeof value pushed on stack
- public static Type GenPush(Token errorAt, ScriptMyILGen ilGen)
- {
- ilGen.Emit(errorAt, OpCodes.Ldfld, listValueField);
- return typeof(LSL_List);
- }
- public void Save(LSL_List lis)
- {
- int newuse = Size(lis);
- usage = instance.UpdateHeapUse(usage, newuse);
- value = lis;
- }
- //private static int counter = 5;
- public static int Size(LSL_List lis)
- {
- // VS2017 in debug mode seems to have a problem running this statement quickly:
- //SLOW: return (!typeof(LSL_List).IsValueType && (lis == null)) ? 0 : lis.Size;
- //FAST: return 33;
- //SLOW: return (lis == null) ? 0 : 99;
- //FAST: return ++ counter;
- // VS2017 in debug mode seems content to run this quickly though:
- try
- {
- return lis.Size;
- }
- catch
- {
- return 0;
- }
- }
- }
- /**
- * Wrapper around objects to keep track of how much memory they use.
- */
- public class HeapTrackerObject: HeapTrackerBase
- {
- private static FieldInfo objectValueField = typeof(HeapTrackerObject).GetField("value");
- private static MethodInfo objectSaveMethod = typeof(HeapTrackerObject).GetMethod("Save");
- public const int HT_CHAR = 2;
- public const int HT_DELE = 8;
- public const int HT_DOUB = 8;
- public const int HT_SING = 4;
- public const int HT_SFLT = 4;
- public const int HT_INT = 4;
- public const int HT_VEC = HT_DOUB * 3;
- public const int HT_ROT = HT_DOUB * 4;
- public object value;
- public HeapTrackerObject(XMRInstAbstract inst) : base(inst) { }
- // generate CIL code to pop the value from the CIL stack
- // input:
- // 'this' pointer already pushed on CIL stack
- // new value pushed on CIL stack
- // output:
- // 'this' pointer popped from stack
- // new value popped from CIL stack
- // heap usage updated
- public static void GenPop(Token errorAt, ScriptMyILGen ilGen)
- {
- ilGen.Emit(errorAt, OpCodes.Call, objectSaveMethod);
- }
- // generate CIL code to push the value on the CIL stack
- // input:
- // 'this' pointer already pushed on CIL stack
- // output:
- // 'this' pointer popped from stack
- // value pushed on CIL stack replacing 'this' pointer
- // returns typeof value pushed on stack
- public static Type GenPush(Token errorAt, ScriptMyILGen ilGen)
- {
- ilGen.Emit(errorAt, OpCodes.Ldfld, objectValueField);
- return typeof(object);
- }
- public void Save(object obj)
- {
- int newuse = Size(obj);
- usage = instance.UpdateHeapUse(usage, newuse);
- value = obj;
- }
- // public so it can be used by XMRArray
- public static int Size(object obj)
- {
- if(obj == null)
- return 0;
- if(obj is char)
- return HT_CHAR;
- if(obj is Delegate)
- return HT_DELE;
- if(obj is double)
- return HT_DOUB;
- if(obj is float)
- return HT_SING;
- if(obj is int)
- return HT_INT;
- if(obj is LSL_Float)
- return HT_SFLT;
- if(obj is LSL_Integer)
- return HT_INT;
- if(obj is LSL_List)
- return ((LSL_List)obj).Size;
- if(obj is LSL_Rotation)
- return HT_ROT;
- if(obj is LSL_String)
- return ((LSL_String)obj).m_string.Length * HT_CHAR;
- if(obj is LSL_Vector)
- return HT_VEC;
- if(obj is string)
- return ((string)obj).Length * HT_CHAR;
- if(obj is XMR_Array)
- return 0;
- if(obj is XMRArrayListKey)
- return ((XMRArrayListKey)obj).Size;
- if(obj is XMRSDTypeClObj)
- return 0;
- if(obj is Array)
- {
- Array ar = (Array)obj;
- int len = ar.Length;
- if(len == 0)
- return 0;
- Type et = ar.GetType().GetElementType();
- if(et.IsValueType)
- return Size(ar.GetValue(0)) * len;
- int size = 0;
- for(int i = 0; i < len; i++)
- {
- size += Size(ar.GetValue(i));
- }
- return size;
- }
- throw new Exception("unknown size of type " + obj.GetType().Name);
- }
- }
- /**
- * Wrapper around strings to keep track of how much memory they use.
- */
- public class HeapTrackerString: HeapTrackerBase
- {
- private static FieldInfo stringValueField = typeof(HeapTrackerString).GetField("value");
- private static MethodInfo stringSaveMethod = typeof(HeapTrackerString).GetMethod("Save");
- public string value;
- public HeapTrackerString(XMRInstAbstract inst) : base(inst) { }
- // generate CIL code to pop the value from the CIL stack
- // input:
- // 'this' pointer already pushed on CIL stack
- // new value pushed on CIL stack
- // output:
- // 'this' pointer popped from stack
- // new value popped from CIL stack
- // heap usage updated
- public static void GenPop(Token errorAt, ScriptMyILGen ilGen)
- {
- ilGen.Emit(errorAt, OpCodes.Call, stringSaveMethod);
- }
- // generate CIL code to push the value on the CIL stack
- // input:
- // 'this' pointer already pushed on CIL stack
- // output:
- // 'this' pointer popped from stack
- // value pushed on CIL stack replacing 'this' pointer
- // returns typeof value pushed on stack
- public static Type GenPush(Token errorAt, ScriptMyILGen ilGen)
- {
- ilGen.Emit(errorAt, OpCodes.Ldfld, stringValueField);
- return typeof(string);
- }
- public void Save(string str)
- {
- int newuse = Size(str);
- usage = instance.UpdateHeapUse(usage, newuse);
- value = str;
- }
- public static int Size(string str)
- {
- return (str == null) ? 0 : str.Length * HeapTrackerObject.HT_CHAR;
- }
- }
- }
|