From ebce3753f029c39fa6aed1c75c7e6d8afd63ec97 Mon Sep 17 00:00:00 2001 From: shua Date: Sat, 7 Dec 2024 22:52:43 +0100 Subject: [PATCH] update mono tests --- .../encode_derived_nested_record_string.txt | 28 +++++++++---------- ...encode_derived_record_one_field_string.txt | 28 +++++++++---------- ...ncode_derived_record_two_field_strings.txt | 28 +++++++++---------- .../generated/encode_derived_string.txt | 28 +++++++++---------- .../encode_derived_tag_one_field_string.txt | 28 +++++++++---------- ...encode_derived_tag_two_payloads_string.txt | 28 +++++++++---------- 6 files changed, 84 insertions(+), 84 deletions(-) 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 index cbe4549671c..b5e7db27d9e 100644 --- a/crates/compiler/test_mono/generated/encode_derived_nested_record_string.txt +++ b/crates/compiler/test_mono/generated/encode_derived_nested_record_string.txt @@ -164,31 +164,31 @@ procedure Num.96 (#Attr.2): ret Num.285; procedure Str.12 (#Attr.2): - let Str.258 : List U8 = lowlevel StrToUtf8 #Attr.2; - ret Str.258; + let Str.259 : List U8 = lowlevel StrToUtf8 #Attr.2; + ret Str.259; procedure Str.36 (#Attr.2): - let Str.259 : U64 = lowlevel StrCountUtf8Bytes #Attr.2; - ret Str.259; + let Str.260 : U64 = lowlevel StrCountUtf8Bytes #Attr.2; + ret Str.260; procedure Str.43 (#Attr.2): - let Str.253 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8 #Attr.2; - ret Str.253; + let Str.254 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8 #Attr.2; + ret Str.254; procedure Str.9 (Str.73): let Str.74 : {U64, Str, Int1, U8} = CallByName Str.43 Str.73; - let Str.250 : Int1 = StructAtIndex 2 Str.74; - if Str.250 then - let Str.252 : Str = StructAtIndex 1 Str.74; - let Str.251 : [C {U64, U8}, C Str] = TagId(1) Str.252; - ret Str.251; + let Str.251 : Int1 = StructAtIndex 2 Str.74; + if Str.251 then + let Str.253 : Str = StructAtIndex 1 Str.74; + let Str.252 : [C {U64, U8}, C Str] = TagId(1) Str.253; + ret Str.252; else - let Str.248 : U8 = StructAtIndex 3 Str.74; let Str.249 : U64 = StructAtIndex 0 Str.74; + let Str.250 : U8 = StructAtIndex 3 Str.74; let #Derived_gen.45 : Str = StructAtIndex 1 Str.74; dec #Derived_gen.45; - let Str.247 : {U64, U8} = Struct {Str.249, Str.248}; - let Str.246 : [C {U64, U8}, C Str] = TagId(0) Str.247; + let Str.248 : {U64, U8} = Struct {Str.249, Str.250}; + let Str.246 : [C {U64, U8}, C Str] = TagId(0) Str.248; ret Str.246; procedure Test.20 (Test.56): 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 index f97f1c8bdc8..e465b76c498 100644 --- 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 @@ -105,31 +105,31 @@ procedure Num.96 (#Attr.2): ret Num.281; procedure Str.12 (#Attr.2): - let Str.255 : List U8 = lowlevel StrToUtf8 #Attr.2; - ret Str.255; + let Str.256 : List U8 = lowlevel StrToUtf8 #Attr.2; + ret Str.256; procedure Str.36 (#Attr.2): - let Str.256 : U64 = lowlevel StrCountUtf8Bytes #Attr.2; - ret Str.256; + let Str.257 : U64 = lowlevel StrCountUtf8Bytes #Attr.2; + ret Str.257; procedure Str.43 (#Attr.2): - let Str.253 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8 #Attr.2; - ret Str.253; + let Str.254 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8 #Attr.2; + ret Str.254; procedure Str.9 (Str.73): let Str.74 : {U64, Str, Int1, U8} = CallByName Str.43 Str.73; - let Str.250 : Int1 = StructAtIndex 2 Str.74; - if Str.250 then - let Str.252 : Str = StructAtIndex 1 Str.74; - let Str.251 : [C {U64, U8}, C Str] = TagId(1) Str.252; - ret Str.251; + let Str.251 : Int1 = StructAtIndex 2 Str.74; + if Str.251 then + let Str.253 : Str = StructAtIndex 1 Str.74; + let Str.252 : [C {U64, U8}, C Str] = TagId(1) Str.253; + ret Str.252; else - let Str.248 : U8 = StructAtIndex 3 Str.74; let Str.249 : U64 = StructAtIndex 0 Str.74; + let Str.250 : U8 = StructAtIndex 3 Str.74; let #Derived_gen.24 : Str = StructAtIndex 1 Str.74; dec #Derived_gen.24; - let Str.247 : {U64, U8} = Struct {Str.249, Str.248}; - let Str.246 : [C {U64, U8}, C Str] = TagId(0) Str.247; + let Str.248 : {U64, U8} = Struct {Str.249, Str.250}; + let Str.246 : [C {U64, U8}, C Str] = TagId(0) Str.248; ret Str.246; procedure Test.20 (Test.56): 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 index 311b88e7b25..e0b52ea113d 100644 --- 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 @@ -112,31 +112,31 @@ procedure Num.96 (#Attr.2): ret Num.281; procedure Str.12 (#Attr.2): - let Str.255 : List U8 = lowlevel StrToUtf8 #Attr.2; - ret Str.255; + let Str.256 : List U8 = lowlevel StrToUtf8 #Attr.2; + ret Str.256; procedure Str.36 (#Attr.2): - let Str.256 : U64 = lowlevel StrCountUtf8Bytes #Attr.2; - ret Str.256; + let Str.257 : U64 = lowlevel StrCountUtf8Bytes #Attr.2; + ret Str.257; procedure Str.43 (#Attr.2): - let Str.253 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8 #Attr.2; - ret Str.253; + let Str.254 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8 #Attr.2; + ret Str.254; procedure Str.9 (Str.73): let Str.74 : {U64, Str, Int1, U8} = CallByName Str.43 Str.73; - let Str.250 : Int1 = StructAtIndex 2 Str.74; - if Str.250 then - let Str.252 : Str = StructAtIndex 1 Str.74; - let Str.251 : [C {U64, U8}, C Str] = TagId(1) Str.252; - ret Str.251; + let Str.251 : Int1 = StructAtIndex 2 Str.74; + if Str.251 then + let Str.253 : Str = StructAtIndex 1 Str.74; + let Str.252 : [C {U64, U8}, C Str] = TagId(1) Str.253; + ret Str.252; else - let Str.248 : U8 = StructAtIndex 3 Str.74; let Str.249 : U64 = StructAtIndex 0 Str.74; + let Str.250 : U8 = StructAtIndex 3 Str.74; let #Derived_gen.28 : Str = StructAtIndex 1 Str.74; dec #Derived_gen.28; - let Str.247 : {U64, U8} = Struct {Str.249, Str.248}; - let Str.246 : [C {U64, U8}, C Str] = TagId(0) Str.247; + let Str.248 : {U64, U8} = Struct {Str.249, Str.250}; + let Str.246 : [C {U64, U8}, C Str] = TagId(0) Str.248; ret Str.246; procedure Test.20 (Test.56): diff --git a/crates/compiler/test_mono/generated/encode_derived_string.txt b/crates/compiler/test_mono/generated/encode_derived_string.txt index 787973e3a10..2f4a168b91b 100644 --- a/crates/compiler/test_mono/generated/encode_derived_string.txt +++ b/crates/compiler/test_mono/generated/encode_derived_string.txt @@ -38,31 +38,31 @@ procedure Num.96 (#Attr.2): ret Num.281; procedure Str.12 (#Attr.2): - let Str.255 : List U8 = lowlevel StrToUtf8 #Attr.2; - ret Str.255; + let Str.256 : List U8 = lowlevel StrToUtf8 #Attr.2; + ret Str.256; procedure Str.36 (#Attr.2): - let Str.256 : U64 = lowlevel StrCountUtf8Bytes #Attr.2; - ret Str.256; + let Str.257 : U64 = lowlevel StrCountUtf8Bytes #Attr.2; + ret Str.257; procedure Str.43 (#Attr.2): - let Str.253 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8 #Attr.2; - ret Str.253; + let Str.254 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8 #Attr.2; + ret Str.254; procedure Str.9 (Str.73): let Str.74 : {U64, Str, Int1, U8} = CallByName Str.43 Str.73; - let Str.250 : Int1 = StructAtIndex 2 Str.74; - if Str.250 then - let Str.252 : Str = StructAtIndex 1 Str.74; - let Str.251 : [C {U64, U8}, C Str] = TagId(1) Str.252; - ret Str.251; + let Str.251 : Int1 = StructAtIndex 2 Str.74; + if Str.251 then + let Str.253 : Str = StructAtIndex 1 Str.74; + let Str.252 : [C {U64, U8}, C Str] = TagId(1) Str.253; + ret Str.252; else - let Str.248 : U8 = StructAtIndex 3 Str.74; let Str.249 : U64 = StructAtIndex 0 Str.74; + let Str.250 : U8 = StructAtIndex 3 Str.74; let #Derived_gen.3 : Str = StructAtIndex 1 Str.74; dec #Derived_gen.3; - let Str.247 : {U64, U8} = Struct {Str.249, Str.248}; - let Str.246 : [C {U64, U8}, C Str] = TagId(0) Str.247; + let Str.248 : {U64, U8} = Struct {Str.249, Str.250}; + let Str.246 : [C {U64, U8}, C Str] = TagId(0) Str.248; ret Str.246; procedure Test.20 (Test.56): 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 index eaef60877aa..943f560050e 100644 --- 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 @@ -110,31 +110,31 @@ procedure Num.96 (#Attr.2): ret Num.281; procedure Str.12 (#Attr.2): - let Str.255 : List U8 = lowlevel StrToUtf8 #Attr.2; - ret Str.255; + let Str.256 : List U8 = lowlevel StrToUtf8 #Attr.2; + ret Str.256; procedure Str.36 (#Attr.2): - let Str.256 : U64 = lowlevel StrCountUtf8Bytes #Attr.2; - ret Str.256; + let Str.257 : U64 = lowlevel StrCountUtf8Bytes #Attr.2; + ret Str.257; procedure Str.43 (#Attr.2): - let Str.253 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8 #Attr.2; - ret Str.253; + let Str.254 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8 #Attr.2; + ret Str.254; procedure Str.9 (Str.73): let Str.74 : {U64, Str, Int1, U8} = CallByName Str.43 Str.73; - let Str.250 : Int1 = StructAtIndex 2 Str.74; - if Str.250 then - let Str.252 : Str = StructAtIndex 1 Str.74; - let Str.251 : [C {U64, U8}, C Str] = TagId(1) Str.252; - ret Str.251; + let Str.251 : Int1 = StructAtIndex 2 Str.74; + if Str.251 then + let Str.253 : Str = StructAtIndex 1 Str.74; + let Str.252 : [C {U64, U8}, C Str] = TagId(1) Str.253; + ret Str.252; else - let Str.248 : U8 = StructAtIndex 3 Str.74; let Str.249 : U64 = StructAtIndex 0 Str.74; + let Str.250 : U8 = StructAtIndex 3 Str.74; let #Derived_gen.27 : Str = StructAtIndex 1 Str.74; dec #Derived_gen.27; - let Str.247 : {U64, U8} = Struct {Str.249, Str.248}; - let Str.246 : [C {U64, U8}, C Str] = TagId(0) Str.247; + let Str.248 : {U64, U8} = Struct {Str.249, Str.250}; + let Str.246 : [C {U64, U8}, C Str] = TagId(0) Str.248; ret Str.246; procedure Test.20 (Test.56): 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 index e08ecc31d55..c4b39a1709e 100644 --- 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 @@ -113,31 +113,31 @@ procedure Num.96 (#Attr.2): ret Num.281; procedure Str.12 (#Attr.2): - let Str.255 : List U8 = lowlevel StrToUtf8 #Attr.2; - ret Str.255; + let Str.256 : List U8 = lowlevel StrToUtf8 #Attr.2; + ret Str.256; procedure Str.36 (#Attr.2): - let Str.256 : U64 = lowlevel StrCountUtf8Bytes #Attr.2; - ret Str.256; + let Str.257 : U64 = lowlevel StrCountUtf8Bytes #Attr.2; + ret Str.257; procedure Str.43 (#Attr.2): - let Str.253 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8 #Attr.2; - ret Str.253; + let Str.254 : {U64, Str, Int1, U8} = lowlevel StrFromUtf8 #Attr.2; + ret Str.254; procedure Str.9 (Str.73): let Str.74 : {U64, Str, Int1, U8} = CallByName Str.43 Str.73; - let Str.250 : Int1 = StructAtIndex 2 Str.74; - if Str.250 then - let Str.252 : Str = StructAtIndex 1 Str.74; - let Str.251 : [C {U64, U8}, C Str] = TagId(1) Str.252; - ret Str.251; + let Str.251 : Int1 = StructAtIndex 2 Str.74; + if Str.251 then + let Str.253 : Str = StructAtIndex 1 Str.74; + let Str.252 : [C {U64, U8}, C Str] = TagId(1) Str.253; + ret Str.252; else - let Str.248 : U8 = StructAtIndex 3 Str.74; let Str.249 : U64 = StructAtIndex 0 Str.74; + let Str.250 : U8 = StructAtIndex 3 Str.74; let #Derived_gen.28 : Str = StructAtIndex 1 Str.74; dec #Derived_gen.28; - let Str.247 : {U64, U8} = Struct {Str.249, Str.248}; - let Str.246 : [C {U64, U8}, C Str] = TagId(0) Str.247; + let Str.248 : {U64, U8} = Struct {Str.249, Str.250}; + let Str.246 : [C {U64, U8}, C Str] = TagId(0) Str.248; ret Str.246; procedure Test.20 (Test.56):