kern: add extension InfoType for retrieving current process handle.

libraries/libmesosphere/source/svc/kern_svc_info.cpp

@@ -276,6 +276,25 @@ namespace ams::kern::svc {
                         }
                     }
                     break;
+                case ams::svc::InfoType_MesosphereCurrentProcess:
+                    {
+                        /* Verify the input handle is invalid. */
+                        R_UNLESS(handle == ams::svc::InvalidHandle, svc::ResultInvalidHandle());
+
+                        /* Verify the sub-type is valid. */
+                        R_UNLESS(info_subtype == 0, svc::ResultInvalidCombination());
+
+                        /* Get the handle table. */
+                        KHandleTable &handle_table = GetCurrentProcess().GetHandleTable();
+
+                        /* Get a new handle for the current process. */
+                        ams::svc::Handle tmp;
+                        R_TRY(handle_table.Add(std::addressof(tmp), GetCurrentProcessPointer()));
+
+                        /* Set the output. */
+                        *out = tmp;
+                    }
+                    break;
                 default:
                     {
                         /* For debug, log the invalid info call. */

libraries/libvapours/include/vapours/svc/svc_types_common.hpp

@@ -159,6 +159,7 @@ namespace ams::svc {
         InfoType_FreeThreadCount                = 24,
 
         InfoType_MesosphereMeta                 = 65000,
+        InfoType_MesosphereCurrentProcess       = 65001,
 
         InfoType_ThreadTickCount                = 0xF0000002,
     };