mono/metadata/string-icalls.c

   1 /*
   2  * string-icalls.c: String internal calls for the corlib
   3  *
   4  * Author:
   5  *   Patrik Torstensson (patrik.torstensson@labs2.com)
   6  *   Duncan Mak  (duncan@ximian.com)
   7  *
   8  * Copyright 2001-2003 Ximian, Inc (http://www.ximian.com)
   9  * Copyright 2004-2009 Novell, Inc (http://www.novell.com)
  10  */
  11 #include <config.h>
  12 #include <stdlib.h>
  13 #include <stdio.h>
  14 #include <signal.h>
  15 #include <string.h>
  16 #include "mono/utils/mono-membar.h"
  17 #include <mono/metadata/string-icalls.h>
  18 #include <mono/metadata/class-internals.h>
  19 #include <mono/metadata/appdomain.h>
  20 #include <mono/metadata/tabledefs.h>
  21 #include <mono/metadata/loader.h>
  22 #include <mono/metadata/object.h>
  23 #include <mono/metadata/exception.h>
  24 #include <mono/metadata/debug-helpers.h>
  25 #include <mono/metadata/profiler.h>
  26 #include <mono/metadata/profiler-private.h>
  27 #include <mono/metadata/gc-internal.h>
  28
  29 /* This function is redirected to String.CreateString ()
  30    by mono_marshal_get_native_wrapper () */
  31 void
  32 ves_icall_System_String_ctor_RedirectToCreateString (void)
  33 {
  34         g_assert_not_reached ();
  35 }
  36
  37 MonoString *
  38 ves_icall_System_String_InternalAllocateStr (gint32 length)
  39 {
  40         return mono_string_new_size(mono_domain_get (), length);
  41 }
  42
  43 MonoString  *
  44 ves_icall_System_String_InternalIntern (MonoString *str)
  45 {
  46         MonoString *res;
  47         MONO_ARCH_SAVE_REGS;
  48
  49         res = mono_string_intern(str);
  50         if (!res)
  51                 mono_raise_exception (mono_domain_get ()->out_of_memory_ex);
  52         return res;
  53 }
  54
  55 MonoString *
  56 ves_icall_System_String_InternalIsInterned (MonoString *str)
  57 {
  58         MONO_ARCH_SAVE_REGS;
  59
  60         return mono_string_is_interned(str);
  61 }
  62
  63 int
  64 ves_icall_System_String_GetLOSLimit (void)
  65 {
  66         int limit = mono_gc_get_los_limit ();
  67
  68         return (limit - 2 - sizeof (MonoString)) / 2;
  69 }