From a2b025dbd2d24f104b3fce49f0b3f62cdf0c6ce6 Mon Sep 17 00:00:00 2001
From: Apprentice-Alchemist
 <53486764+Apprentice-Alchemist@users.noreply.github.com>
Date: Wed, 31 Jul 2024 14:31:32 +0200
Subject: [PATCH] [hlc] Fix HArray type generation.

---
 src/generators/hl2c.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/generators/hl2c.ml b/src/generators/hl2c.ml
index e3ebdfa76dc..645e2982a8d 100644
--- a/src/generators/hl2c.ml
+++ b/src/generators/hl2c.ml
@@ -1181,6 +1181,8 @@ let make_types_idents htypes =
 			"t$nul_" ^ tstr t
 		| DSimple (HRef t) ->
 			"t$ref_" ^ (match make_desc t with DSimple _ -> tstr t | d -> desc_string d)
+		| DSimple (HArray t) ->
+			"t$array_" ^ (desc_string (make_desc t))
 		| DSimple t ->
 			"t$_" ^ tstr t
 		| DFun _ ->