rework exception stack handling for hl 1.12 - prevent allocating string and resolving symbols until stack is displayed

std/hl/_std/haxe/Exception.hx

@@ -9,7 +9,7 @@ class Exception {
 
 	@:noCompletion var __exceptionMessage:String;
 	@:noCompletion var __exceptionStack:Null<CallStack>;
-	@:noCompletion var __nativeStack:hl.NativeArray<hl.Bytes>;
+	@:noCompletion var __nativeStack:hl.NativeArray<#if (hl_ver >= "1.12.0") haxe.NativeStackTrace.Symbol #else hl.Bytes #end>;
 	@:noCompletion @:ifFeature("haxe.Exception.get_stack") var __skipStack:Int = 0;
 	@:noCompletion var __nativeException:Any;
 	@:noCompletion var __previousException:Null<Exception>;

std/hl/_std/haxe/NativeStackTrace.hx

@@ -4,6 +4,8 @@ import hl.NativeArray;
 import hl.Bytes;
 import haxe.CallStack.StackItem;
 
+typedef Symbol = #if (hl_ver >= version("1.12.0")) hl.Abstract<"hl_symbol"> #else hl.Bytes #end
+
 /**
 	Do not use manually.
 **/
@@ -14,6 +16,39 @@ class NativeStackTrace {
 	static public inline function saveStack(exception:Any):Void {
 	}
 
+	#if (hl_ver >= version("1.12.0") )
+
+	static public function exceptionStack():NativeArray<Symbol> {
+		var count = exceptionStackRaw(null);
+		var arr = new NativeArray(count);
+		exceptionStackRaw(arr);
+		return arr;
+	}
+
+	static public inline function callStack():NativeArray<Symbol> {
+		var count = callStackRaw(null);
+		var arr = new NativeArray(count);
+		callStackRaw(arr);
+		return arr;
+	}
+
+	@:hlNative("std", "exception_stack_raw")
+	static function exceptionStackRaw( arr : NativeArray<Symbol> ) : Int {
+		return 0;
+	}
+
+	@:hlNative("std", "call_stack_raw")
+	static function callStackRaw( arr : NativeArray<Symbol> ) : Int {
+		return 0;
+	}
+
+	@:hlNative("std","resolve_symbol")
+	static function resolveSymbol( sym : Symbol, buf : hl.Bytes, bufLen : hl.Ref<Int> ) : hl.Bytes {
+		return null;
+	}
+
+	#else
+
 	@:hlNative("std", "exception_stack")
 	static public function exceptionStack():NativeArray<Bytes> {
 		return null;
@@ -37,15 +72,26 @@ class NativeStackTrace {
 		return skip < stack.length ? stack.sub(skip, stack.length - skip) : stack;
 	}
 
-	static public function toHaxe(native:NativeArray<Bytes>, skip:Int = 0):Array<StackItem> {
+	#end
+
+	static public function toHaxe(native:NativeArray<Symbol>, skip:Int=0 ):Array<StackItem> {
 		var stack = [];
 		var r = ~/^([A-Za-z0-9.$_]+)\.([~A-Za-z0-9_]+(\.[0-9]+)?)\((.+):([0-9]+)\)$/;
 		var r_fun = ~/^fun\$([0-9]+)\((.+):([0-9]+)\)$/;
-		for (i in 0...native.length - 1) {
-			if(skip > i) {
-				continue;
-			}
-			var str = @:privateAccess String.fromUCS2(native[i]);
+		#if (hl_ver >= version("1.12.0"))
+		var maxLen = 1024;
+		var tmpBuf = @:privateAccess hl.Bytes.alloc(maxLen);
+		#end
+		for (i in 0...native.length-1) {
+			if( i < skip ) continue;
+			#if (hl_ver >= version("1.12.0"))
+			var len = maxLen;
+			var bytes = resolveSymbol(native[i],tmpBuf,len);
+			if( bytes == null ) continue;
+			#else
+			var bytes = native[i];
+			#end
+			var str = @:privateAccess String.fromUCS2(bytes);
 			if (r.match(str))
 				stack.push(FilePos(Method(r.matched(1), r.matched(2)), r.matched(4), Std.parseInt(r.matched(5))));
 			else if (r_fun.match(str))