add test_mono files

roc-lang · Oct 14, 2023 · 3df2ace · 3df2ace
1 parent 886b855
commit 3df2ace
Show file tree

Hide file tree

Showing 16 changed files with 223 additions and 223 deletions.
diff --git a/...compiler/test_mono/generated/compose_recursive_lambda_set_productive_nullable_wrapped.txt b/...compiler/test_mono/generated/compose_recursive_lambda_set_productive_nullable_wrapped.txt
@@ -40,8 +40,8 @@ procedure Num.51 (#Attr.2, #Attr.3):
     ret Num.291;
 
 procedure Str.3 (#Attr.2, #Attr.3):
-    let Str.291 : Str = lowlevel StrConcat #Attr.2 #Attr.3;
-    ret Str.291;
+    let Str.294 : Str = lowlevel StrConcat #Attr.2 #Attr.3;
+    ret Str.294;
 
 procedure Test.1 (Test.5):
     ret Test.5;

diff --git a/crates/compiler/test_mono/generated/encode_derived_nested_record_string.txt b/crates/compiler/test_mono/generated/encode_derived_nested_record_string.txt
@@ -345,38 +345,38 @@ procedure Num.94 (#Attr.2, #Attr.3):
     ret Num.311;
 
 procedure Str.12 (#Attr.2):
-    let Str.307 : List U8 = lowlevel StrToUtf8 #Attr.2;
-    ret Str.307;
+    let Str.310 : List U8 = lowlevel StrToUtf8 #Attr.2;
+    ret Str.310;
 
 procedure Str.4 (#Attr.2, #Attr.3):
-    let Str.310 : Str = lowlevel StrJoinWith #Attr.2 #Attr.3;
-    ret Str.310;
+    let Str.313 : Str = lowlevel StrJoinWith #Attr.2 #Attr.3;
+    ret Str.313;
 
 procedure Str.48 (#Attr.2, #Attr.3, #Attr.4):
-    let Str.298 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8Range #Attr.2 #Attr.3 #Attr.4;
-    ret Str.298;
+    let Str.301 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8Range #Attr.2 #Attr.3 #Attr.4;
+    ret Str.301;
 
 procedure Str.55 (#Attr.2):
-    let Str.313 : List Str = lowlevel StrGraphemes #Attr.2;
-    ret Str.313;
-
-procedure Str.9 (Str.79):
-    let Str.296 : U64 = 0i64;
-    let Str.297 : U64 = CallByName List.6 Str.79;
-    let Str.80 : {U64, Str, Int1, U8} = CallByName Str.48 Str.79 Str.296 Str.297;
-    let Str.293 : Int1 = StructAtIndex 2 Str.80;
-    if Str.293 then
-        let Str.295 : Str = StructAtIndex 1 Str.80;
-        let Str.294 : [C {U64, U8}, C Str] = TagId(1) Str.295;
-        ret Str.294;
+    let Str.316 : List Str = lowlevel StrGraphemes #Attr.2;
+    ret Str.316;
+
+procedure Str.9 (Str.80):
+    let Str.299 : U64 = 0i64;
+    let Str.300 : U64 = CallByName List.6 Str.80;
+    let Str.81 : {U64, Str, Int1, U8} = CallByName Str.48 Str.80 Str.299 Str.300;
+    let Str.296 : Int1 = StructAtIndex 2 Str.81;
+    if Str.296 then
+        let Str.298 : Str = StructAtIndex 1 Str.81;
+        let Str.297 : [C {U64, U8}, C Str] = TagId(1) Str.298;
+        ret Str.297;
     else
-        let Str.291 : U8 = StructAtIndex 3 Str.80;
-        let Str.292 : U64 = StructAtIndex 0 Str.80;
-        let #Derived_gen.58 : Str = StructAtIndex 1 Str.80;
+        let Str.294 : U8 = StructAtIndex 3 Str.81;
+        let Str.295 : U64 = StructAtIndex 0 Str.81;
+        let #Derived_gen.58 : Str = StructAtIndex 1 Str.81;
         dec #Derived_gen.58;
-        let Str.290 : {U64, U8} = Struct {Str.292, Str.291};
-        let Str.289 : [C {U64, U8}, C Str] = TagId(0) Str.290;
-        ret Str.289;
+        let Str.293 : {U64, U8} = Struct {Str.295, Str.294};
+        let Str.292 : [C {U64, U8}, C Str] = TagId(0) Str.293;
+        ret Str.292;
 
 procedure TotallyNotJson.100 (TotallyNotJson.850):
     let TotallyNotJson.1830 : Str = "a";

diff --git a/crates/compiler/test_mono/generated/encode_derived_record_one_field_string.txt b/crates/compiler/test_mono/generated/encode_derived_record_one_field_string.txt
@@ -288,38 +288,38 @@ procedure Num.94 (#Attr.2, #Attr.3):
     ret Num.301;
 
 procedure Str.12 (#Attr.2):
-    let Str.300 : List U8 = lowlevel StrToUtf8 #Attr.2;
-    ret Str.300;
+    let Str.303 : List U8 = lowlevel StrToUtf8 #Attr.2;
+    ret Str.303;
 
 procedure Str.4 (#Attr.2, #Attr.3):
-    let Str.303 : Str = lowlevel StrJoinWith #Attr.2 #Attr.3;
-    ret Str.303;
+    let Str.306 : Str = lowlevel StrJoinWith #Attr.2 #Attr.3;
+    ret Str.306;
 
 procedure Str.48 (#Attr.2, #Attr.3, #Attr.4):
-    let Str.298 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8Range #Attr.2 #Attr.3 #Attr.4;
-    ret Str.298;
+    let Str.301 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8Range #Attr.2 #Attr.3 #Attr.4;
+    ret Str.301;
 
 procedure Str.55 (#Attr.2):
-    let Str.306 : List Str = lowlevel StrGraphemes #Attr.2;
-    ret Str.306;
-
-procedure Str.9 (Str.79):
-    let Str.296 : U64 = 0i64;
-    let Str.297 : U64 = CallByName List.6 Str.79;
-    let Str.80 : {U64, Str, Int1, U8} = CallByName Str.48 Str.79 Str.296 Str.297;
-    let Str.293 : Int1 = StructAtIndex 2 Str.80;
-    if Str.293 then
-        let Str.295 : Str = StructAtIndex 1 Str.80;
-        let Str.294 : [C {U64, U8}, C Str] = TagId(1) Str.295;
-        ret Str.294;
+    let Str.309 : List Str = lowlevel StrGraphemes #Attr.2;
+    ret Str.309;
+
+procedure Str.9 (Str.80):
+    let Str.299 : U64 = 0i64;
+    let Str.300 : U64 = CallByName List.6 Str.80;
+    let Str.81 : {U64, Str, Int1, U8} = CallByName Str.48 Str.80 Str.299 Str.300;
+    let Str.296 : Int1 = StructAtIndex 2 Str.81;
+    if Str.296 then
+        let Str.298 : Str = StructAtIndex 1 Str.81;
+        let Str.297 : [C {U64, U8}, C Str] = TagId(1) Str.298;
+        ret Str.297;
     else
-        let Str.291 : U8 = StructAtIndex 3 Str.80;
-        let Str.292 : U64 = StructAtIndex 0 Str.80;
-        let #Derived_gen.36 : Str = StructAtIndex 1 Str.80;
+        let Str.294 : U8 = StructAtIndex 3 Str.81;
+        let Str.295 : U64 = StructAtIndex 0 Str.81;
+        let #Derived_gen.36 : Str = StructAtIndex 1 Str.81;
         dec #Derived_gen.36;
-        let Str.290 : {U64, U8} = Struct {Str.292, Str.291};
-        let Str.289 : [C {U64, U8}, C Str] = TagId(0) Str.290;
-        ret Str.289;
+        let Str.293 : {U64, U8} = Struct {Str.295, Str.294};
+        let Str.292 : [C {U64, U8}, C Str] = TagId(0) Str.293;
+        ret Str.292;
 
 procedure TotallyNotJson.100 (TotallyNotJson.850):
     let TotallyNotJson.1479 : Str = "a";

diff --git a/crates/compiler/test_mono/generated/encode_derived_record_two_field_strings.txt b/crates/compiler/test_mono/generated/encode_derived_record_two_field_strings.txt
@@ -295,38 +295,38 @@ procedure Num.94 (#Attr.2, #Attr.3):
     ret Num.301;
 
 procedure Str.12 (#Attr.2):
-    let Str.300 : List U8 = lowlevel StrToUtf8 #Attr.2;
-    ret Str.300;
+    let Str.303 : List U8 = lowlevel StrToUtf8 #Attr.2;
+    ret Str.303;
 
 procedure Str.4 (#Attr.2, #Attr.3):
-    let Str.303 : Str = lowlevel StrJoinWith #Attr.2 #Attr.3;
-    ret Str.303;
+    let Str.306 : Str = lowlevel StrJoinWith #Attr.2 #Attr.3;
+    ret Str.306;
 
 procedure Str.48 (#Attr.2, #Attr.3, #Attr.4):
-    let Str.298 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8Range #Attr.2 #Attr.3 #Attr.4;
-    ret Str.298;
+    let Str.301 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8Range #Attr.2 #Attr.3 #Attr.4;
+    ret Str.301;
 
 procedure Str.55 (#Attr.2):
-    let Str.306 : List Str = lowlevel StrGraphemes #Attr.2;
-    ret Str.306;
-
-procedure Str.9 (Str.79):
-    let Str.296 : U64 = 0i64;
-    let Str.297 : U64 = CallByName List.6 Str.79;
-    let Str.80 : {U64, Str, Int1, U8} = CallByName Str.48 Str.79 Str.296 Str.297;
-    let Str.293 : Int1 = StructAtIndex 2 Str.80;
-    if Str.293 then
-        let Str.295 : Str = StructAtIndex 1 Str.80;
-        let Str.294 : [C {U64, U8}, C Str] = TagId(1) Str.295;
-        ret Str.294;
+    let Str.309 : List Str = lowlevel StrGraphemes #Attr.2;
+    ret Str.309;
+
+procedure Str.9 (Str.80):
+    let Str.299 : U64 = 0i64;
+    let Str.300 : U64 = CallByName List.6 Str.80;
+    let Str.81 : {U64, Str, Int1, U8} = CallByName Str.48 Str.80 Str.299 Str.300;
+    let Str.296 : Int1 = StructAtIndex 2 Str.81;
+    if Str.296 then
+        let Str.298 : Str = StructAtIndex 1 Str.81;
+        let Str.297 : [C {U64, U8}, C Str] = TagId(1) Str.298;
+        ret Str.297;
     else
-        let Str.291 : U8 = StructAtIndex 3 Str.80;
-        let Str.292 : U64 = StructAtIndex 0 Str.80;
-        let #Derived_gen.40 : Str = StructAtIndex 1 Str.80;
+        let Str.294 : U8 = StructAtIndex 3 Str.81;
+        let Str.295 : U64 = StructAtIndex 0 Str.81;
+        let #Derived_gen.40 : Str = StructAtIndex 1 Str.81;
         dec #Derived_gen.40;
-        let Str.290 : {U64, U8} = Struct {Str.292, Str.291};
-        let Str.289 : [C {U64, U8}, C Str] = TagId(0) Str.290;
-        ret Str.289;
+        let Str.293 : {U64, U8} = Struct {Str.295, Str.294};
+        let Str.292 : [C {U64, U8}, C Str] = TagId(0) Str.293;
+        ret Str.292;
 
 procedure TotallyNotJson.100 (TotallyNotJson.850):
     let TotallyNotJson.1479 : Str = "a";

diff --git a/crates/compiler/test_mono/generated/encode_derived_string.txt b/crates/compiler/test_mono/generated/encode_derived_string.txt
@@ -162,30 +162,30 @@ procedure Num.94 (#Attr.2, #Attr.3):
     ret Num.293;
 
 procedure Str.12 (#Attr.2):
-    let Str.299 : List U8 = lowlevel StrToUtf8 #Attr.2;
-    ret Str.299;
+    let Str.302 : List U8 = lowlevel StrToUtf8 #Attr.2;
+    ret Str.302;
 
 procedure Str.48 (#Attr.2, #Attr.3, #Attr.4):
-    let Str.298 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8Range #Attr.2 #Attr.3 #Attr.4;
-    ret Str.298;
-
-procedure Str.9 (Str.79):
-    let Str.296 : U64 = 0i64;
-    let Str.297 : U64 = CallByName List.6 Str.79;
-    let Str.80 : {U64, Str, Int1, U8} = CallByName Str.48 Str.79 Str.296 Str.297;
-    let Str.293 : Int1 = StructAtIndex 2 Str.80;
-    if Str.293 then
-        let Str.295 : Str = StructAtIndex 1 Str.80;
-        let Str.294 : [C {U64, U8}, C Str] = TagId(1) Str.295;
-        ret Str.294;
+    let Str.301 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8Range #Attr.2 #Attr.3 #Attr.4;
+    ret Str.301;
+
+procedure Str.9 (Str.80):
+    let Str.299 : U64 = 0i64;
+    let Str.300 : U64 = CallByName List.6 Str.80;
+    let Str.81 : {U64, Str, Int1, U8} = CallByName Str.48 Str.80 Str.299 Str.300;
+    let Str.296 : Int1 = StructAtIndex 2 Str.81;
+    if Str.296 then
+        let Str.298 : Str = StructAtIndex 1 Str.81;
+        let Str.297 : [C {U64, U8}, C Str] = TagId(1) Str.298;
+        ret Str.297;
     else
-        let Str.291 : U8 = StructAtIndex 3 Str.80;
-        let Str.292 : U64 = StructAtIndex 0 Str.80;
-        let #Derived_gen.13 : Str = StructAtIndex 1 Str.80;
+        let Str.294 : U8 = StructAtIndex 3 Str.81;
+        let Str.295 : U64 = StructAtIndex 0 Str.81;
+        let #Derived_gen.13 : Str = StructAtIndex 1 Str.81;
         dec #Derived_gen.13;
-        let Str.290 : {U64, U8} = Struct {Str.292, Str.291};
-        let Str.289 : [C {U64, U8}, C Str] = TagId(0) Str.290;
-        ret Str.289;
+        let Str.293 : {U64, U8} = Struct {Str.295, Str.294};
+        let Str.292 : [C {U64, U8}, C Str] = TagId(0) Str.293;
+        ret Str.292;
 
 procedure TotallyNotJson.182 (TotallyNotJson.183, TotallyNotJson.1175, TotallyNotJson.181):
     let TotallyNotJson.1178 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.181;

diff --git a/crates/compiler/test_mono/generated/encode_derived_tag_one_field_string.txt b/crates/compiler/test_mono/generated/encode_derived_tag_one_field_string.txt
@@ -243,30 +243,30 @@ procedure Num.94 (#Attr.2, #Attr.3):
     ret Num.303;
 
 procedure Str.12 (#Attr.2):
-    let Str.300 : List U8 = lowlevel StrToUtf8 #Attr.2;
-    ret Str.300;
+    let Str.303 : List U8 = lowlevel StrToUtf8 #Attr.2;
+    ret Str.303;
 
 procedure Str.48 (#Attr.2, #Attr.3, #Attr.4):
-    let Str.298 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8Range #Attr.2 #Attr.3 #Attr.4;
-    ret Str.298;
-
-procedure Str.9 (Str.79):
-    let Str.296 : U64 = 0i64;
-    let Str.297 : U64 = CallByName List.6 Str.79;
-    let Str.80 : {U64, Str, Int1, U8} = CallByName Str.48 Str.79 Str.296 Str.297;
-    let Str.293 : Int1 = StructAtIndex 2 Str.80;
-    if Str.293 then
-        let Str.295 : Str = StructAtIndex 1 Str.80;
-        let Str.294 : [C {U64, U8}, C Str] = TagId(1) Str.295;
-        ret Str.294;
+    let Str.301 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8Range #Attr.2 #Attr.3 #Attr.4;
+    ret Str.301;
+
+procedure Str.9 (Str.80):
+    let Str.299 : U64 = 0i64;
+    let Str.300 : U64 = CallByName List.6 Str.80;
+    let Str.81 : {U64, Str, Int1, U8} = CallByName Str.48 Str.80 Str.299 Str.300;
+    let Str.296 : Int1 = StructAtIndex 2 Str.81;
+    if Str.296 then
+        let Str.298 : Str = StructAtIndex 1 Str.81;
+        let Str.297 : [C {U64, U8}, C Str] = TagId(1) Str.298;
+        ret Str.297;
     else
-        let Str.291 : U8 = StructAtIndex 3 Str.80;
-        let Str.292 : U64 = StructAtIndex 0 Str.80;
-        let #Derived_gen.34 : Str = StructAtIndex 1 Str.80;
+        let Str.294 : U8 = StructAtIndex 3 Str.81;
+        let Str.295 : U64 = StructAtIndex 0 Str.81;
+        let #Derived_gen.34 : Str = StructAtIndex 1 Str.81;
         dec #Derived_gen.34;
-        let Str.290 : {U64, U8} = Struct {Str.292, Str.291};
-        let Str.289 : [C {U64, U8}, C Str] = TagId(0) Str.290;
-        ret Str.289;
+        let Str.293 : {U64, U8} = Struct {Str.295, Str.294};
+        let Str.292 : [C {U64, U8}, C Str] = TagId(0) Str.293;
+        ret Str.292;
 
 procedure TotallyNotJson.182 (TotallyNotJson.183, TotallyNotJson.1216, TotallyNotJson.181):
     let TotallyNotJson.1219 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.181;

diff --git a/crates/compiler/test_mono/generated/encode_derived_tag_two_payloads_string.txt b/crates/compiler/test_mono/generated/encode_derived_tag_two_payloads_string.txt
@@ -246,30 +246,30 @@ procedure Num.94 (#Attr.2, #Attr.3):
     ret Num.303;
 
 procedure Str.12 (#Attr.2):
-    let Str.300 : List U8 = lowlevel StrToUtf8 #Attr.2;
-    ret Str.300;
+    let Str.303 : List U8 = lowlevel StrToUtf8 #Attr.2;
+    ret Str.303;
 
 procedure Str.48 (#Attr.2, #Attr.3, #Attr.4):
-    let Str.298 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8Range #Attr.2 #Attr.3 #Attr.4;
-    ret Str.298;
-
-procedure Str.9 (Str.79):
-    let Str.296 : U64 = 0i64;
-    let Str.297 : U64 = CallByName List.6 Str.79;
-    let Str.80 : {U64, Str, Int1, U8} = CallByName Str.48 Str.79 Str.296 Str.297;
-    let Str.293 : Int1 = StructAtIndex 2 Str.80;
-    if Str.293 then
-        let Str.295 : Str = StructAtIndex 1 Str.80;
-        let Str.294 : [C {U64, U8}, C Str] = TagId(1) Str.295;
-        ret Str.294;
+    let Str.301 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8Range #Attr.2 #Attr.3 #Attr.4;
+    ret Str.301;
+
+procedure Str.9 (Str.80):
+    let Str.299 : U64 = 0i64;
+    let Str.300 : U64 = CallByName List.6 Str.80;
+    let Str.81 : {U64, Str, Int1, U8} = CallByName Str.48 Str.80 Str.299 Str.300;
+    let Str.296 : Int1 = StructAtIndex 2 Str.81;
+    if Str.296 then
+        let Str.298 : Str = StructAtIndex 1 Str.81;
+        let Str.297 : [C {U64, U8}, C Str] = TagId(1) Str.298;
+        ret Str.297;
     else
-        let Str.291 : U8 = StructAtIndex 3 Str.80;
-        let Str.292 : U64 = StructAtIndex 0 Str.80;
-        let #Derived_gen.35 : Str = StructAtIndex 1 Str.80;
+        let Str.294 : U8 = StructAtIndex 3 Str.81;
+        let Str.295 : U64 = StructAtIndex 0 Str.81;
+        let #Derived_gen.35 : Str = StructAtIndex 1 Str.81;
         dec #Derived_gen.35;
-        let Str.290 : {U64, U8} = Struct {Str.292, Str.291};
-        let Str.289 : [C {U64, U8}, C Str] = TagId(0) Str.290;
-        ret Str.289;
+        let Str.293 : {U64, U8} = Struct {Str.295, Str.294};
+        let Str.292 : [C {U64, U8}, C Str] = TagId(0) Str.293;
+        ret Str.292;
 
 procedure TotallyNotJson.182 (TotallyNotJson.183, TotallyNotJson.1216, TotallyNotJson.181):
     let TotallyNotJson.1219 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.181;

diff --git a/crates/compiler/test_mono/generated/issue_2583_specialize_errors_behind_unified_branches.txt b/crates/compiler/test_mono/generated/issue_2583_specialize_errors_behind_unified_branches.txt
@@ -47,28 +47,28 @@ procedure Num.22 (#Attr.2, #Attr.3):
     let Num.291 : Int1 = lowlevel NumLt #Attr.2 #Attr.3;
     ret Num.291;
 
-procedure Str.27 (Str.99):
-    let Str.289 : [C Int1, C I64] = CallByName Str.72 Str.99;
-    ret Str.289;
+procedure Str.27 (Str.100):
+    let Str.292 : [C Int1, C I64] = CallByName Str.73 Str.100;
+    ret Str.292;
 
 procedure Str.47 (#Attr.2):
-    let Str.297 : {I64, U8} = lowlevel StrToNum #Attr.2;
-    ret Str.297;
+    let Str.300 : {I64, U8} = lowlevel StrToNum #Attr.2;
+    ret Str.300;
 
-procedure Str.72 (Str.235):
-    let Str.236 : {I64, U8} = CallByName Str.47 Str.235;
-    dec Str.235;
-    let Str.295 : U8 = StructAtIndex 1 Str.236;
-    let Str.296 : U8 = 0i64;
-    let Str.292 : Int1 = CallByName Bool.11 Str.295 Str.296;
-    if Str.292 then
-        let Str.294 : I64 = StructAtIndex 0 Str.236;
-        let Str.293 : [C Int1, C I64] = TagId(1) Str.294;
-        ret Str.293;
+procedure Str.73 (Str.236):
+    let Str.237 : {I64, U8} = CallByName Str.47 Str.236;
+    dec Str.236;
+    let Str.298 : U8 = StructAtIndex 1 Str.237;
+    let Str.299 : U8 = 0i64;
+    let Str.295 : Int1 = CallByName Bool.11 Str.298 Str.299;
+    if Str.295 then
+        let Str.297 : I64 = StructAtIndex 0 Str.237;
+        let Str.296 : [C Int1, C I64] = TagId(1) Str.297;
+        ret Str.296;
     else
-        let Str.291 : Int1 = false;
-        let Str.290 : [C Int1, C I64] = TagId(0) Str.291;
-        ret Str.290;
+        let Str.294 : Int1 = false;
+        let Str.293 : [C Int1, C I64] = TagId(0) Str.294;
+        ret Str.293;
 
 procedure Test.0 ():
     let Test.3 : Int1 = CallByName Bool.2;