Merge pull request #6117 from roc-lang/fix-mono-tsets

Fix mono tests
roc-lang · Nov 30, 2023 · 3f276b6 · 3f276b6
2 parents ead9031 + 10470f3
commit 3f276b6
Show file tree

Hide file tree

Showing 6 changed files with 210 additions and 210 deletions.
diff --git a/crates/compiler/test_mono/generated/inspect_derived_dict.txt b/crates/compiler/test_mono/generated/inspect_derived_dict.txt
@@ -746,8 +746,8 @@ procedure Inspect.186 (Inspect.187, #Attr.12):
     let Inspect.184 : {} = StructAtIndex 2 #Attr.12;
     let Inspect.183 : {} = StructAtIndex 1 #Attr.12;
     let Inspect.182 : {List {Str, I64}, List U64, List I8, U64} = StructAtIndex 0 #Attr.12;
-    let Inspect.353 : Str = "{";
-    let Inspect.328 : Str = CallByName Inspect.61 Inspect.187 Inspect.353;
+    let Inspect.355 : Str = "{";
+    let Inspect.328 : Str = CallByName Inspect.61 Inspect.187 Inspect.355;
     let Inspect.329 : {{List {Str, I64}, List U64, List I8, U64}, {}, {}, {}} = Struct {Inspect.182, Inspect.183, Inspect.184, Inspect.185};
     let Inspect.324 : {Str, Int1} = CallByName Inspect.188 Inspect.328 Inspect.329;
     let Inspect.325 : {} = Struct {};
@@ -761,8 +761,8 @@ procedure Inspect.188 (Inspect.189, #Attr.12):
     let Inspect.184 : {} = StructAtIndex 2 #Attr.12;
     let Inspect.183 : {} = StructAtIndex 1 #Attr.12;
     let Inspect.182 : {List {Str, I64}, List U64, List I8, U64} = StructAtIndex 0 #Attr.12;
-    let Bool.1 : Int1 = CallByName Bool.1;
-    let Inspect.332 : {Str, Int1} = Struct {Inspect.189, Bool.1};
+    let Inspect.354 : Int1 = CallByName Bool.1;
+    let Inspect.332 : {Str, Int1} = Struct {Inspect.189, Inspect.354};
     let Inspect.333 : {{}, {}} = Struct {Inspect.184, Inspect.185};
     let Inspect.331 : {Str, Int1} = CallByName Dict.10 Inspect.182 Inspect.332 Inspect.333;
     ret Inspect.331;
@@ -772,52 +772,52 @@ procedure Inspect.190 (Inspect.334, Inspect.193, Inspect.194, #Attr.12):
     let Inspect.184 : {} = StructAtIndex 0 #Attr.12;
     let Inspect.191 : Str = StructAtIndex 0 Inspect.334;
     let Inspect.192 : Int1 = StructAtIndex 1 Inspect.334;
-    joinpoint Inspect.351 Inspect.195:
-        let Inspect.348 : Str = CallByName Inspect.44 Inspect.193;
-        let Inspect.346 : Str = CallByName Inspect.31 Inspect.348 Inspect.195;
-        let Inspect.347 : Str = ": ";
-        let Inspect.340 : Str = CallByName Inspect.61 Inspect.346 Inspect.347;
-        let Inspect.341 : {I64, {}} = Struct {Inspect.194, Inspect.185};
-        let Inspect.337 : Str = CallByName Inspect.196 Inspect.340 Inspect.341;
+    joinpoint Inspect.352 Inspect.195:
+        let Inspect.349 : Str = CallByName Inspect.44 Inspect.193;
+        let Inspect.347 : Str = CallByName Inspect.31 Inspect.349 Inspect.195;
+        let Inspect.348 : Str = ": ";
+        let Inspect.341 : Str = CallByName Inspect.61 Inspect.347 Inspect.348;
+        let Inspect.342 : {I64, {}} = Struct {Inspect.194, Inspect.185};
+        let Inspect.337 : Str = CallByName Inspect.196 Inspect.341 Inspect.342;
         let Inspect.338 : {} = Struct {};
         let Inspect.336 : {Str, Int1} = CallByName Inspect.198 Inspect.337;
         ret Inspect.336;
     in
     if Inspect.192 then
-        let Inspect.352 : Str = ", ";
-        let Inspect.350 : Str = CallByName Inspect.61 Inspect.191 Inspect.352;
-        jump Inspect.351 Inspect.350;
+        let Inspect.353 : Str = ", ";
+        let Inspect.351 : Str = CallByName Inspect.61 Inspect.191 Inspect.353;
+        jump Inspect.352 Inspect.351;
     else
-        jump Inspect.351 Inspect.191;
+        jump Inspect.352 Inspect.191;
 
 procedure Inspect.196 (Inspect.197, #Attr.12):
     let Inspect.185 : {} = StructAtIndex 1 #Attr.12;
     let Inspect.194 : I64 = StructAtIndex 0 #Attr.12;
-    let Inspect.344 : I64 = CallByName Inspect.54 Inspect.194;
-    let Inspect.343 : Str = CallByName Inspect.31 Inspect.344 Inspect.197;
-    ret Inspect.343;
+    let Inspect.345 : I64 = CallByName Inspect.54 Inspect.194;
+    let Inspect.344 : Str = CallByName Inspect.31 Inspect.345 Inspect.197;
+    ret Inspect.344;
 
 procedure Inspect.198 (Inspect.199):
-    let Bool.2 : Int1 = CallByName Bool.2;
-    let Inspect.339 : {Str, Int1} = Struct {Inspect.199, Bool.2};
+    let Inspect.340 : Int1 = CallByName Bool.2;
+    let Inspect.339 : {Str, Int1} = Struct {Inspect.199, Inspect.340};
     ret Inspect.339;
 
 procedure Inspect.200 (Inspect.326):
     let Inspect.327 : Str = StructAtIndex 0 Inspect.326;
     ret Inspect.327;
 
 procedure Inspect.249 (Inspect.250, Inspect.248):
+    let Inspect.370 : Str = "\"";
+    let Inspect.369 : Str = CallByName Inspect.61 Inspect.250 Inspect.370;
+    let Inspect.367 : Str = CallByName Inspect.61 Inspect.369 Inspect.248;
     let Inspect.368 : Str = "\"";
-    let Inspect.367 : Str = CallByName Inspect.61 Inspect.250 Inspect.368;
-    let Inspect.365 : Str = CallByName Inspect.61 Inspect.367 Inspect.248;
-    let Inspect.366 : Str = "\"";
-    let Inspect.364 : Str = CallByName Inspect.61 Inspect.365 Inspect.366;
-    ret Inspect.364;
+    let Inspect.366 : Str = CallByName Inspect.61 Inspect.367 Inspect.368;
+    ret Inspect.366;
 
 procedure Inspect.277 (Inspect.278, Inspect.276):
-    let Inspect.359 : Str = CallByName Num.96 Inspect.276;
-    let Inspect.358 : Str = CallByName Inspect.61 Inspect.278 Inspect.359;
-    ret Inspect.358;
+    let Inspect.361 : Str = CallByName Num.96 Inspect.276;
+    let Inspect.360 : Str = CallByName Inspect.61 Inspect.278 Inspect.361;
+    ret Inspect.360;
 
 procedure Inspect.30 (Inspect.147):
     ret Inspect.147;
@@ -836,12 +836,12 @@ procedure Inspect.31 (Inspect.305, Inspect.149):
     ret Inspect.314;
 
 procedure Inspect.31 (Inspect.305, Inspect.149):
-    let Inspect.345 : Str = CallByName Inspect.277 Inspect.149 Inspect.305;
-    ret Inspect.345;
+    let Inspect.346 : Str = CallByName Inspect.277 Inspect.149 Inspect.305;
+    ret Inspect.346;
 
 procedure Inspect.31 (Inspect.305, Inspect.149):
-    let Inspect.349 : Str = CallByName Inspect.249 Inspect.149 Inspect.305;
-    ret Inspect.349;
+    let Inspect.350 : Str = CallByName Inspect.249 Inspect.149 Inspect.305;
+    ret Inspect.350;
 
 procedure Inspect.35 (Inspect.300):
     ret Inspect.300;
@@ -856,8 +856,8 @@ procedure Inspect.39 (Inspect.182, Inspect.183, Inspect.184, Inspect.185):
     ret Inspect.315;
 
 procedure Inspect.44 (Inspect.248):
-    let Inspect.360 : Str = CallByName Inspect.30 Inspect.248;
-    ret Inspect.360;
+    let Inspect.362 : Str = CallByName Inspect.30 Inspect.248;
+    ret Inspect.362;
 
 procedure Inspect.5 (Inspect.150):
     let Inspect.312 : {List {Str, I64}, List U64, List I8, U64} = CallByName Dict.31 Inspect.150;
@@ -867,8 +867,8 @@ procedure Inspect.5 (Inspect.150):
     ret Inspect.307;
 
 procedure Inspect.54 (Inspect.276):
-    let Inspect.354 : I64 = CallByName Inspect.30 Inspect.276;
-    ret Inspect.354;
+    let Inspect.356 : I64 = CallByName Inspect.30 Inspect.276;
+    ret Inspect.356;
 
 procedure Inspect.61 (Inspect.303, Inspect.298):
     let Inspect.323 : Str = CallByName Str.3 Inspect.303 Inspect.298;

diff --git a/crates/compiler/test_mono/generated/inspect_derived_list.txt b/crates/compiler/test_mono/generated/inspect_derived_list.txt
@@ -25,8 +25,8 @@ procedure Inspect.155 (Inspect.156, #Attr.12):
     let Inspect.154 : {} = StructAtIndex 2 #Attr.12;
     let Inspect.153 : {} = StructAtIndex 1 #Attr.12;
     let Inspect.152 : List I64 = StructAtIndex 0 #Attr.12;
-    let Inspect.345 : Str = "[";
-    let Inspect.328 : Str = CallByName Inspect.61 Inspect.156 Inspect.345;
+    let Inspect.347 : Str = "[";
+    let Inspect.328 : Str = CallByName Inspect.61 Inspect.156 Inspect.347;
     let Inspect.329 : {List I64, {}, {}} = Struct {Inspect.152, Inspect.153, Inspect.154};
     let Inspect.324 : {Str, Int1} = CallByName Inspect.157 Inspect.328 Inspect.329;
     let Inspect.325 : {} = Struct {};
@@ -39,41 +39,41 @@ procedure Inspect.157 (Inspect.158, #Attr.12):
     let Inspect.154 : {} = StructAtIndex 2 #Attr.12;
     let Inspect.153 : {} = StructAtIndex 1 #Attr.12;
     let Inspect.152 : List I64 = StructAtIndex 0 #Attr.12;
-    let Bool.1 : Int1 = CallByName Bool.1;
-    let Inspect.332 : {Str, Int1} = Struct {Inspect.158, Bool.1};
+    let Inspect.346 : Int1 = CallByName Bool.1;
+    let Inspect.332 : {Str, Int1} = Struct {Inspect.158, Inspect.346};
     let Inspect.331 : {Str, Int1} = CallByName List.18 Inspect.152 Inspect.332 Inspect.154;
     ret Inspect.331;
 
 procedure Inspect.159 (Inspect.334, Inspect.162, Inspect.154):
     let Inspect.160 : Str = StructAtIndex 0 Inspect.334;
     let Inspect.161 : Int1 = StructAtIndex 1 Inspect.334;
-    joinpoint Inspect.343 Inspect.163:
-        let Inspect.340 : I64 = CallByName #Derived.3 Inspect.162;
-        let Inspect.337 : Str = CallByName Inspect.31 Inspect.340 Inspect.163;
+    joinpoint Inspect.344 Inspect.163:
+        let Inspect.341 : I64 = CallByName #Derived.3 Inspect.162;
+        let Inspect.337 : Str = CallByName Inspect.31 Inspect.341 Inspect.163;
         let Inspect.338 : {} = Struct {};
         let Inspect.336 : {Str, Int1} = CallByName Inspect.164 Inspect.337;
         ret Inspect.336;
     in
     if Inspect.161 then
-        let Inspect.344 : Str = ", ";
-        let Inspect.342 : Str = CallByName Inspect.61 Inspect.160 Inspect.344;
-        jump Inspect.343 Inspect.342;
+        let Inspect.345 : Str = ", ";
+        let Inspect.343 : Str = CallByName Inspect.61 Inspect.160 Inspect.345;
+        jump Inspect.344 Inspect.343;
     else
-        jump Inspect.343 Inspect.160;
+        jump Inspect.344 Inspect.160;
 
 procedure Inspect.164 (Inspect.165):
-    let Bool.2 : Int1 = CallByName Bool.2;
-    let Inspect.339 : {Str, Int1} = Struct {Inspect.165, Bool.2};
+    let Inspect.340 : Int1 = CallByName Bool.2;
+    let Inspect.339 : {Str, Int1} = Struct {Inspect.165, Inspect.340};
     ret Inspect.339;
 
 procedure Inspect.166 (Inspect.326):
     let Inspect.327 : Str = StructAtIndex 0 Inspect.326;
     ret Inspect.327;
 
 procedure Inspect.277 (Inspect.278, Inspect.276):
-    let Inspect.351 : Str = CallByName Num.96 Inspect.276;
-    let Inspect.350 : Str = CallByName Inspect.61 Inspect.278 Inspect.351;
-    ret Inspect.350;
+    let Inspect.353 : Str = CallByName Num.96 Inspect.276;
+    let Inspect.352 : Str = CallByName Inspect.61 Inspect.278 Inspect.353;
+    ret Inspect.352;
 
 procedure Inspect.30 (Inspect.147):
     ret Inspect.147;
@@ -89,8 +89,8 @@ procedure Inspect.31 (Inspect.305, Inspect.149):
     ret Inspect.314;
 
 procedure Inspect.31 (Inspect.305, Inspect.149):
-    let Inspect.341 : Str = CallByName Inspect.277 Inspect.149 Inspect.305;
-    ret Inspect.341;
+    let Inspect.342 : Str = CallByName Inspect.277 Inspect.149 Inspect.305;
+    ret Inspect.342;
 
 procedure Inspect.35 (Inspect.300):
     ret Inspect.300;
@@ -112,8 +112,8 @@ procedure Inspect.5 (Inspect.150):
     ret Inspect.307;
 
 procedure Inspect.54 (Inspect.276):
-    let Inspect.346 : I64 = CallByName Inspect.30 Inspect.276;
-    ret Inspect.346;
+    let Inspect.348 : I64 = CallByName Inspect.30 Inspect.276;
+    ret Inspect.348;
 
 procedure Inspect.61 (Inspect.303, Inspect.298):
     let Inspect.323 : Str = CallByName Str.3 Inspect.303 Inspect.298;