1 files changed, 299 insertions, 0 deletions

diff --git a/OpenSim/Region/ScriptEngine/YEngine/XMRHeapTracker.cs b/OpenSim/Region/ScriptEngine/YEngine/XMRHeapTracker.cs
new file mode 100644
index 0000000..33eb8bf
--- /dev/null
+++ b/OpenSim/Region/ScriptEngine/YEngine/XMRHeapTracker.cs
@@ -0,0 +1,299 @@
+/*
+ * 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;
+        }
+    }
+}