add mtl log type

Author: tgymnich

src/device/intrinsics/output.jl

@@ -1,3 +1,12 @@
+const MTLLOG_SUBSYSTEM = "com.juliagpu.metal.jl"
+const MTLLOG_CATEGRORY = "mtlprintf" 
+
+const __METAL_OS_LOG_TYPE_DEBUG__ = Int32(2)
+const __METAL_OS_LOG_TYPE_INFO__ = Int32(1)
+const __METAL_OS_LOG_TYPE_DEFAULT__ = Int32(0)
+const __METAL_OS_LOG_TYPE_ERROR__ = Int32(16)
+const __METAL_OS_LOG_TYPE_FAULT__ = Int32(17)
+
 export @mtlprintf
 
 @generated function promote_c_argument(arg)
@@ -72,18 +81,18 @@ end
             end
 
             # invoke @air.os_log and return
-            subsystem_str = LLVM.PointerNull(T_pint8a2)
-            intptr = LLVM.ConstantInt(T_int64, Int64(-1))
-            category_str = const_inttoptr(intptr, T_pint8a2)
-            log_type_default = LLVM.ConstantInt(T_int32, Int32(0))
-            log_type_debug = LLVM.ConstantInt(T_int32, Int32(2))
-            log_type_error = LLVM.ConstantInt(T_int32, Int32(16))
+            subsystem_str = globalstring_ptr!(builder, MTLLOG_SUBSYSTEM, addrspace=2)
+            # subsystem_str = LLVM.PointerNull(T_pint8a2)
+            # intptr = LLVM.ConstantInt(T_int64, Int64(-1))
+            # category_str = const_inttoptr(intptr, T_pint8a2)
+            category_str = globalstring_ptr!(builder, MTLLOG_CATEGRORY, addrspace=2)
+            log_type = LLVM.ConstantInt(T_int32, __METAL_OS_LOG_TYPE_DEBUG__)
             arg_size = LLVM.ConstantInt(T_int64, Int64(argsize))
 
             # declare void @air.os_log(i8 addrspace(2)*, i8 addrspace(2)*, i32, i8 addrspace(2)*, i8*, i64) local_unnamed_addr #4
             os_log_fty = LLVM.FunctionType(T_void, [T_pint8a2, T_pint8a2, T_int32, T_pint8a2, T_pint8, T_int64])
             os_log = LLVM.Function(mod, "air.os_log", os_log_fty)
-            call!(builder, os_log_fty, os_log, [subsystem_str, category_str, log_type_error, str, buffer, arg_size])
+            call!(builder, os_log_fty, os_log, [subsystem_str, category_str, log_type, str, buffer, arg_size])
             ret!(builder)
         end