Add IsFrozenObject Profiler API (dotnet#24239)

EgorBo · Apr 25, 2019 · 1445820 · 1445820
1 parent e302634
commit 1445820
Show file tree

Hide file tree

Showing 4 changed files with 53 additions and 0 deletions.
diff --git a/src/inc/corprof.idl b/src/inc/corprof.idl
@@ -3929,6 +3929,9 @@ interface ICorProfilerInfo10 : ICorProfilerInfo9
 {
     // Given an ObjectID, fetches all its object references and offsets (if any).
     HRESULT GetObjectReferences(ObjectID objectId, ULONG32 cNumReferences, ULONG32 *pcNumReferences, ObjectID references[], SIZE_T offsets[]);
+
+    // Given an ObjectID, determines whether it is in a read only segment.
+    HRESULT IsFrozenObject(ObjectID objectId, BOOL *pbFrozen);
 }
 
 /*

diff --git a/src/pal/prebuilt/inc/corprof.h b/src/pal/prebuilt/inc/corprof.h
@@ -15191,6 +15191,10 @@ EXTERN_C const IID IID_ICorProfilerInfo10;
             ObjectID references[  ],
             SIZE_T offsets[  ]) = 0;
 
+        virtual HRESULT STDMETHODCALLTYPE IsFrozenObject( 
+            ObjectID objectId,
+            BOOL *pbFrozen) = 0;
+
     };
 
 
@@ -15784,6 +15788,11 @@ EXTERN_C const IID IID_ICorProfilerInfo10;
             ObjectID references[  ],
             SIZE_T offsets[  ]);
 
+        HRESULT ( STDMETHODCALLTYPE *IsFrozenObject )( 
+            ICorProfilerInfo10 * This,
+            ObjectID objectId,
+            BOOL *pbFrozen);
+
         END_INTERFACE
     } ICorProfilerInfo10Vtbl;
 
@@ -16089,6 +16098,9 @@ EXTERN_C const IID IID_ICorProfilerInfo10;
 #define ICorProfilerInfo10_GetObjectReferences(This,objectId,cNumReferences,pcNumReferences,references,offsets)	\
     ( (This)->lpVtbl -> GetObjectReferences(This,objectId,cNumReferences,pcNumReferences,references,offsets) ) 
 
+#define ICorProfilerInfo10_IsFrozenObject(This,objectId,pbFrozen)	\
+    ( (This)->lpVtbl -> IsFrozenObject(This,objectId,pbFrozen) ) 
+
 #endif /* COBJMACROS */
 
 

diff --git a/src/vm/proftoeeinterfaceimpl.cpp b/src/vm/proftoeeinterfaceimpl.cpp
@@ -6855,6 +6855,42 @@ HRESULT ProfToEEInterfaceImpl::GetObjectReferences(ObjectID objectId, ULONG32 cN
     return S_OK;
 }
 
+/*
+ * IsFrozenObject
+ * 
+ * Determines whether the object is in a read-only segment
+ * 
+ * Parameters:
+ *      objectId        - object id of interest
+ *
+ * Returns:
+ *   S_OK if successful
+ *
+ */
+HRESULT ProfToEEInterfaceImpl::IsFrozenObject(ObjectID objectId, BOOL *pbFrozen)
+{
+    CONTRACTL
+    {
+        NOTHROW;
+        GC_NOTRIGGER;
+        MODE_ANY;
+        EE_THREAD_NOT_REQUIRED;
+        CANNOT_TAKE_LOCK;
+    }
+    CONTRACTL_END;
+
+    PROFILER_TO_CLR_ENTRYPOINT_SYNC_EX(
+        kP2EEAllowableAfterAttach,
+        (LF_CORPROF,
+        LL_INFO1000,
+        "**PROF: IsFrozenObject 0x%p.\n",
+        objectId));
+
+    *pbFrozen = GCHeapUtilities::GetGCHeap()->IsInFrozenSegment((Object*)objectId) ? TRUE : FALSE;
+
+    return S_OK;
+}
+
 /*
  * GetStringLayout
  *

diff --git a/src/vm/proftoeeinterfaceimpl.h b/src/vm/proftoeeinterfaceimpl.h
@@ -609,6 +609,8 @@ class ProfToEEInterfaceImpl : public ICorProfilerInfo10
         ObjectID references[],
         SIZE_T offsets[]);
 
+    COM_METHOD IsFrozenObject(ObjectID objectId, BOOL *pbFrozen);
+
     // end ICorProfilerInfo10
 
 protected: