From 8cc828c77fda4cc46e4c62c9bc59eab37508769d Mon Sep 17 00:00:00 2001 From: Zachary Snow Date: Mon, 17 Feb 2025 19:25:39 -0500 Subject: [PATCH] reduce cost of unsigned type conversion --- src/Convert.hs | 2 +- src/Convert/Unsigned.hs | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/Convert.hs b/src/Convert.hs index 3100887..75e11af 100644 --- a/src/Convert.hs +++ b/src/Convert.hs @@ -74,6 +74,7 @@ finalPhases _ = , Convert.EmptyArgs.convert , Convert.FuncRet.convert , Convert.TFBlock.convert + , Convert.Unsigned.convert , Convert.StringType.convert ] @@ -96,7 +97,6 @@ mainPhases tops selectExclude = , Convert.Struct.convert , Convert.Typedef.convert , Convert.UnpackedArray.convert - , Convert.Unsigned.convert , Convert.Wildcard.convert , Convert.Enum.convert , Convert.StringParam.convert diff --git a/src/Convert/Unsigned.hs b/src/Convert/Unsigned.hs index ba9ad4d..e2324d8 100644 --- a/src/Convert/Unsigned.hs +++ b/src/Convert/Unsigned.hs @@ -18,7 +18,8 @@ convert = map $ traverseDescriptions $ traverseModuleItems $ - traverseTypes $ traverseNestedTypes convertType + -- doesn't need to visit nested types, as they have been elaborated + traverseTypes convertType convertType :: Type -> Type convertType (Implicit Unsigned rs) = Implicit Unspecified rs