2 files changed, 256 insertions, 0 deletions

diff --git a/linden/indra/lscript/lscript_execute_mono/assembly.cpp b/linden/indra/lscript/lscript_execute_mono/assembly.cpp
new file mode 100644
index 0000000..dd8b284
--- /dev/null
+++ b/linden/indra/lscript/lscript_execute_mono/assembly.cpp
@@ -0,0 +1,74 @@
+/**
+ * @file llassembly.cpp
+ * @brief keeps track of user scripts, ensures that only one copy exists for each
+ *
+ * $LicenseInfo:firstyear=2007&license=internal$
+ * 
+ * Copyright (c) 2007-2008, Linden Research, Inc.
+ * 
+ * The following source code is PROPRIETARY AND CONFIDENTIAL. Use of
+ * this source code is governed by the Linden Lab Source Code Disclosure
+ * Agreement ("Agreement") previously entered between you and Linden
+ * Lab. By accessing, using, copying, modifying or distributing this
+ * software, you acknowledge that you have been informed of your
+ * obligations under the Agreement and agree to abide by those obligations.
+ * 
+ * ALL LINDEN LAB SOURCE CODE IS PROVIDED "AS IS." LINDEN LAB MAKES NO
+ * WARRANTIES, EXPRESS, IMPLIED OR OTHERWISE, REGARDING ITS ACCURACY,
+ * COMPLETENESS OR PERFORMANCE.
+ * $/LicenseInfo$
+ */
+
+
+#include "llassembly.h"
+#include <map>
+
+
+static std::map<std::string, LLAssembly*> sAssemblyMap;
+
+boost::intrusive_ptr<LLAssembly> LLAssembly::create(const std::string& name, 
+                                                                                                        const U8* buffer, U32 size)
+{
+        std::map<std::string, LLAssembly*>::iterator it = sAssemblyMap.find(name);
+        if (it != sAssemblyMap.end())
+        {
+                return it->second;
+        }
+        else
+        {
+                LLAssembly* a = new LLAssembly(name, buffer, size);
+                sAssemblyMap[name] = a;
+                return a;
+        }
+}
+
+
+LLAssembly::LLAssembly(const std::string &name, const U8* buffer, U32 size) : 
+        mName(name), mRefCount(0), mBuffer(buffer, buffer+size)
+{
+}
+
+LLAssembly::~LLAssembly() 
+{
+        std::map<std::string, LLAssembly*>::iterator it = sAssemblyMap.find(mName);
+        if (it != sAssemblyMap.end())
+        {
+                sAssemblyMap.erase(it);
+        }
+}
+
+
+void intrusive_ptr_add_ref(LLAssembly* p)
+{
+        ++(p->mRefCount);
+}
+
+void intrusive_ptr_release(LLAssembly* p)
+{
+        if (0 == --(p->mRefCount))
+        {
+                delete p;
+        }
+}
+
+
diff --git a/linden/indra/lscript/lscript_execute_mono/size.cpp b/linden/indra/lscript/lscript_execute_mono/size.cpp
new file mode 100644
index 0000000..f9ca7a3
--- /dev/null
+++ b/linden/indra/lscript/lscript_execute_mono/size.cpp
@@ -0,0 +1,182 @@
+/** 
+ * NOTE: none of this actually applies as this file was taken from mono/samples
+ * @file size.c
+ * @brief file from mono samples 
+ *
+ * $LicenseInfo:firstyear=2007&license=internal$
+ * 
+ * Copyright (c) 2007-2008, Linden Research, Inc.
+ * 
+ * The following source code is PROPRIETARY AND CONFIDENTIAL. Use of
+ * this source code is governed by the Linden Lab Source Code Disclosure
+ * Agreement ("Agreement") previously entered between you and Linden
+ * Lab. By accessing, using, copying, modifying or distributing this
+ * software, you acknowledge that you have been informed of your
+ * obligations under the Agreement and agree to abide by those obligations.
+ * 
+ * ALL LINDEN LAB SOURCE CODE IS PROVIDED "AS IS." LINDEN LAB MAKES NO
+ * WARRANTIES, EXPRESS, IMPLIED OR OTHERWISE, REGARDING ITS ACCURACY,
+ * COMPLETENESS OR PERFORMANCE.
+ * $/LicenseInfo$
+ */
+
+#include <glib.h>
+#include <mono/jit/jit.h>
+#include <mono/metadata/environment.h>
+#include <mono/metadata/profiler.h>
+#include <mono/metadata/tokentype.h>
+#include <mono/metadata/debug-helpers.h>
+#include <mono/metadata/llassembly.h>
+#include <string.h>
+
+#include "stdtypes.h"
+#include "linden_common.h"
+
+#define FIELD_ATTRIBUTE_STATIC 0x10
+#define FIELD_ATTRIBUTE_HAS_FIELD_RVA 0x100
+
+static int memory_usage (MonoObject *obj, GHashTable *visited, 
+                         int (*functor)(MonoObject*, MonoType*, int));
+
+static int
+memory_usage_array (MonoArray *array, GHashTable *visited,
+                    int (*functor)(MonoObject*, MonoType*, int))
+{
+  int total = 0;
+  MonoClass *array_class = mono_object_get_class ((MonoObject *) array);
+  MonoClass *element_class = mono_class_get_element_class (array_class);
+  MonoType *element_type = mono_class_get_type (element_class);
+
+  if (MONO_TYPE_IS_REFERENCE (element_type)) {
+    int i;
+
+    for (i = 0; i < mono_array_length (array); i++) {
+      MonoObject *element = (MonoObject*)mono_array_get (array, gpointer, i);
+
+      if (element != NULL)
+        total += memory_usage (element, visited, functor);
+    }
+  }
+
+  return total;
+}
+
+static int
+memory_usage (MonoObject *obj, GHashTable *visited, 
+              int (*functor)(MonoObject*, MonoType*, int))
+{
+  int total = 0;
+  MonoClass *klass;
+  MonoType *type;
+  gpointer iter = NULL;
+  MonoClassField *field;
+
+  if (g_hash_table_lookup (visited, obj))
+    return 0;
+
+  g_hash_table_insert (visited, obj, obj);
+
+  klass = mono_object_get_class (obj);
+  type = mono_class_get_type (klass);
+
+  /* This is an array, so drill down into it */
+  if (type->type == MONO_TYPE_SZARRAY)
+    total += memory_usage_array ((MonoArray *) obj, visited, functor);
+
+  while ((field = mono_class_get_fields (klass, &iter)) != NULL) {
+    MonoType *ftype = mono_field_get_type (field);
+    gpointer value;
+
+    if ((ftype->attrs & (FIELD_ATTRIBUTE_STATIC | FIELD_ATTRIBUTE_HAS_FIELD_RVA)) != 0)
+      continue;
+
+    /* FIXME: There are probably other types we need to drill down into */
+    switch (ftype->type) {
+
+    case MONO_TYPE_CLASS:
+    case MONO_TYPE_OBJECT:
+      mono_field_get_value (obj, field, &value);
+
+      if (value != NULL)
+        total += memory_usage ((MonoObject *) value, visited, functor);
+
+      break;
+
+    case MONO_TYPE_STRING:
+      mono_field_get_value (obj, field, &value);
+      if (value != NULL) 
+        total += mono_object_get_size ((MonoObject *) value);
+      break;
+
+    case MONO_TYPE_SZARRAY:
+      mono_field_get_value (obj, field, &value);
+
+      if (value != NULL) {
+        total += memory_usage_array ((MonoArray *) value, visited, functor);
+        total += mono_object_get_size ((MonoObject *) value);
+      }
+
+      break;
+
+    default:
+      /* printf ("Got type 0x%x\n", ftype->type); */
+      /* ignore, this will be included in mono_object_get_size () */
+      break;
+    }
+  }
+
+  total = functor(obj, type, total);
+
+  return total;
+}
+
+
+int addObjectSize(MonoObject* obj, MonoType* type, int total) 
+{
+  return total + mono_object_get_size (obj);
+}
+
+/*
+ * Only returns data for instances, not for static fields, those might
+ * be larger, or hold larger structures
+ */
+int
+GetMemoryUsage (MonoObject *obj)
+{
+  GHashTable *visited = g_hash_table_new (NULL, NULL);
+  int n;
+  
+  n = memory_usage (obj, visited, addObjectSize);
+
+  g_hash_table_destroy (visited);
+  
+  return n;
+}
+
+
+
+int printObjectSize(MonoObject* obj, MonoType* type, int total) 
+{
+  total += mono_object_get_size (obj);
+  llinfos << "Object type: " << mono_type_full_name(type) << " size: "
+          << total << llendl;
+    
+  return total;
+}
+
+/*
+ * Only returns data for instances, not for static fields, those might
+ * be larger, or hold larger structures
+ */
+int
+PrintMemoryUsage (MonoObject *obj)
+{
+  GHashTable *visited = g_hash_table_new (NULL, NULL);
+  int n;
+  
+  n = memory_usage (obj, visited, printObjectSize);
+
+  g_hash_table_destroy (visited);
+  
+  return n;
+}