language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-11-01 13:34:15 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Merge remote-tracking branch 'remote/main' into suffixed-bang

Browse source
This commit is contained in:
Luke Boswell 2024-04-16 06:42:31 +10:00
commit c5cba98381
No known key found for this signature in database
GPG key ID: F6DB3C9DB47377B0
54 changed files with 3568 additions and 3049 deletions
Download patch file Download diff file Expand all files Collapse all files

6
.github/workflows/basic_cli_build_release.yml vendored
View file

@ -11,7 +11,7 @@ env:
# use .tar.gz for quick testing # use .tar.gz for quick testing
ARCHIVE_FORMAT: .tar.br ARCHIVE_FORMAT: .tar.br
# Make a new basic-cli git tag and set it here before starting this workflow # Make a new basic-cli git tag and set it here before starting this workflow
RELEASE_TAG: 0.7.1 RELEASE_TAG: 0.9.0
jobs: jobs:
prepare: prepare:
@ -38,6 +38,10 @@ jobs:
- run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-linux_arm64-latest.tar.gz - run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-linux_arm64-latest.tar.gz
- run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-macos_x86_64-latest.tar.gz - run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-macos_x86_64-latest.tar.gz
- run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-macos_apple_silicon-latest.tar.gz - run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-macos_apple_silicon-latest.tar.gz
#- run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-linux_x86_64-TESTING.tar.gz
#- run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-linux_arm64-TESTING.tar.gz
#- run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-macos_x86_64-TESTING.tar.gz
#- run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-macos_apple_silicon-TESTING.tar.gz
- name: Save roc_nightly archives - name: Save roc_nightly archives
uses: actions/upload-artifact@v4 uses: actions/upload-artifact@v4

8
.github/workflows/basic_webserver_build_release.yml vendored
View file

@ -1,5 +1,5 @@
on: on:
# pull_request: #pull_request:
workflow_dispatch: workflow_dispatch:
# this cancels workflows currently in progress if you start a new one # this cancels workflows currently in progress if you start a new one
@ -18,10 +18,16 @@ jobs:
steps: steps:
- uses: actions/checkout@v4 - uses: actions/checkout@v4
# get latest nightly releases
- run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-linux_x86_64-latest.tar.gz - run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-linux_x86_64-latest.tar.gz
- run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-linux_arm64-latest.tar.gz - run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-linux_arm64-latest.tar.gz
- run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-macos_x86_64-latest.tar.gz - run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-macos_x86_64-latest.tar.gz
- run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-macos_apple_silicon-latest.tar.gz - run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-macos_apple_silicon-latest.tar.gz
#- run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-linux_x86_64-TESTING.tar.gz
#- run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-linux_arm64-TESTING.tar.gz
#- run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-macos_x86_64-TESTING.tar.gz
#- run: curl -fOL https://github.com/roc-lang/roc/releases/download/nightly/roc_nightly-macos_apple_silicon-TESTING.tar.gz
- name: Save roc_nightly archives - name: Save roc_nightly archives
uses: actions/upload-artifact@v4 uses: actions/upload-artifact@v4

2
.github/workflows/nightly_linux_arm64.yml vendored
View file

@ -1,5 +1,5 @@
on: on:
# pull_request: #pull_request:
workflow_dispatch: workflow_dispatch:
schedule: schedule:
- cron: '0 9 * * *' - cron: '0 9 * * *'

2
.github/workflows/nightly_linux_x86_64.yml vendored
View file

@ -1,5 +1,5 @@
on: on:
# pull_request: #pull_request:
workflow_dispatch: workflow_dispatch:
schedule: schedule:
- cron: '0 9 * * *' - cron: '0 9 * * *'

2
.github/workflows/nightly_macos_apple_silicon.yml vendored
View file

@ -1,5 +1,5 @@
on: on:
# pull_request: #pull_request:
workflow_dispatch: workflow_dispatch:
schedule: schedule:
- cron: '0 9 * * *' - cron: '0 9 * * *'

2
.github/workflows/nightly_macos_x86_64.yml vendored
View file

@ -1,5 +1,5 @@
on: on:
# pull_request: #pull_request:
workflow_dispatch: workflow_dispatch:
schedule: schedule:
- cron: "0 9 * * *" # 9=9am utc+0 - cron: "0 9 * * *" # 9=9am utc+0

2
.github/workflows/nightly_old_linux_arm64.yml vendored
View file

@ -1,5 +1,5 @@
on: on:
# pull_request: #pull_request:
workflow_dispatch: workflow_dispatch:
schedule: schedule:
- cron: '0 9 * * *' - cron: '0 9 * * *'

2
.github/workflows/nightly_old_linux_x86_64.yml vendored
View file

@ -1,5 +1,5 @@
on: on:
# pull_request: #pull_request:
workflow_dispatch: workflow_dispatch:
schedule: schedule:
- cron: '0 9 * * *' - cron: '0 9 * * *'

19
Cargo.lock generated
View file

@ -40,9 +40,9 @@ dependencies = [
[[package]] [[package]]
name = "aligned" name = "aligned"
version = "0.4.1" version = "0.4.2"
source = "registry+https://github.com/rust-lang/crates.io-index" source = "registry+https://github.com/rust-lang/crates.io-index"
checksum = "80a21b9440a626c7fc8573a9e3d3a06b75c7c97754c2949bc7857b90353ca655" checksum = "377e4c0ba83e4431b10df45c1d4666f178ea9c552cac93e60c3a88bf32785923"
dependencies = [ dependencies = [
"as-slice", "as-slice",
] ]
@ -2745,7 +2745,7 @@ dependencies = [
"roc_solve", "roc_solve",
"roc_solve_problem", "roc_solve_problem",
"roc_target", "roc_target",
"roc_test_utils", "roc_test_utils_dir",
"roc_types", "roc_types",
"ven_pretty", "ven_pretty",
] ]
@ -2780,7 +2780,7 @@ dependencies = [
"roc_solve", "roc_solve",
"roc_solve_problem", "roc_solve_problem",
"roc_target", "roc_target",
"roc_test_utils", "roc_test_utils_dir",
"roc_tracing", "roc_tracing",
"roc_types", "roc_types",
"roc_unify", "roc_unify",
@ -3131,6 +3131,12 @@ name = "roc_test_utils"
version = "0.0.1" version = "0.0.1"
dependencies = [ dependencies = [
"pretty_assertions", "pretty_assertions",
]
[[package]]
name = "roc_test_utils_dir"
version = "0.0.1"
dependencies = [
"remove_dir_all 0.8.2", "remove_dir_all 0.8.2",
] ]
@ -3869,6 +3875,7 @@ dependencies = [
"roc_parse", "roc_parse",
"roc_region", "roc_region",
"roc_test_utils", "roc_test_utils",
"roc_test_utils_dir",
"walkdir", "walkdir",
] ]
@ -4088,9 +4095,9 @@ checksum = "b6bc1c9ce2b5135ac7f93c72918fc37feb872bdc6a5533a8b85eb4b86bfdae52"
[[package]] [[package]]
name = "tracing" name = "tracing"
version = "0.1.39" version = "0.1.40"
source = "registry+https://github.com/rust-lang/crates.io-index" source = "registry+https://github.com/rust-lang/crates.io-index"
checksum = "ee2ef2af84856a50c1d430afce2fdded0a4ec7eda868db86409b4543df0797f9" checksum = "c3523ab5a71916ccf420eebdf5521fcef02141234bbc0b8a49f2fdc4544364ef"
dependencies = [ dependencies = [
"pin-project-lite", "pin-project-lite",
"tracing-attributes", "tracing-attributes",

3
Cargo.toml
View file

@ -17,6 +17,7 @@ members = [
"crates/repl_expect", "crates/repl_expect",
"crates/roc_std", "crates/roc_std",
"crates/test_utils", "crates/test_utils",
"crates/test_utils_dir",
"crates/valgrind", "crates/valgrind",
"crates/tracing", "crates/tracing",
"crates/utils/*", "crates/utils/*",
@ -158,7 +159,7 @@ tar = "0.4.38"
target-lexicon = "0.12.6" target-lexicon = "0.12.6"
tempfile = "=3.2.0" tempfile = "=3.2.0"
threadpool = "1.8.1" threadpool = "1.8.1"
tracing = { version = "0.1.37", features = ["release_max_level_off"] } tracing = { version = "0.1.40", features = ["release_max_level_off"] }
tracing-appender = "0.2.2" tracing-appender = "0.2.2"
tracing-subscriber = { version = "0.3.16", features = ["env-filter"] } tracing-subscriber = { version = "0.3.16", features = ["env-filter"] }
unicode-segmentation = "1.10.1" unicode-segmentation = "1.10.1"

2
crates/cli/tests/cli_run.rs
View file

@ -948,7 +948,7 @@ mod cli_run {
This roc file can print its own source code. The source is: This roc file can print its own source code. The source is:
app "ingested-file" app "ingested-file"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [ imports [
pf.Stdout, pf.Stdout,
"ingested-file.roc" as ownCode : Str, "ingested-file.roc" as ownCode : Str,

2
crates/compiler/builtins/roc/Decode.roc
View file

@ -103,7 +103,7 @@ DecoderFormatting implements
## `Skip` if the field is not a part of the decoded record. ## `Skip` if the field is not a part of the decoded record.
## ##
## `finalizer` should produce the record value from the decoded `state`. ## `finalizer` should produce the record value from the decoded `state`.
record : state, (state, Str -> [Keep (Decoder state fmt), Skip]), (state -> Result val DecodeError) -> Decoder val fmt where fmt implements DecoderFormatting record : state, (state, Str -> [Keep (Decoder state fmt), Skip]), (state, fmt -> Result val DecodeError) -> Decoder val fmt where fmt implements DecoderFormatting
## `tuple state stepElem finalizer` decodes a tuple element-by-element. ## `tuple state stepElem finalizer` decodes a tuple element-by-element.
## ##

75
crates/compiler/builtins/roc/TotallyNotJson.roc
View file

@ -232,14 +232,20 @@ escapedByteToJson = \b ->
encodeList = \lst, encodeElem -> encodeList = \lst, encodeElem ->
Encode.custom \bytes, @Json {} -> Encode.custom \bytes, @Json {} ->
writeList = \{ buffer, elemsLeft }, elem -> writeList = \{ buffer, elemsLeft }, elem ->
bufferWithElem = appendWith buffer (encodeElem elem) (@Json {}) beforeBufferLen = buffer |> List.len
bufferWithSuffix =
if elemsLeft > 1 then
List.append bufferWithElem (Num.toU8 ',')
else
bufferWithElem
{ buffer: bufferWithSuffix, elemsLeft: elemsLeft - 1 } bufferWithElem = appendWith buffer (encodeElem elem) (@Json {})
# If our encoder returned [] we just skip the elem
if bufferWithElem |> List.len == beforeBufferLen then
{ buffer: bufferWithElem, elemsLeft: elemsLeft - 1 }
else
bufferWithSuffix =
if elemsLeft > 1 then
List.append bufferWithElem (Num.toU8 ',')
else
bufferWithElem
{ buffer: bufferWithSuffix, elemsLeft: elemsLeft - 1 }
head = List.append bytes (Num.toU8 '[') head = List.append bytes (Num.toU8 '[')
{ buffer: withList } = List.walk lst { buffer: head, elemsLeft: List.len lst } writeList { buffer: withList } = List.walk lst { buffer: head, elemsLeft: List.len lst } writeList
@ -249,21 +255,27 @@ encodeList = \lst, encodeElem ->
encodeRecord = \fields -> encodeRecord = \fields ->
Encode.custom \bytes, @Json {} -> Encode.custom \bytes, @Json {} ->
writeRecord = \{ buffer, fieldsLeft }, { key, value } -> writeRecord = \{ buffer, fieldsLeft }, { key, value } ->
fieldName = key
bufferWithKeyValue =
List.append buffer (Num.toU8 '"')
|> List.concat (Str.toUtf8 fieldName)
|> List.append (Num.toU8 '"')
|> List.append (Num.toU8 ':') # Note we need to encode using the json config here
|> appendWith value (@Json {})
bufferWithSuffix = fieldValue = [] |> appendWith value (json)
if fieldsLeft > 1 then # If our encoder returned [] we just skip the field
List.append bufferWithKeyValue (Num.toU8 ',') if fieldValue == [] then
else { buffer, fieldsLeft: fieldsLeft - 1 }
bufferWithKeyValue else
fieldName = key
bufferWithKeyValue =
List.append buffer (Num.toU8 '"')
|> List.concat (Str.toUtf8 fieldName)
|> List.append (Num.toU8 '"')
|> List.append (Num.toU8 ':') # Note we need to encode using the json config here
|> List.concat fieldValue
{ buffer: bufferWithSuffix, fieldsLeft: fieldsLeft - 1 } bufferWithSuffix =
if fieldsLeft > 1 then
List.append bufferWithKeyValue (Num.toU8 ',')
else
bufferWithKeyValue
{ buffer: bufferWithSuffix, fieldsLeft: fieldsLeft - 1 }
bytesHead = List.append bytes (Num.toU8 '{') bytesHead = List.append bytes (Num.toU8 '{')
{ buffer: bytesWithRecord } = List.walk fields { buffer: bytesHead, fieldsLeft: List.len fields } writeRecord { buffer: bytesWithRecord } = List.walk fields { buffer: bytesHead, fieldsLeft: List.len fields } writeRecord
@ -273,16 +285,21 @@ encodeRecord = \fields ->
encodeTuple = \elems -> encodeTuple = \elems ->
Encode.custom \bytes, @Json {} -> Encode.custom \bytes, @Json {} ->
writeTuple = \{ buffer, elemsLeft }, elemEncoder -> writeTuple = \{ buffer, elemsLeft }, elemEncoder ->
bufferWithElem = beforeBufferLen = buffer |> List.len
appendWith buffer elemEncoder (@Json {})
bufferWithSuffix = bufferWithElem = appendWith buffer (elemEncoder) (@Json {})
if elemsLeft > 1 then
List.append bufferWithElem (Num.toU8 ',')
else
bufferWithElem
{ buffer: bufferWithSuffix, elemsLeft: elemsLeft - 1 } # If our encoder returned [] we just skip the elem
if bufferWithElem |> List.len == beforeBufferLen then
{ buffer: bufferWithElem, elemsLeft: elemsLeft - 1 }
else
bufferWithSuffix =
if elemsLeft > 1 then
List.append bufferWithElem (Num.toU8 ',')
else
bufferWithElem
{ buffer: bufferWithSuffix, elemsLeft: elemsLeft - 1 }
bytesHead = List.append bytes (Num.toU8 '[') bytesHead = List.append bytes (Num.toU8 '[')
{ buffer: bytesWithRecord } = List.walk elems { buffer: bytesHead, elemsLeft: List.len elems } writeTuple { buffer: bytesWithRecord } = List.walk elems { buffer: bytesHead, elemsLeft: List.len elems } writeTuple
@ -1273,7 +1290,7 @@ decodeRecord = \initialState, stepField, finalizer -> Decode.custom \bytes, @Jso
rest = List.dropFirst bytesAfterValue n rest = List.dropFirst bytesAfterValue n
# Build final record from decoded fields and values # Build final record from decoded fields and values
when finalizer updatedRecord is when finalizer updatedRecord json is
Ok val -> { result: Ok val, rest } Ok val -> { result: Ok val, rest }
Err e -> { result: Err e, rest } Err e -> { result: Err e, rest }

1196
crates/compiler/derive/src/decoding/record.rs
View file

File diff suppressed because it is too large Load diff

49
crates/compiler/derive/src/util.rs
View file

@ -1,10 +1,16 @@
use roc_can::{abilities::SpecializationLambdaSets, module::ExposedByModule}; use roc_can::{
abilities::SpecializationLambdaSets,
expr::{Expr, WhenBranch, WhenBranchPattern},
module::ExposedByModule,
pattern::Pattern,
};
use roc_checkmate::with_checkmate; use roc_checkmate::with_checkmate;
use roc_error_macros::internal_error; use roc_error_macros::internal_error;
use roc_module::symbol::{IdentIds, Symbol}; use roc_module::symbol::{IdentIds, Symbol};
use roc_region::all::Loc;
use roc_solve_schema::UnificationMode; use roc_solve_schema::UnificationMode;
use roc_types::{ use roc_types::{
subs::{instantiate_rigids, Subs, Variable}, subs::{instantiate_rigids, RedundantMark, Subs, Variable},
types::Polarity, types::Polarity,
}; };
@ -202,3 +208,42 @@ pub(crate) enum ExtensionKind {
Record, Record,
TagUnion, TagUnion,
} }
/// Ok a -> Ok a
/// A `when ... is` branch that matches `Ok a` and returns `Ok a`
pub(crate) fn ok_to_ok_branch(
pattern_var: Variable,
result_var: Variable,
field_var: Variable,
symbol: &Symbol,
env: &mut Env<'_>,
) -> WhenBranch {
WhenBranch {
patterns: vec![WhenBranchPattern {
pattern: Loc::at_zero(Pattern::AppliedTag {
whole_var: pattern_var,
ext_var: Variable::EMPTY_TAG_UNION,
tag_name: "Ok".into(),
arguments: vec![(field_var, Loc::at_zero(Pattern::Identifier(*symbol)))],
}),
degenerate: false,
}],
value: Loc::at_zero(Expr::Tag {
tag_union_var: result_var,
ext_var: env.new_ext_var(ExtensionKind::TagUnion),
name: "Ok".into(),
arguments: vec![(field_var, Loc::at_zero(Expr::Var(*symbol, field_var)))],
}),
guard: None,
redundant: RedundantMark::known_non_redundant(),
}
}
/// `[]`
/// Creates an empty list of the type provided.
pub(crate) fn empty_list(var: Variable) -> Expr {
Expr::List {
elem_var: var,
loc_elems: vec![],
}
}

2
crates/compiler/load/Cargo.toml
View file

@ -40,7 +40,7 @@ roc_problem = { path = "../problem" }
roc_region = { path = "../region" } roc_region = { path = "../region" }
roc_solve_problem = { path = "../solve_problem" } roc_solve_problem = { path = "../solve_problem" }
ven_pretty = { path = "../../vendor/pretty" } ven_pretty = { path = "../../vendor/pretty" }
roc_test_utils = { path = "../../test_utils" } roc_test_utils_dir = { path = "../../test_utils_dir" }
indoc.workspace = true indoc.workspace = true
insta.workspace = true insta.workspace = true

3
crates/compiler/load/tests/test_reporting.rs
View file

@ -28,6 +28,7 @@ mod test_reporting {
use roc_reporting::report::{RocDocAllocator, RocDocBuilder}; use roc_reporting::report::{RocDocAllocator, RocDocBuilder};
use roc_solve::FunctionKind; use roc_solve::FunctionKind;
use roc_solve_problem::TypeError; use roc_solve_problem::TypeError;
use roc_test_utils_dir::TmpDir;
use roc_types::subs::Subs; use roc_types::subs::Subs;
use std::path::PathBuf; use std::path::PathBuf;
@ -115,7 +116,7 @@ mod test_reporting {
// We can't have all tests use "tmp" because tests run in parallel, // We can't have all tests use "tmp" because tests run in parallel,
// so append the test name to the tmp path. // so append the test name to the tmp path.
let tmp = format!("tmp/{subdir}"); let tmp = format!("tmp/{subdir}");
let dir = roc_test_utils::TmpDir::new(&tmp); let dir = TmpDir::new(&tmp);
let filename = PathBuf::from("Test.roc"); let filename = PathBuf::from("Test.roc");
let file_path = dir.path().join(filename); let file_path = dir.path().join(filename);

2
crates/compiler/load_internal/Cargo.toml
View file

@ -40,7 +40,7 @@ parking_lot.workspace = true
tempfile.workspace = true tempfile.workspace = true
[dev-dependencies] [dev-dependencies]
roc_test_utils = { path = "../../test_utils" } roc_test_utils_dir = { path = "../../test_utils_dir" }
indoc.workspace = true indoc.workspace = true
maplit.workspace = true maplit.workspace = true

5
crates/compiler/load_internal/tests/test_load.rs
View file

@ -32,6 +32,7 @@ use roc_reporting::report::{can_problem, DEFAULT_PALETTE};
use roc_reporting::report::{strip_colors, RenderTarget}; use roc_reporting::report::{strip_colors, RenderTarget};
use roc_solve::FunctionKind; use roc_solve::FunctionKind;
use roc_target::Target; use roc_target::Target;
use roc_test_utils_dir::TmpDir;
use roc_types::pretty_print::name_and_print_var; use roc_types::pretty_print::name_and_print_var;
use roc_types::pretty_print::DebugPrint; use roc_types::pretty_print::DebugPrint;
use std::collections::HashMap; use std::collections::HashMap;
@ -153,7 +154,7 @@ fn multiple_modules_help<'a>(
// We can't have all tests use "tmp" because tests run in parallel, // We can't have all tests use "tmp" because tests run in parallel,
// so append the test name to the tmp path. // so append the test name to the tmp path.
let tmp = format!("tmp/{subdir}"); let tmp = format!("tmp/{subdir}");
let dir = roc_test_utils::TmpDir::new(&tmp); let dir = TmpDir::new(&tmp);
let app_module = files.pop().unwrap(); let app_module = files.pop().unwrap();
@ -1279,7 +1280,7 @@ fn roc_file_no_extension() {
indoc!( indoc!(
r#" r#"
app "helloWorld" app "helloWorld"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [pf.Stdout] imports [pf.Stdout]
provides [main] to pf provides [main] to pf

30
crates/compiler/test_derive/src/decoding.rs
View file

@ -125,12 +125,12 @@ fn record_2_fields() {
assert_snapshot!(golden, @r###" assert_snapshot!(golden, @r###"
# derived for { first : Str, second : Str } # derived for { first : Str, second : Str }
# Decoder { first : val, second : val1 } fmt where fmt implements DecoderFormatting, val implements Decoding, val1 implements Decoding # Decoder { first : val, second : val1 } fmt where fmt implements DecoderFormatting, val implements Decoding, val1 implements Decoding
# List U8, fmt -[[custom(22)]]-> { rest : List U8, result : [Err [TooShort], Ok { first : val, second : val1 }] } where fmt implements DecoderFormatting, val implements Decoding, val1 implements Decoding # List U8, fmt -[[custom(25)]]-> { rest : List U8, result : [Err [TooShort], Ok { first : val, second : val1 }] } where fmt implements DecoderFormatting, val implements Decoding, val1 implements Decoding
# Specialization lambda sets: # Specialization lambda sets:
# @<1>: [[custom(22)]] # @<1>: [[custom(25)]]
#Derived.decoder_{first,second} = #Derived.decoder_{first,second} =
custom custom
\#Derived.bytes3, #Derived.fmt3 -> \#Derived.bytes3, #Derived.fmt4 ->
decodeWith decodeWith
#Derived.bytes3 #Derived.bytes3
(record (record
@ -139,8 +139,8 @@ fn record_2_fields() {
when #Derived.field is when #Derived.field is
"first" -> "first" ->
Keep (custom Keep (custom
\#Derived.bytes, #Derived.fmt -> \#Derived.bytes, #Derived.fmt2 ->
when decodeWith #Derived.bytes decoder #Derived.fmt is when decodeWith #Derived.bytes decoder #Derived.fmt2 is
#Derived.rec -> #Derived.rec ->
{ {
result: when #Derived.rec.result is result: when #Derived.rec.result is
@ -151,8 +151,8 @@ fn record_2_fields() {
}) })
"second" -> "second" ->
Keep (custom Keep (custom
\#Derived.bytes2, #Derived.fmt2 -> \#Derived.bytes2, #Derived.fmt3 ->
when decodeWith #Derived.bytes2 decoder #Derived.fmt2 is when decodeWith #Derived.bytes2 decoder #Derived.fmt3 is
#Derived.rec2 -> #Derived.rec2 ->
{ {
result: when #Derived.rec2.result is result: when #Derived.rec2.result is
@ -162,15 +162,23 @@ fn record_2_fields() {
rest: #Derived.rec2.rest rest: #Derived.rec2.rest
}) })
_ -> Skip _ -> Skip
\#Derived.stateRecord -> \#Derived.stateRecord, #Derived.fmt ->
when #Derived.stateRecord.first is when when #Derived.stateRecord.first is
Ok #Derived.first -> Ok #Derived.first
Err (NoField) ->
when decodeWith [] decoder #Derived.fmt is
#Derived.decRec2 -> #Derived.decRec2.result is
Ok #Derived.first -> Ok #Derived.first ->
when #Derived.stateRecord.second is when when #Derived.stateRecord.second is
Ok #Derived.second -> Ok #Derived.second
Err (NoField) ->
when decodeWith [] decoder #Derived.fmt is
#Derived.decRec -> #Derived.decRec.result is
Ok #Derived.second -> Ok #Derived.second ->
Ok { second: #Derived.second, first: #Derived.first } Ok { second: #Derived.second, first: #Derived.first }
_ -> Err TooShort _ -> Err TooShort
_ -> Err TooShort) _ -> Err TooShort)
#Derived.fmt3 #Derived.fmt4
"### "###
) )
}) })

712
crates/compiler/test_mono/generated/encode_derived_nested_record_string.txt generated
View file

@ -24,6 +24,10 @@ procedure #Derived.7 (#Derived.8, #Derived.9, #Derived.6):
let #Derived_gen.13 : List U8 = CallByName Encode.24 #Derived.8 #Derived_gen.14 #Derived.9; let #Derived_gen.13 : List U8 = CallByName Encode.24 #Derived.8 #Derived_gen.14 #Derived.9;
ret #Derived_gen.13; ret #Derived_gen.13;
procedure Bool.11 (#Attr.2, #Attr.3):
let Bool.24 : Int1 = lowlevel Eq #Attr.2 #Attr.3;
ret Bool.24;
procedure Encode.23 (Encode.98): procedure Encode.23 (Encode.98):
ret Encode.98; ret Encode.98;
@ -44,7 +48,7 @@ procedure Encode.24 (Encode.99, Encode.107, Encode.101):
ret Encode.111; ret Encode.111;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
let Encode.113 : List U8 = CallByName TotallyNotJson.201 Encode.99 Encode.101 Encode.107; let Encode.113 : List U8 = CallByName TotallyNotJson.202 Encode.99 Encode.101 Encode.107;
ret Encode.113; ret Encode.113;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
@ -52,7 +56,7 @@ procedure Encode.24 (Encode.99, Encode.107, Encode.101):
ret Encode.115; ret Encode.115;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
let Encode.117 : List U8 = CallByName TotallyNotJson.201 Encode.99 Encode.101 Encode.107; let Encode.117 : List U8 = CallByName TotallyNotJson.202 Encode.99 Encode.101 Encode.107;
ret Encode.117; ret Encode.117;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
@ -66,10 +70,10 @@ procedure Encode.26 (Encode.105, Encode.106):
ret Encode.108; ret Encode.108;
procedure List.103 (List.487, List.488, List.489): procedure List.103 (List.487, List.488, List.489):
let List.683 : U64 = 0i64; let List.685 : U64 = 0i64;
let List.684 : U64 = CallByName List.6 List.487; let List.686 : U64 = CallByName List.6 List.487;
let List.682 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.80 List.487 List.488 List.489 List.683 List.684; let List.684 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.80 List.487 List.488 List.489 List.685 List.686;
ret List.682; ret List.684;
procedure List.18 (List.159, List.160, List.161): procedure List.18 (List.159, List.160, List.161):
let List.593 : U64 = 0i64; let List.593 : U64 = 0i64;
@ -78,137 +82,137 @@ procedure List.18 (List.159, List.160, List.161):
ret List.592; ret List.592;
procedure List.18 (List.159, List.160, List.161): procedure List.18 (List.159, List.160, List.161):
let List.627 : U64 = 0i64; let List.628 : U64 = 0i64;
let List.628 : U64 = CallByName List.6 List.159; let List.629 : U64 = CallByName List.6 List.159;
let List.626 : {List U8, U64} = CallByName List.91 List.159 List.160 List.161 List.627 List.628; let List.627 : {List U8, U64} = CallByName List.91 List.159 List.160 List.161 List.628 List.629;
ret List.626; ret List.627;
procedure List.18 (List.159, List.160, List.161): procedure List.18 (List.159, List.160, List.161):
let List.639 : U64 = 0i64; let List.640 : U64 = 0i64;
let List.640 : U64 = CallByName List.6 List.159; let List.641 : U64 = CallByName List.6 List.159;
let List.638 : List U8 = CallByName List.91 List.159 List.160 List.161 List.639 List.640; let List.639 : List U8 = CallByName List.91 List.159 List.160 List.161 List.640 List.641;
ret List.638; ret List.639;
procedure List.26 (List.200, List.201, List.202): procedure List.26 (List.200, List.201, List.202):
let List.676 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.103 List.200 List.201 List.202; let List.678 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.103 List.200 List.201 List.202;
let List.679 : U8 = 1i64; let List.681 : U8 = 1i64;
let List.680 : U8 = GetTagId List.676; let List.682 : U8 = GetTagId List.678;
let List.681 : Int1 = lowlevel Eq List.679 List.680; let List.683 : Int1 = lowlevel Eq List.681 List.682;
if List.681 then if List.683 then
let List.203 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.676; let List.203 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.678;
ret List.203; ret List.203;
else else
let List.204 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.676; let List.204 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.678;
ret List.204; ret List.204;
procedure List.4 (List.123, List.124): procedure List.4 (List.123, List.124):
let List.625 : U64 = 1i64; let List.626 : U64 = 1i64;
let List.624 : List U8 = CallByName List.70 List.123 List.625; let List.625 : List U8 = CallByName List.70 List.123 List.626;
let List.623 : List U8 = CallByName List.71 List.624 List.124; let List.624 : List U8 = CallByName List.71 List.625 List.124;
ret List.623; ret List.624;
procedure List.49 (List.419, List.420): procedure List.49 (List.419, List.420):
let List.667 : U64 = StructAtIndex 1 List.420; let List.669 : U64 = StructAtIndex 1 List.420;
let List.668 : U64 = StructAtIndex 0 List.420; let List.670 : U64 = StructAtIndex 0 List.420;
let List.666 : List U8 = CallByName List.72 List.419 List.667 List.668; let List.668 : List U8 = CallByName List.72 List.419 List.669 List.670;
ret List.666; ret List.668;
procedure List.52 (List.434, List.435): procedure List.52 (List.434, List.435):
let List.436 : U64 = CallByName List.6 List.434; let List.436 : U64 = CallByName List.6 List.434;
joinpoint List.674 List.437: joinpoint List.676 List.437:
let List.672 : U64 = 0i64; let List.674 : U64 = 0i64;
let List.671 : {U64, U64} = Struct {List.437, List.672}; let List.673 : {U64, U64} = Struct {List.437, List.674};
inc List.434; inc List.434;
let List.438 : List U8 = CallByName List.49 List.434 List.671; let List.438 : List U8 = CallByName List.49 List.434 List.673;
let List.670 : U64 = CallByName Num.75 List.436 List.437; let List.672 : U64 = CallByName Num.75 List.436 List.437;
let List.665 : {U64, U64} = Struct {List.670, List.437}; let List.667 : {U64, U64} = Struct {List.672, List.437};
let List.439 : List U8 = CallByName List.49 List.434 List.665; let List.439 : List U8 = CallByName List.49 List.434 List.667;
let List.664 : {List U8, List U8} = Struct {List.438, List.439}; let List.666 : {List U8, List U8} = Struct {List.438, List.439};
ret List.664; ret List.666;
in in
let List.675 : Int1 = CallByName Num.24 List.436 List.435; let List.677 : Int1 = CallByName Num.24 List.436 List.435;
if List.675 then if List.677 then
jump List.674 List.435; jump List.676 List.435;
else else
jump List.674 List.436; jump List.676 List.436;
procedure List.6 (#Attr.2): procedure List.6 (#Attr.2):
let List.605 : U64 = lowlevel ListLenU64 #Attr.2; let List.606 : U64 = lowlevel ListLenU64 #Attr.2;
ret List.605; ret List.606;
procedure List.6 (#Attr.2):
let List.659 : U64 = lowlevel ListLenU64 #Attr.2;
ret List.659;
procedure List.6 (#Attr.2): procedure List.6 (#Attr.2):
let List.661 : U64 = lowlevel ListLenU64 #Attr.2; let List.661 : U64 = lowlevel ListLenU64 #Attr.2;
ret List.661; ret List.661;
procedure List.6 (#Attr.2):
let List.663 : U64 = lowlevel ListLenU64 #Attr.2;
ret List.663;
procedure List.66 (#Attr.2, #Attr.3): procedure List.66 (#Attr.2, #Attr.3):
let List.602 : {Str, Str} = lowlevel ListGetUnsafe #Attr.2 #Attr.3; let List.602 : {Str, Str} = lowlevel ListGetUnsafe #Attr.2 #Attr.3;
ret List.602; ret List.602;
procedure List.66 (#Attr.2, #Attr.3): procedure List.66 (#Attr.2, #Attr.3):
let List.636 : {Str, Str} = lowlevel ListGetUnsafe #Attr.2 #Attr.3; let List.637 : {Str, Str} = lowlevel ListGetUnsafe #Attr.2 #Attr.3;
ret List.636; ret List.637;
procedure List.66 (#Attr.2, #Attr.3): procedure List.66 (#Attr.2, #Attr.3):
let List.648 : U8 = lowlevel ListGetUnsafe #Attr.2 #Attr.3; let List.649 : U8 = lowlevel ListGetUnsafe #Attr.2 #Attr.3;
ret List.648; ret List.649;
procedure List.68 (#Attr.2): procedure List.68 (#Attr.2):
let List.663 : List U8 = lowlevel ListWithCapacity #Attr.2; let List.665 : List U8 = lowlevel ListWithCapacity #Attr.2;
ret List.663; ret List.665;
procedure List.70 (#Attr.2, #Attr.3): procedure List.70 (#Attr.2, #Attr.3):
let List.610 : List U8 = lowlevel ListReserve #Attr.2 #Attr.3; let List.611 : List U8 = lowlevel ListReserve #Attr.2 #Attr.3;
ret List.610; ret List.611;
procedure List.71 (#Attr.2, #Attr.3): procedure List.71 (#Attr.2, #Attr.3):
let List.608 : List U8 = lowlevel ListAppendUnsafe #Attr.2 #Attr.3; let List.609 : List U8 = lowlevel ListAppendUnsafe #Attr.2 #Attr.3;
ret List.608; ret List.609;
procedure List.72 (#Attr.2, #Attr.3, #Attr.4): procedure List.72 (#Attr.2, #Attr.3, #Attr.4):
let List.669 : List U8 = lowlevel ListSublist #Attr.2 #Attr.3 #Attr.4; let List.671 : List U8 = lowlevel ListSublist #Attr.2 #Attr.3 #Attr.4;
ret List.669; ret List.671;
procedure List.8 (#Attr.2, #Attr.3): procedure List.8 (#Attr.2, #Attr.3):
let List.658 : List U8 = lowlevel ListConcat #Attr.2 #Attr.3; let List.660 : List U8 = lowlevel ListConcat #Attr.2 #Attr.3;
ret List.658; ret List.660;
procedure List.80 (#Derived_gen.31, #Derived_gen.32, #Derived_gen.33, #Derived_gen.34, #Derived_gen.35): procedure List.80 (#Derived_gen.26, #Derived_gen.27, #Derived_gen.28, #Derived_gen.29, #Derived_gen.30):
joinpoint List.685 List.490 List.491 List.492 List.493 List.494: joinpoint List.687 List.490 List.491 List.492 List.493 List.494:
let List.687 : Int1 = CallByName Num.22 List.493 List.494; let List.689 : Int1 = CallByName Num.22 List.493 List.494;
if List.687 then if List.689 then
let List.696 : U8 = CallByName List.66 List.490 List.493; let List.698 : U8 = CallByName List.66 List.490 List.493;
let List.688 : [C {U64, Int1}, C {U64, Int1}] = CallByName TotallyNotJson.157 List.491 List.696; let List.690 : [C {U64, Int1}, C {U64, Int1}] = CallByName TotallyNotJson.157 List.491 List.698;
let List.693 : U8 = 1i64; let List.695 : U8 = 1i64;
let List.694 : U8 = GetTagId List.688; let List.696 : U8 = GetTagId List.690;
let List.695 : Int1 = lowlevel Eq List.693 List.694; let List.697 : Int1 = lowlevel Eq List.695 List.696;
if List.695 then if List.697 then
let List.495 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.688; let List.495 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.690;
let List.691 : U64 = 1i64; let List.693 : U64 = 1i64;
let List.690 : U64 = CallByName Num.51 List.493 List.691; let List.692 : U64 = CallByName Num.51 List.493 List.693;
jump List.685 List.490 List.495 List.492 List.690 List.494; jump List.687 List.490 List.495 List.492 List.692 List.494;
else else
dec List.490; dec List.490;
let List.496 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.688; let List.496 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.690;
let List.692 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) List.496; let List.694 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) List.496;
ret List.692; ret List.694;
else else
dec List.490; dec List.490;
let List.686 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) List.491; let List.688 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) List.491;
ret List.686; ret List.688;
in in
jump List.685 #Derived_gen.31 #Derived_gen.32 #Derived_gen.33 #Derived_gen.34 #Derived_gen.35; jump List.687 #Derived_gen.26 #Derived_gen.27 #Derived_gen.28 #Derived_gen.29 #Derived_gen.30;
procedure List.91 (#Derived_gen.23, #Derived_gen.24, #Derived_gen.25, #Derived_gen.26, #Derived_gen.27): procedure List.91 (#Derived_gen.31, #Derived_gen.32, #Derived_gen.33, #Derived_gen.34, #Derived_gen.35):
joinpoint List.595 List.162 List.163 List.164 List.165 List.166: joinpoint List.595 List.162 List.163 List.164 List.165 List.166:
let List.597 : Int1 = CallByName Num.22 List.165 List.166; let List.597 : Int1 = CallByName Num.22 List.165 List.166;
if List.597 then if List.597 then
let List.601 : {Str, Str} = CallByName List.66 List.162 List.165; let List.601 : {Str, Str} = CallByName List.66 List.162 List.165;
inc List.601; inc List.601;
let List.167 : {List U8, U64} = CallByName TotallyNotJson.203 List.163 List.601; let List.167 : {List U8, U64} = CallByName TotallyNotJson.204 List.163 List.601;
let List.600 : U64 = 1i64; let List.600 : U64 = 1i64;
let List.599 : U64 = CallByName Num.51 List.165 List.600; let List.599 : U64 = CallByName Num.51 List.165 List.600;
jump List.595 List.162 List.167 List.164 List.599 List.166; jump List.595 List.162 List.167 List.164 List.599 List.166;
@ -216,74 +220,74 @@ procedure List.91 (#Derived_gen.23, #Derived_gen.24, #Derived_gen.25, #Derived_g
dec List.162; dec List.162;
ret List.163; ret List.163;
in in
jump List.595 #Derived_gen.23 #Derived_gen.24 #Derived_gen.25 #Derived_gen.26 #Derived_gen.27; jump List.595 #Derived_gen.31 #Derived_gen.32 #Derived_gen.33 #Derived_gen.34 #Derived_gen.35;
procedure List.91 (#Derived_gen.39, #Derived_gen.40, #Derived_gen.41, #Derived_gen.42, #Derived_gen.43): procedure List.91 (#Derived_gen.36, #Derived_gen.37, #Derived_gen.38, #Derived_gen.39, #Derived_gen.40):
joinpoint List.641 List.162 List.163 List.164 List.165 List.166: joinpoint List.642 List.162 List.163 List.164 List.165 List.166:
let List.643 : Int1 = CallByName Num.22 List.165 List.166; let List.644 : Int1 = CallByName Num.22 List.165 List.166;
if List.643 then if List.644 then
let List.647 : U8 = CallByName List.66 List.162 List.165; let List.648 : U8 = CallByName List.66 List.162 List.165;
let List.167 : List U8 = CallByName TotallyNotJson.183 List.163 List.647; let List.167 : List U8 = CallByName TotallyNotJson.183 List.163 List.648;
let List.646 : U64 = 1i64; let List.647 : U64 = 1i64;
let List.645 : U64 = CallByName Num.51 List.165 List.646; let List.646 : U64 = CallByName Num.51 List.165 List.647;
jump List.641 List.162 List.167 List.164 List.645 List.166; jump List.642 List.162 List.167 List.164 List.646 List.166;
else else
dec List.162; dec List.162;
ret List.163; ret List.163;
in in
jump List.641 #Derived_gen.39 #Derived_gen.40 #Derived_gen.41 #Derived_gen.42 #Derived_gen.43; jump List.642 #Derived_gen.36 #Derived_gen.37 #Derived_gen.38 #Derived_gen.39 #Derived_gen.40;
procedure List.91 (#Derived_gen.47, #Derived_gen.48, #Derived_gen.49, #Derived_gen.50, #Derived_gen.51): procedure List.91 (#Derived_gen.50, #Derived_gen.51, #Derived_gen.52, #Derived_gen.53, #Derived_gen.54):
joinpoint List.629 List.162 List.163 List.164 List.165 List.166: joinpoint List.630 List.162 List.163 List.164 List.165 List.166:
let List.631 : Int1 = CallByName Num.22 List.165 List.166; let List.632 : Int1 = CallByName Num.22 List.165 List.166;
if List.631 then if List.632 then
let List.635 : {Str, Str} = CallByName List.66 List.162 List.165; let List.636 : {Str, Str} = CallByName List.66 List.162 List.165;
inc List.635; inc List.636;
let List.167 : {List U8, U64} = CallByName TotallyNotJson.203 List.163 List.635; let List.167 : {List U8, U64} = CallByName TotallyNotJson.204 List.163 List.636;
let List.634 : U64 = 1i64; let List.635 : U64 = 1i64;
let List.633 : U64 = CallByName Num.51 List.165 List.634; let List.634 : U64 = CallByName Num.51 List.165 List.635;
jump List.629 List.162 List.167 List.164 List.633 List.166; jump List.630 List.162 List.167 List.164 List.634 List.166;
else else
dec List.162; dec List.162;
ret List.163; ret List.163;
in in
jump List.629 #Derived_gen.47 #Derived_gen.48 #Derived_gen.49 #Derived_gen.50 #Derived_gen.51; jump List.630 #Derived_gen.50 #Derived_gen.51 #Derived_gen.52 #Derived_gen.53 #Derived_gen.54;
procedure Num.127 (#Attr.2): procedure Num.127 (#Attr.2):
let Num.290 : U8 = lowlevel NumIntCast #Attr.2; let Num.291 : U8 = lowlevel NumIntCast #Attr.2;
ret Num.290;
procedure Num.137 (#Attr.2, #Attr.3):
let Num.295 : U64 = lowlevel NumDivCeilUnchecked #Attr.2 #Attr.3;
ret Num.295;
procedure Num.19 (#Attr.2, #Attr.3):
let Num.294 : U64 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Num.294;
procedure Num.20 (#Attr.2, #Attr.3):
let Num.291 : U64 = lowlevel NumSub #Attr.2 #Attr.3;
ret Num.291; ret Num.291;
procedure Num.21 (#Attr.2, #Attr.3): procedure Num.137 (#Attr.2, #Attr.3):
let Num.296 : U64 = lowlevel NumMul #Attr.2 #Attr.3; let Num.297 : U64 = lowlevel NumDivCeilUnchecked #Attr.2 #Attr.3;
ret Num.297;
procedure Num.19 (#Attr.2, #Attr.3):
let Num.296 : U64 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Num.296; ret Num.296;
procedure Num.22 (#Attr.2, #Attr.3): procedure Num.20 (#Attr.2, #Attr.3):
let Num.302 : Int1 = lowlevel NumLt #Attr.2 #Attr.3; let Num.293 : U64 = lowlevel NumSub #Attr.2 #Attr.3;
ret Num.302; ret Num.293;
procedure Num.24 (#Attr.2, #Attr.3): procedure Num.21 (#Attr.2, #Attr.3):
let Num.304 : Int1 = lowlevel NumGt #Attr.2 #Attr.3; let Num.298 : U64 = lowlevel NumMul #Attr.2 #Attr.3;
ret Num.298;
procedure Num.22 (#Attr.2, #Attr.3):
let Num.304 : Int1 = lowlevel NumLt #Attr.2 #Attr.3;
ret Num.304; ret Num.304;
procedure Num.24 (#Attr.2, #Attr.3):
let Num.306 : Int1 = lowlevel NumGt #Attr.2 #Attr.3;
ret Num.306;
procedure Num.51 (#Attr.2, #Attr.3): procedure Num.51 (#Attr.2, #Attr.3):
let Num.299 : U64 = lowlevel NumAddWrap #Attr.2 #Attr.3; let Num.301 : U64 = lowlevel NumAddWrap #Attr.2 #Attr.3;
ret Num.299; ret Num.301;
procedure Num.75 (#Attr.2, #Attr.3): procedure Num.75 (#Attr.2, #Attr.3):
let Num.303 : U64 = lowlevel NumSubWrap #Attr.2 #Attr.3; let Num.305 : U64 = lowlevel NumSubWrap #Attr.2 #Attr.3;
ret Num.303; ret Num.305;
procedure Str.12 (#Attr.2): procedure Str.12 (#Attr.2):
let Str.242 : List U8 = lowlevel StrToUtf8 #Attr.2; let Str.242 : List U8 = lowlevel StrToUtf8 #Attr.2;
@ -309,279 +313,305 @@ procedure Str.9 (Str.67):
let Str.232 : [C {U64, U8}, C Str] = TagId(0) Str.233; let Str.232 : [C {U64, U8}, C Str] = TagId(0) Str.233;
ret Str.232; ret Str.232;
procedure TotallyNotJson.150 (TotallyNotJson.151, TotallyNotJson.1043, TotallyNotJson.149): procedure TotallyNotJson.150 (TotallyNotJson.151, TotallyNotJson.1060, TotallyNotJson.149):
let TotallyNotJson.1046 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.149; let TotallyNotJson.1063 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.149;
let TotallyNotJson.1045 : List U8 = CallByName List.8 TotallyNotJson.151 TotallyNotJson.1046; let TotallyNotJson.1062 : List U8 = CallByName List.8 TotallyNotJson.151 TotallyNotJson.1063;
ret TotallyNotJson.1045; ret TotallyNotJson.1062;
procedure TotallyNotJson.157 (TotallyNotJson.1094, TotallyNotJson.160): procedure TotallyNotJson.157 (TotallyNotJson.1111, TotallyNotJson.160):
let TotallyNotJson.158 : U64 = StructAtIndex 0 TotallyNotJson.1094; let TotallyNotJson.158 : U64 = StructAtIndex 0 TotallyNotJson.1111;
let TotallyNotJson.159 : Int1 = StructAtIndex 1 TotallyNotJson.1094; let TotallyNotJson.159 : Int1 = StructAtIndex 1 TotallyNotJson.1111;
switch TotallyNotJson.160: switch TotallyNotJson.160:
case 34: case 34:
let TotallyNotJson.1097 : Int1 = false; let TotallyNotJson.1114 : Int1 = false;
let TotallyNotJson.1096 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1097}; let TotallyNotJson.1113 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1114};
let TotallyNotJson.1095 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1096; let TotallyNotJson.1112 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1113;
ret TotallyNotJson.1095; ret TotallyNotJson.1112;
case 92: case 92:
let TotallyNotJson.1100 : Int1 = false; let TotallyNotJson.1117 : Int1 = false;
let TotallyNotJson.1099 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1100}; let TotallyNotJson.1116 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1117};
let TotallyNotJson.1098 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1099; let TotallyNotJson.1115 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1116;
ret TotallyNotJson.1098; ret TotallyNotJson.1115;
case 47: case 47:
let TotallyNotJson.1103 : Int1 = false; let TotallyNotJson.1120 : Int1 = false;
let TotallyNotJson.1102 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1103}; let TotallyNotJson.1119 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1120};
let TotallyNotJson.1101 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1102; let TotallyNotJson.1118 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1119;
ret TotallyNotJson.1101; ret TotallyNotJson.1118;
case 8: case 8:
let TotallyNotJson.1106 : Int1 = false; let TotallyNotJson.1123 : Int1 = false;
let TotallyNotJson.1105 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1106}; let TotallyNotJson.1122 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1123};
let TotallyNotJson.1104 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1105; let TotallyNotJson.1121 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1122;
ret TotallyNotJson.1104; ret TotallyNotJson.1121;
case 12: case 12:
let TotallyNotJson.1109 : Int1 = false; let TotallyNotJson.1126 : Int1 = false;
let TotallyNotJson.1108 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1109}; let TotallyNotJson.1125 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1126};
let TotallyNotJson.1107 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1108; let TotallyNotJson.1124 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1125;
ret TotallyNotJson.1107; ret TotallyNotJson.1124;
case 10: case 10:
let TotallyNotJson.1112 : Int1 = false; let TotallyNotJson.1129 : Int1 = false;
let TotallyNotJson.1111 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1112}; let TotallyNotJson.1128 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1129};
let TotallyNotJson.1110 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1111; let TotallyNotJson.1127 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1128;
ret TotallyNotJson.1110; ret TotallyNotJson.1127;
case 13: case 13:
let TotallyNotJson.1115 : Int1 = false; let TotallyNotJson.1132 : Int1 = false;
let TotallyNotJson.1114 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1115}; let TotallyNotJson.1131 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1132};
let TotallyNotJson.1113 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1114; let TotallyNotJson.1130 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1131;
ret TotallyNotJson.1113; ret TotallyNotJson.1130;
case 9: case 9:
let TotallyNotJson.1118 : Int1 = false; let TotallyNotJson.1135 : Int1 = false;
let TotallyNotJson.1117 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1118}; let TotallyNotJson.1134 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1135};
let TotallyNotJson.1116 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1117; let TotallyNotJson.1133 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1134;
ret TotallyNotJson.1116; ret TotallyNotJson.1133;
default: default:
let TotallyNotJson.1122 : U64 = 1i64; let TotallyNotJson.1139 : U64 = 1i64;
let TotallyNotJson.1121 : U64 = CallByName Num.19 TotallyNotJson.158 TotallyNotJson.1122; let TotallyNotJson.1138 : U64 = CallByName Num.19 TotallyNotJson.158 TotallyNotJson.1139;
let TotallyNotJson.1120 : {U64, Int1} = Struct {TotallyNotJson.1121, TotallyNotJson.159}; let TotallyNotJson.1137 : {U64, Int1} = Struct {TotallyNotJson.1138, TotallyNotJson.159};
let TotallyNotJson.1119 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) TotallyNotJson.1120; let TotallyNotJson.1136 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) TotallyNotJson.1137;
ret TotallyNotJson.1119; ret TotallyNotJson.1136;
procedure TotallyNotJson.183 (TotallyNotJson.184, TotallyNotJson.185): procedure TotallyNotJson.183 (TotallyNotJson.184, TotallyNotJson.185):
let TotallyNotJson.1065 : List U8 = CallByName TotallyNotJson.27 TotallyNotJson.185; let TotallyNotJson.1082 : List U8 = CallByName TotallyNotJson.27 TotallyNotJson.185;
let TotallyNotJson.1064 : List U8 = CallByName List.8 TotallyNotJson.184 TotallyNotJson.1065; let TotallyNotJson.1081 : List U8 = CallByName List.8 TotallyNotJson.184 TotallyNotJson.1082;
ret TotallyNotJson.1064; ret TotallyNotJson.1081;
procedure TotallyNotJson.201 (TotallyNotJson.202, TotallyNotJson.973, TotallyNotJson.200): procedure TotallyNotJson.202 (TotallyNotJson.203, TotallyNotJson.976, TotallyNotJson.201):
let TotallyNotJson.1006 : I64 = 123i64; let TotallyNotJson.1016 : I64 = 123i64;
let TotallyNotJson.1005 : U8 = CallByName Num.127 TotallyNotJson.1006; let TotallyNotJson.1015 : U8 = CallByName Num.127 TotallyNotJson.1016;
let TotallyNotJson.204 : List U8 = CallByName List.4 TotallyNotJson.202 TotallyNotJson.1005; let TotallyNotJson.205 : List U8 = CallByName List.4 TotallyNotJson.203 TotallyNotJson.1015;
let TotallyNotJson.1004 : U64 = CallByName List.6 TotallyNotJson.200; let TotallyNotJson.1014 : U64 = CallByName List.6 TotallyNotJson.201;
let TotallyNotJson.981 : {List U8, U64} = Struct {TotallyNotJson.204, TotallyNotJson.1004}; let TotallyNotJson.984 : {List U8, U64} = Struct {TotallyNotJson.205, TotallyNotJson.1014};
let TotallyNotJson.982 : {} = Struct {}; let TotallyNotJson.985 : {} = Struct {};
let TotallyNotJson.980 : {List U8, U64} = CallByName List.18 TotallyNotJson.200 TotallyNotJson.981 TotallyNotJson.982; let TotallyNotJson.983 : {List U8, U64} = CallByName List.18 TotallyNotJson.201 TotallyNotJson.984 TotallyNotJson.985;
let TotallyNotJson.206 : List U8 = StructAtIndex 0 TotallyNotJson.980; let TotallyNotJson.207 : List U8 = StructAtIndex 0 TotallyNotJson.983;
let TotallyNotJson.979 : I64 = 125i64; let TotallyNotJson.982 : I64 = 125i64;
let TotallyNotJson.978 : U8 = CallByName Num.127 TotallyNotJson.979; let TotallyNotJson.981 : U8 = CallByName Num.127 TotallyNotJson.982;
let TotallyNotJson.977 : List U8 = CallByName List.4 TotallyNotJson.206 TotallyNotJson.978; let TotallyNotJson.980 : List U8 = CallByName List.4 TotallyNotJson.207 TotallyNotJson.981;
ret TotallyNotJson.977; ret TotallyNotJson.980;
procedure TotallyNotJson.201 (TotallyNotJson.202, TotallyNotJson.973, TotallyNotJson.200): procedure TotallyNotJson.202 (TotallyNotJson.203, TotallyNotJson.976, TotallyNotJson.201):
let TotallyNotJson.1040 : I64 = 123i64; let TotallyNotJson.1057 : I64 = 123i64;
let TotallyNotJson.1039 : U8 = CallByName Num.127 TotallyNotJson.1040; let TotallyNotJson.1056 : U8 = CallByName Num.127 TotallyNotJson.1057;
let TotallyNotJson.204 : List U8 = CallByName List.4 TotallyNotJson.202 TotallyNotJson.1039; let TotallyNotJson.205 : List U8 = CallByName List.4 TotallyNotJson.203 TotallyNotJson.1056;
let TotallyNotJson.1038 : U64 = CallByName List.6 TotallyNotJson.200; let TotallyNotJson.1055 : U64 = CallByName List.6 TotallyNotJson.201;
let TotallyNotJson.1015 : {List U8, U64} = Struct {TotallyNotJson.204, TotallyNotJson.1038}; let TotallyNotJson.1025 : {List U8, U64} = Struct {TotallyNotJson.205, TotallyNotJson.1055};
let TotallyNotJson.1016 : {} = Struct {}; let TotallyNotJson.1026 : {} = Struct {};
let TotallyNotJson.1014 : {List U8, U64} = CallByName List.18 TotallyNotJson.200 TotallyNotJson.1015 TotallyNotJson.1016; let TotallyNotJson.1024 : {List U8, U64} = CallByName List.18 TotallyNotJson.201 TotallyNotJson.1025 TotallyNotJson.1026;
let TotallyNotJson.206 : List U8 = StructAtIndex 0 TotallyNotJson.1014; let TotallyNotJson.207 : List U8 = StructAtIndex 0 TotallyNotJson.1024;
let TotallyNotJson.1013 : I64 = 125i64; let TotallyNotJson.1023 : I64 = 125i64;
let TotallyNotJson.1012 : U8 = CallByName Num.127 TotallyNotJson.1013; let TotallyNotJson.1022 : U8 = CallByName Num.127 TotallyNotJson.1023;
let TotallyNotJson.1011 : List U8 = CallByName List.4 TotallyNotJson.206 TotallyNotJson.1012; let TotallyNotJson.1021 : List U8 = CallByName List.4 TotallyNotJson.207 TotallyNotJson.1022;
ret TotallyNotJson.1011; ret TotallyNotJson.1021;
procedure TotallyNotJson.203 (TotallyNotJson.975, TotallyNotJson.976): procedure TotallyNotJson.204 (TotallyNotJson.978, TotallyNotJson.979):
let TotallyNotJson.209 : Str = StructAtIndex 0 TotallyNotJson.976; let TotallyNotJson.210 : Str = StructAtIndex 0 TotallyNotJson.979;
let TotallyNotJson.210 : Str = StructAtIndex 1 TotallyNotJson.976; let TotallyNotJson.211 : Str = StructAtIndex 1 TotallyNotJson.979;
let TotallyNotJson.207 : List U8 = StructAtIndex 0 TotallyNotJson.975; let TotallyNotJson.208 : List U8 = StructAtIndex 0 TotallyNotJson.978;
let TotallyNotJson.208 : U64 = StructAtIndex 1 TotallyNotJson.975; let TotallyNotJson.209 : U64 = StructAtIndex 1 TotallyNotJson.978;
let TotallyNotJson.1003 : I64 = 34i64; let TotallyNotJson.1011 : List U8 = Array [];
let TotallyNotJson.1002 : U8 = CallByName Num.127 TotallyNotJson.1003; let TotallyNotJson.1012 : {} = CallByName TotallyNotJson.8;
let TotallyNotJson.1000 : List U8 = CallByName List.4 TotallyNotJson.207 TotallyNotJson.1002; let TotallyNotJson.212 : List U8 = CallByName Encode.24 TotallyNotJson.1011 TotallyNotJson.211 TotallyNotJson.1012;
let TotallyNotJson.1001 : List U8 = CallByName Str.12 TotallyNotJson.209; let TotallyNotJson.1010 : List U8 = Array [];
let TotallyNotJson.997 : List U8 = CallByName List.8 TotallyNotJson.1000 TotallyNotJson.1001; let TotallyNotJson.1006 : Int1 = CallByName Bool.11 TotallyNotJson.212 TotallyNotJson.1010;
let TotallyNotJson.999 : I64 = 34i64; dec TotallyNotJson.1010;
let TotallyNotJson.998 : U8 = CallByName Num.127 TotallyNotJson.999; if TotallyNotJson.1006 then
let TotallyNotJson.994 : List U8 = CallByName List.4 TotallyNotJson.997 TotallyNotJson.998; dec TotallyNotJson.210;
let TotallyNotJson.996 : I64 = 58i64; dec TotallyNotJson.212;
let TotallyNotJson.995 : U8 = CallByName Num.127 TotallyNotJson.996; let TotallyNotJson.1009 : U64 = 1i64;
let TotallyNotJson.992 : List U8 = CallByName List.4 TotallyNotJson.994 TotallyNotJson.995; let TotallyNotJson.1008 : U64 = CallByName Num.20 TotallyNotJson.209 TotallyNotJson.1009;
let TotallyNotJson.993 : {} = Struct {}; let TotallyNotJson.1007 : {List U8, U64} = Struct {TotallyNotJson.208, TotallyNotJson.1008};
let TotallyNotJson.212 : List U8 = CallByName Encode.24 TotallyNotJson.992 TotallyNotJson.210 TotallyNotJson.993; ret TotallyNotJson.1007;
joinpoint TotallyNotJson.987 TotallyNotJson.213:
let TotallyNotJson.985 : U64 = 1i64;
let TotallyNotJson.984 : U64 = CallByName Num.20 TotallyNotJson.208 TotallyNotJson.985;
let TotallyNotJson.983 : {List U8, U64} = Struct {TotallyNotJson.213, TotallyNotJson.984};
ret TotallyNotJson.983;
in
let TotallyNotJson.991 : U64 = 1i64;
let TotallyNotJson.988 : Int1 = CallByName Num.24 TotallyNotJson.208 TotallyNotJson.991;
if TotallyNotJson.988 then
let TotallyNotJson.990 : I64 = 44i64;
let TotallyNotJson.989 : U8 = CallByName Num.127 TotallyNotJson.990;
let TotallyNotJson.986 : List U8 = CallByName List.4 TotallyNotJson.212 TotallyNotJson.989;
jump TotallyNotJson.987 TotallyNotJson.986;
else else
jump TotallyNotJson.987 TotallyNotJson.212; let TotallyNotJson.1005 : I64 = 34i64;
let TotallyNotJson.1004 : U8 = CallByName Num.127 TotallyNotJson.1005;
let TotallyNotJson.1002 : List U8 = CallByName List.4 TotallyNotJson.208 TotallyNotJson.1004;
let TotallyNotJson.1003 : List U8 = CallByName Str.12 TotallyNotJson.210;
let TotallyNotJson.999 : List U8 = CallByName List.8 TotallyNotJson.1002 TotallyNotJson.1003;
let TotallyNotJson.1001 : I64 = 34i64;
let TotallyNotJson.1000 : U8 = CallByName Num.127 TotallyNotJson.1001;
let TotallyNotJson.996 : List U8 = CallByName List.4 TotallyNotJson.999 TotallyNotJson.1000;
let TotallyNotJson.998 : I64 = 58i64;
let TotallyNotJson.997 : U8 = CallByName Num.127 TotallyNotJson.998;
let TotallyNotJson.995 : List U8 = CallByName List.4 TotallyNotJson.996 TotallyNotJson.997;
let TotallyNotJson.214 : List U8 = CallByName List.8 TotallyNotJson.995 TotallyNotJson.212;
joinpoint TotallyNotJson.990 TotallyNotJson.215:
let TotallyNotJson.988 : U64 = 1i64;
let TotallyNotJson.987 : U64 = CallByName Num.20 TotallyNotJson.209 TotallyNotJson.988;
let TotallyNotJson.986 : {List U8, U64} = Struct {TotallyNotJson.215, TotallyNotJson.987};
ret TotallyNotJson.986;
in
let TotallyNotJson.994 : U64 = 1i64;
let TotallyNotJson.991 : Int1 = CallByName Num.24 TotallyNotJson.209 TotallyNotJson.994;
if TotallyNotJson.991 then
let TotallyNotJson.993 : I64 = 44i64;
let TotallyNotJson.992 : U8 = CallByName Num.127 TotallyNotJson.993;
let TotallyNotJson.989 : List U8 = CallByName List.4 TotallyNotJson.214 TotallyNotJson.992;
jump TotallyNotJson.990 TotallyNotJson.989;
else
jump TotallyNotJson.990 TotallyNotJson.214;
procedure TotallyNotJson.203 (TotallyNotJson.975, TotallyNotJson.976): procedure TotallyNotJson.204 (TotallyNotJson.978, TotallyNotJson.979):
let TotallyNotJson.209 : Str = StructAtIndex 0 TotallyNotJson.976; let TotallyNotJson.210 : Str = StructAtIndex 0 TotallyNotJson.979;
let TotallyNotJson.210 : Str = StructAtIndex 1 TotallyNotJson.976; let TotallyNotJson.211 : Str = StructAtIndex 1 TotallyNotJson.979;
let TotallyNotJson.207 : List U8 = StructAtIndex 0 TotallyNotJson.975; let TotallyNotJson.208 : List U8 = StructAtIndex 0 TotallyNotJson.978;
let TotallyNotJson.208 : U64 = StructAtIndex 1 TotallyNotJson.975; let TotallyNotJson.209 : U64 = StructAtIndex 1 TotallyNotJson.978;
let TotallyNotJson.1037 : I64 = 34i64; let TotallyNotJson.1052 : List U8 = Array [];
let TotallyNotJson.1036 : U8 = CallByName Num.127 TotallyNotJson.1037; let TotallyNotJson.1053 : {} = CallByName TotallyNotJson.8;
let TotallyNotJson.1034 : List U8 = CallByName List.4 TotallyNotJson.207 TotallyNotJson.1036; let TotallyNotJson.212 : List U8 = CallByName Encode.24 TotallyNotJson.1052 TotallyNotJson.211 TotallyNotJson.1053;
let TotallyNotJson.1035 : List U8 = CallByName Str.12 TotallyNotJson.209; let TotallyNotJson.1051 : List U8 = Array [];
let TotallyNotJson.1031 : List U8 = CallByName List.8 TotallyNotJson.1034 TotallyNotJson.1035; let TotallyNotJson.1047 : Int1 = CallByName Bool.11 TotallyNotJson.212 TotallyNotJson.1051;
let TotallyNotJson.1033 : I64 = 34i64; dec TotallyNotJson.1051;
let TotallyNotJson.1032 : U8 = CallByName Num.127 TotallyNotJson.1033; if TotallyNotJson.1047 then
let TotallyNotJson.1028 : List U8 = CallByName List.4 TotallyNotJson.1031 TotallyNotJson.1032; dec TotallyNotJson.210;
let TotallyNotJson.1030 : I64 = 58i64; dec TotallyNotJson.212;
let TotallyNotJson.1029 : U8 = CallByName Num.127 TotallyNotJson.1030; let TotallyNotJson.1050 : U64 = 1i64;
let TotallyNotJson.1026 : List U8 = CallByName List.4 TotallyNotJson.1028 TotallyNotJson.1029; let TotallyNotJson.1049 : U64 = CallByName Num.20 TotallyNotJson.209 TotallyNotJson.1050;
let TotallyNotJson.1027 : {} = Struct {}; let TotallyNotJson.1048 : {List U8, U64} = Struct {TotallyNotJson.208, TotallyNotJson.1049};
let TotallyNotJson.212 : List U8 = CallByName Encode.24 TotallyNotJson.1026 TotallyNotJson.210 TotallyNotJson.1027; ret TotallyNotJson.1048;
joinpoint TotallyNotJson.1021 TotallyNotJson.213:
let TotallyNotJson.1019 : U64 = 1i64;
let TotallyNotJson.1018 : U64 = CallByName Num.20 TotallyNotJson.208 TotallyNotJson.1019;
let TotallyNotJson.1017 : {List U8, U64} = Struct {TotallyNotJson.213, TotallyNotJson.1018};
ret TotallyNotJson.1017;
in
let TotallyNotJson.1025 : U64 = 1i64;
let TotallyNotJson.1022 : Int1 = CallByName Num.24 TotallyNotJson.208 TotallyNotJson.1025;
if TotallyNotJson.1022 then
let TotallyNotJson.1024 : I64 = 44i64;
let TotallyNotJson.1023 : U8 = CallByName Num.127 TotallyNotJson.1024;
let TotallyNotJson.1020 : List U8 = CallByName List.4 TotallyNotJson.212 TotallyNotJson.1023;
jump TotallyNotJson.1021 TotallyNotJson.1020;
else else
jump TotallyNotJson.1021 TotallyNotJson.212; let TotallyNotJson.1046 : I64 = 34i64;
let TotallyNotJson.1045 : U8 = CallByName Num.127 TotallyNotJson.1046;
let TotallyNotJson.1043 : List U8 = CallByName List.4 TotallyNotJson.208 TotallyNotJson.1045;
let TotallyNotJson.1044 : List U8 = CallByName Str.12 TotallyNotJson.210;
let TotallyNotJson.1040 : List U8 = CallByName List.8 TotallyNotJson.1043 TotallyNotJson.1044;
let TotallyNotJson.1042 : I64 = 34i64;
let TotallyNotJson.1041 : U8 = CallByName Num.127 TotallyNotJson.1042;
let TotallyNotJson.1037 : List U8 = CallByName List.4 TotallyNotJson.1040 TotallyNotJson.1041;
let TotallyNotJson.1039 : I64 = 58i64;
let TotallyNotJson.1038 : U8 = CallByName Num.127 TotallyNotJson.1039;
let TotallyNotJson.1036 : List U8 = CallByName List.4 TotallyNotJson.1037 TotallyNotJson.1038;
let TotallyNotJson.214 : List U8 = CallByName List.8 TotallyNotJson.1036 TotallyNotJson.212;
joinpoint TotallyNotJson.1031 TotallyNotJson.215:
let TotallyNotJson.1029 : U64 = 1i64;
let TotallyNotJson.1028 : U64 = CallByName Num.20 TotallyNotJson.209 TotallyNotJson.1029;
let TotallyNotJson.1027 : {List U8, U64} = Struct {TotallyNotJson.215, TotallyNotJson.1028};
ret TotallyNotJson.1027;
in
let TotallyNotJson.1035 : U64 = 1i64;
let TotallyNotJson.1032 : Int1 = CallByName Num.24 TotallyNotJson.209 TotallyNotJson.1035;
if TotallyNotJson.1032 then
let TotallyNotJson.1034 : I64 = 44i64;
let TotallyNotJson.1033 : U8 = CallByName Num.127 TotallyNotJson.1034;
let TotallyNotJson.1030 : List U8 = CallByName List.4 TotallyNotJson.214 TotallyNotJson.1033;
jump TotallyNotJson.1031 TotallyNotJson.1030;
else
jump TotallyNotJson.1031 TotallyNotJson.214;
procedure TotallyNotJson.25 (TotallyNotJson.149): procedure TotallyNotJson.25 (TotallyNotJson.149):
let TotallyNotJson.1041 : Str = CallByName Encode.23 TotallyNotJson.149; let TotallyNotJson.1058 : Str = CallByName Encode.23 TotallyNotJson.149;
ret TotallyNotJson.1041; ret TotallyNotJson.1058;
procedure TotallyNotJson.26 (TotallyNotJson.152): procedure TotallyNotJson.26 (TotallyNotJson.152):
let TotallyNotJson.153 : List U8 = CallByName Str.12 TotallyNotJson.152; let TotallyNotJson.153 : List U8 = CallByName Str.12 TotallyNotJson.152;
let TotallyNotJson.1123 : U64 = 0i64; let TotallyNotJson.1140 : U64 = 0i64;
let TotallyNotJson.1124 : Int1 = true; let TotallyNotJson.1141 : Int1 = true;
let TotallyNotJson.154 : {U64, Int1} = Struct {TotallyNotJson.1123, TotallyNotJson.1124}; let TotallyNotJson.154 : {U64, Int1} = Struct {TotallyNotJson.1140, TotallyNotJson.1141};
let TotallyNotJson.1093 : {} = Struct {}; let TotallyNotJson.1110 : {} = Struct {};
inc TotallyNotJson.153; inc TotallyNotJson.153;
let TotallyNotJson.155 : {U64, Int1} = CallByName List.26 TotallyNotJson.153 TotallyNotJson.154 TotallyNotJson.1093; let TotallyNotJson.155 : {U64, Int1} = CallByName List.26 TotallyNotJson.153 TotallyNotJson.154 TotallyNotJson.1110;
let TotallyNotJson.1047 : Int1 = StructAtIndex 1 TotallyNotJson.155; let TotallyNotJson.1064 : Int1 = StructAtIndex 1 TotallyNotJson.155;
let TotallyNotJson.1091 : Int1 = true; let TotallyNotJson.1108 : Int1 = true;
let TotallyNotJson.1092 : Int1 = lowlevel Eq TotallyNotJson.1091 TotallyNotJson.1047; let TotallyNotJson.1109 : Int1 = lowlevel Eq TotallyNotJson.1108 TotallyNotJson.1064;
if TotallyNotJson.1092 then if TotallyNotJson.1109 then
let TotallyNotJson.1057 : U64 = CallByName List.6 TotallyNotJson.153; let TotallyNotJson.1074 : U64 = CallByName List.6 TotallyNotJson.153;
let TotallyNotJson.1058 : U64 = 2i64; let TotallyNotJson.1075 : U64 = 2i64;
let TotallyNotJson.1056 : U64 = CallByName Num.19 TotallyNotJson.1057 TotallyNotJson.1058; let TotallyNotJson.1073 : U64 = CallByName Num.19 TotallyNotJson.1074 TotallyNotJson.1075;
let TotallyNotJson.1053 : List U8 = CallByName List.68 TotallyNotJson.1056; let TotallyNotJson.1070 : List U8 = CallByName List.68 TotallyNotJson.1073;
let TotallyNotJson.1055 : U8 = 34i64; let TotallyNotJson.1072 : U8 = 34i64;
let TotallyNotJson.1054 : List U8 = Array [TotallyNotJson.1055]; let TotallyNotJson.1071 : List U8 = Array [TotallyNotJson.1072];
let TotallyNotJson.1052 : List U8 = CallByName List.8 TotallyNotJson.1053 TotallyNotJson.1054; let TotallyNotJson.1069 : List U8 = CallByName List.8 TotallyNotJson.1070 TotallyNotJson.1071;
let TotallyNotJson.1049 : List U8 = CallByName List.8 TotallyNotJson.1052 TotallyNotJson.153; let TotallyNotJson.1066 : List U8 = CallByName List.8 TotallyNotJson.1069 TotallyNotJson.153;
let TotallyNotJson.1051 : U8 = 34i64; let TotallyNotJson.1068 : U8 = 34i64;
let TotallyNotJson.1050 : List U8 = Array [TotallyNotJson.1051]; let TotallyNotJson.1067 : List U8 = Array [TotallyNotJson.1068];
let TotallyNotJson.1048 : List U8 = CallByName List.8 TotallyNotJson.1049 TotallyNotJson.1050; let TotallyNotJson.1065 : List U8 = CallByName List.8 TotallyNotJson.1066 TotallyNotJson.1067;
ret TotallyNotJson.1048; ret TotallyNotJson.1065;
else else
inc TotallyNotJson.153; inc TotallyNotJson.153;
let TotallyNotJson.1090 : U64 = StructAtIndex 0 TotallyNotJson.155; let TotallyNotJson.1107 : U64 = StructAtIndex 0 TotallyNotJson.155;
let TotallyNotJson.1089 : {List U8, List U8} = CallByName List.52 TotallyNotJson.153 TotallyNotJson.1090; let TotallyNotJson.1106 : {List U8, List U8} = CallByName List.52 TotallyNotJson.153 TotallyNotJson.1107;
let TotallyNotJson.179 : List U8 = StructAtIndex 0 TotallyNotJson.1089; let TotallyNotJson.179 : List U8 = StructAtIndex 0 TotallyNotJson.1106;
let TotallyNotJson.181 : List U8 = StructAtIndex 1 TotallyNotJson.1089; let TotallyNotJson.181 : List U8 = StructAtIndex 1 TotallyNotJson.1106;
let TotallyNotJson.1087 : U64 = CallByName List.6 TotallyNotJson.153; let TotallyNotJson.1104 : U64 = CallByName List.6 TotallyNotJson.153;
dec TotallyNotJson.153; dec TotallyNotJson.153;
let TotallyNotJson.1088 : U64 = 120i64; let TotallyNotJson.1105 : U64 = 120i64;
let TotallyNotJson.1085 : U64 = CallByName Num.21 TotallyNotJson.1087 TotallyNotJson.1088; let TotallyNotJson.1102 : U64 = CallByName Num.21 TotallyNotJson.1104 TotallyNotJson.1105;
let TotallyNotJson.1086 : U64 = 100i64; let TotallyNotJson.1103 : U64 = 100i64;
let TotallyNotJson.1084 : U64 = CallByName Num.137 TotallyNotJson.1085 TotallyNotJson.1086; let TotallyNotJson.1101 : U64 = CallByName Num.137 TotallyNotJson.1102 TotallyNotJson.1103;
let TotallyNotJson.1081 : List U8 = CallByName List.68 TotallyNotJson.1084; let TotallyNotJson.1098 : List U8 = CallByName List.68 TotallyNotJson.1101;
let TotallyNotJson.1083 : U8 = 34i64; let TotallyNotJson.1100 : U8 = 34i64;
let TotallyNotJson.1082 : List U8 = Array [TotallyNotJson.1083]; let TotallyNotJson.1099 : List U8 = Array [TotallyNotJson.1100];
let TotallyNotJson.1080 : List U8 = CallByName List.8 TotallyNotJson.1081 TotallyNotJson.1082; let TotallyNotJson.1097 : List U8 = CallByName List.8 TotallyNotJson.1098 TotallyNotJson.1099;
let TotallyNotJson.182 : List U8 = CallByName List.8 TotallyNotJson.1080 TotallyNotJson.179; let TotallyNotJson.182 : List U8 = CallByName List.8 TotallyNotJson.1097 TotallyNotJson.179;
let TotallyNotJson.1063 : {} = Struct {}; let TotallyNotJson.1080 : {} = Struct {};
let TotallyNotJson.1060 : List U8 = CallByName List.18 TotallyNotJson.181 TotallyNotJson.182 TotallyNotJson.1063; let TotallyNotJson.1077 : List U8 = CallByName List.18 TotallyNotJson.181 TotallyNotJson.182 TotallyNotJson.1080;
let TotallyNotJson.1062 : U8 = 34i64; let TotallyNotJson.1079 : U8 = 34i64;
let TotallyNotJson.1061 : List U8 = Array [TotallyNotJson.1062]; let TotallyNotJson.1078 : List U8 = Array [TotallyNotJson.1079];
let TotallyNotJson.1059 : List U8 = CallByName List.8 TotallyNotJson.1060 TotallyNotJson.1061; let TotallyNotJson.1076 : List U8 = CallByName List.8 TotallyNotJson.1077 TotallyNotJson.1078;
ret TotallyNotJson.1059; ret TotallyNotJson.1076;
procedure TotallyNotJson.27 (TotallyNotJson.186): procedure TotallyNotJson.27 (TotallyNotJson.186):
switch TotallyNotJson.186: switch TotallyNotJson.186:
case 34: case 34:
let TotallyNotJson.1066 : List U8 = Array [92i64, 34i64]; let TotallyNotJson.1083 : List U8 = Array [92i64, 34i64];
ret TotallyNotJson.1066; ret TotallyNotJson.1083;
case 92: case 92:
let TotallyNotJson.1067 : List U8 = Array [92i64, 92i64]; let TotallyNotJson.1084 : List U8 = Array [92i64, 92i64];
ret TotallyNotJson.1067; ret TotallyNotJson.1084;
case 47: case 47:
let TotallyNotJson.1068 : List U8 = Array [92i64, 47i64]; let TotallyNotJson.1085 : List U8 = Array [92i64, 47i64];
ret TotallyNotJson.1068; ret TotallyNotJson.1085;
case 8: case 8:
let TotallyNotJson.1070 : U8 = 98i64; let TotallyNotJson.1087 : U8 = 98i64;
let TotallyNotJson.1069 : List U8 = Array [92i64, TotallyNotJson.1070]; let TotallyNotJson.1086 : List U8 = Array [92i64, TotallyNotJson.1087];
ret TotallyNotJson.1069; ret TotallyNotJson.1086;
case 12: case 12:
let TotallyNotJson.1072 : U8 = 102i64; let TotallyNotJson.1089 : U8 = 102i64;
let TotallyNotJson.1071 : List U8 = Array [92i64, TotallyNotJson.1072]; let TotallyNotJson.1088 : List U8 = Array [92i64, TotallyNotJson.1089];
ret TotallyNotJson.1071; ret TotallyNotJson.1088;
case 10: case 10:
let TotallyNotJson.1074 : U8 = 110i64; let TotallyNotJson.1091 : U8 = 110i64;
let TotallyNotJson.1073 : List U8 = Array [92i64, TotallyNotJson.1074]; let TotallyNotJson.1090 : List U8 = Array [92i64, TotallyNotJson.1091];
ret TotallyNotJson.1073; ret TotallyNotJson.1090;
case 13: case 13:
let TotallyNotJson.1076 : U8 = 114i64; let TotallyNotJson.1093 : U8 = 114i64;
let TotallyNotJson.1075 : List U8 = Array [92i64, TotallyNotJson.1076]; let TotallyNotJson.1092 : List U8 = Array [92i64, TotallyNotJson.1093];
ret TotallyNotJson.1075; ret TotallyNotJson.1092;
case 9: case 9:
let TotallyNotJson.1078 : U8 = 114i64; let TotallyNotJson.1095 : U8 = 114i64;
let TotallyNotJson.1077 : List U8 = Array [92i64, TotallyNotJson.1078]; let TotallyNotJson.1094 : List U8 = Array [92i64, TotallyNotJson.1095];
ret TotallyNotJson.1077; ret TotallyNotJson.1094;
default: default:
let TotallyNotJson.1079 : List U8 = Array [TotallyNotJson.186]; let TotallyNotJson.1096 : List U8 = Array [TotallyNotJson.186];
ret TotallyNotJson.1079; ret TotallyNotJson.1096;
procedure TotallyNotJson.29 (TotallyNotJson.200): procedure TotallyNotJson.29 (TotallyNotJson.201):
let TotallyNotJson.1007 : List {Str, Str} = CallByName Encode.23 TotallyNotJson.200; let TotallyNotJson.1017 : List {Str, Str} = CallByName Encode.23 TotallyNotJson.201;
ret TotallyNotJson.1007; ret TotallyNotJson.1017;
procedure TotallyNotJson.29 (TotallyNotJson.200): procedure TotallyNotJson.29 (TotallyNotJson.201):
let TotallyNotJson.971 : List {Str, Str} = CallByName Encode.23 TotallyNotJson.200; let TotallyNotJson.974 : List {Str, Str} = CallByName Encode.23 TotallyNotJson.201;
ret TotallyNotJson.971; ret TotallyNotJson.974;
procedure TotallyNotJson.8 (): procedure TotallyNotJson.8 ():
let TotallyNotJson.970 : {} = Struct {}; let TotallyNotJson.1054 : {} = Struct {};
ret TotallyNotJson.970; ret TotallyNotJson.1054;
procedure Test.0 (): procedure Test.0 ():
let Test.12 : Str = "bar"; let Test.12 : Str = "bar";

535
crates/compiler/test_mono/generated/encode_derived_record_one_field_string.txt generated
View file

@ -11,6 +11,10 @@ procedure #Derived.2 (#Derived.3, #Derived.4, #Derived.1):
let #Derived_gen.3 : List U8 = CallByName Encode.24 #Derived.3 #Derived_gen.4 #Derived.4; let #Derived_gen.3 : List U8 = CallByName Encode.24 #Derived.3 #Derived_gen.4 #Derived.4;
ret #Derived_gen.3; ret #Derived_gen.3;
procedure Bool.11 (#Attr.2, #Attr.3):
let Bool.23 : Int1 = lowlevel Eq #Attr.2 #Attr.3;
ret Bool.23;
procedure Encode.23 (Encode.98): procedure Encode.23 (Encode.98):
ret Encode.98; ret Encode.98;
@ -25,7 +29,7 @@ procedure Encode.24 (Encode.99, Encode.107, Encode.101):
ret Encode.111; ret Encode.111;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
let Encode.113 : List U8 = CallByName TotallyNotJson.201 Encode.99 Encode.101 Encode.107; let Encode.113 : List U8 = CallByName TotallyNotJson.202 Encode.99 Encode.101 Encode.107;
ret Encode.113; ret Encode.113;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
@ -39,10 +43,10 @@ procedure Encode.26 (Encode.105, Encode.106):
ret Encode.108; ret Encode.108;
procedure List.103 (List.487, List.488, List.489): procedure List.103 (List.487, List.488, List.489):
let List.649 : U64 = 0i64; let List.650 : U64 = 0i64;
let List.650 : U64 = CallByName List.6 List.487; let List.651 : U64 = CallByName List.6 List.487;
let List.648 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.80 List.487 List.488 List.489 List.649 List.650; let List.649 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.80 List.487 List.488 List.489 List.650 List.651;
ret List.648; ret List.649;
procedure List.18 (List.159, List.160, List.161): procedure List.18 (List.159, List.160, List.161):
let List.593 : U64 = 0i64; let List.593 : U64 = 0i64;
@ -57,15 +61,15 @@ procedure List.18 (List.159, List.160, List.161):
ret List.604; ret List.604;
procedure List.26 (List.200, List.201, List.202): procedure List.26 (List.200, List.201, List.202):
let List.642 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.103 List.200 List.201 List.202; let List.643 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.103 List.200 List.201 List.202;
let List.645 : U8 = 1i64; let List.646 : U8 = 1i64;
let List.646 : U8 = GetTagId List.642; let List.647 : U8 = GetTagId List.643;
let List.647 : Int1 = lowlevel Eq List.645 List.646; let List.648 : Int1 = lowlevel Eq List.646 List.647;
if List.647 then if List.648 then
let List.203 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.642; let List.203 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.643;
ret List.203; ret List.203;
else else
let List.204 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.642; let List.204 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.643;
ret List.204; ret List.204;
procedure List.4 (List.123, List.124): procedure List.4 (List.123, List.124):
@ -75,37 +79,37 @@ procedure List.4 (List.123, List.124):
ret List.589; ret List.589;
procedure List.49 (List.419, List.420): procedure List.49 (List.419, List.420):
let List.633 : U64 = StructAtIndex 1 List.420; let List.634 : U64 = StructAtIndex 1 List.420;
let List.634 : U64 = StructAtIndex 0 List.420; let List.635 : U64 = StructAtIndex 0 List.420;
let List.632 : List U8 = CallByName List.72 List.419 List.633 List.634; let List.633 : List U8 = CallByName List.72 List.419 List.634 List.635;
ret List.632; ret List.633;
procedure List.52 (List.434, List.435): procedure List.52 (List.434, List.435):
let List.436 : U64 = CallByName List.6 List.434; let List.436 : U64 = CallByName List.6 List.434;
joinpoint List.640 List.437: joinpoint List.641 List.437:
let List.638 : U64 = 0i64; let List.639 : U64 = 0i64;
let List.637 : {U64, U64} = Struct {List.437, List.638}; let List.638 : {U64, U64} = Struct {List.437, List.639};
inc List.434; inc List.434;
let List.438 : List U8 = CallByName List.49 List.434 List.637; let List.438 : List U8 = CallByName List.49 List.434 List.638;
let List.636 : U64 = CallByName Num.75 List.436 List.437; let List.637 : U64 = CallByName Num.75 List.436 List.437;
let List.631 : {U64, U64} = Struct {List.636, List.437}; let List.632 : {U64, U64} = Struct {List.637, List.437};
let List.439 : List U8 = CallByName List.49 List.434 List.631; let List.439 : List U8 = CallByName List.49 List.434 List.632;
let List.630 : {List U8, List U8} = Struct {List.438, List.439}; let List.631 : {List U8, List U8} = Struct {List.438, List.439};
ret List.630; ret List.631;
in in
let List.641 : Int1 = CallByName Num.24 List.436 List.435; let List.642 : Int1 = CallByName Num.24 List.436 List.435;
if List.641 then if List.642 then
jump List.640 List.435; jump List.641 List.435;
else else
jump List.640 List.436; jump List.641 List.436;
procedure List.6 (#Attr.2): procedure List.6 (#Attr.2):
let List.625 : U64 = lowlevel ListLenU64 #Attr.2; let List.626 : U64 = lowlevel ListLenU64 #Attr.2;
ret List.625; ret List.626;
procedure List.6 (#Attr.2): procedure List.6 (#Attr.2):
let List.627 : U64 = lowlevel ListLenU64 #Attr.2; let List.628 : U64 = lowlevel ListLenU64 #Attr.2;
ret List.627; ret List.628;
procedure List.66 (#Attr.2, #Attr.3): procedure List.66 (#Attr.2, #Attr.3):
let List.602 : {Str, Str} = lowlevel ListGetUnsafe #Attr.2 #Attr.3; let List.602 : {Str, Str} = lowlevel ListGetUnsafe #Attr.2 #Attr.3;
@ -116,8 +120,8 @@ procedure List.66 (#Attr.2, #Attr.3):
ret List.614; ret List.614;
procedure List.68 (#Attr.2): procedure List.68 (#Attr.2):
let List.629 : List U8 = lowlevel ListWithCapacity #Attr.2; let List.630 : List U8 = lowlevel ListWithCapacity #Attr.2;
ret List.629; ret List.630;
procedure List.70 (#Attr.2, #Attr.3): procedure List.70 (#Attr.2, #Attr.3):
let List.576 : List U8 = lowlevel ListReserve #Attr.2 #Attr.3; let List.576 : List U8 = lowlevel ListReserve #Attr.2 #Attr.3;
@ -128,40 +132,40 @@ procedure List.71 (#Attr.2, #Attr.3):
ret List.574; ret List.574;
procedure List.72 (#Attr.2, #Attr.3, #Attr.4): procedure List.72 (#Attr.2, #Attr.3, #Attr.4):
let List.635 : List U8 = lowlevel ListSublist #Attr.2 #Attr.3 #Attr.4; let List.636 : List U8 = lowlevel ListSublist #Attr.2 #Attr.3 #Attr.4;
ret List.635; ret List.636;
procedure List.8 (#Attr.2, #Attr.3): procedure List.8 (#Attr.2, #Attr.3):
let List.624 : List U8 = lowlevel ListConcat #Attr.2 #Attr.3; let List.625 : List U8 = lowlevel ListConcat #Attr.2 #Attr.3;
ret List.624; ret List.625;
procedure List.80 (#Derived_gen.16, #Derived_gen.17, #Derived_gen.18, #Derived_gen.19, #Derived_gen.20): procedure List.80 (#Derived_gen.18, #Derived_gen.19, #Derived_gen.20, #Derived_gen.21, #Derived_gen.22):
joinpoint List.651 List.490 List.491 List.492 List.493 List.494: joinpoint List.652 List.490 List.491 List.492 List.493 List.494:
let List.653 : Int1 = CallByName Num.22 List.493 List.494; let List.654 : Int1 = CallByName Num.22 List.493 List.494;
if List.653 then if List.654 then
let List.662 : U8 = CallByName List.66 List.490 List.493; let List.663 : U8 = CallByName List.66 List.490 List.493;
let List.654 : [C {U64, Int1}, C {U64, Int1}] = CallByName TotallyNotJson.157 List.491 List.662; let List.655 : [C {U64, Int1}, C {U64, Int1}] = CallByName TotallyNotJson.157 List.491 List.663;
let List.659 : U8 = 1i64; let List.660 : U8 = 1i64;
let List.660 : U8 = GetTagId List.654; let List.661 : U8 = GetTagId List.655;
let List.661 : Int1 = lowlevel Eq List.659 List.660; let List.662 : Int1 = lowlevel Eq List.660 List.661;
if List.661 then if List.662 then
let List.495 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.654; let List.495 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.655;
let List.657 : U64 = 1i64; let List.658 : U64 = 1i64;
let List.656 : U64 = CallByName Num.51 List.493 List.657; let List.657 : U64 = CallByName Num.51 List.493 List.658;
jump List.651 List.490 List.495 List.492 List.656 List.494; jump List.652 List.490 List.495 List.492 List.657 List.494;
else else
dec List.490; dec List.490;
let List.496 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.654; let List.496 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.655;
let List.658 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) List.496; let List.659 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) List.496;
ret List.658; ret List.659;
else else
dec List.490; dec List.490;
let List.652 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) List.491; let List.653 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) List.491;
ret List.652; ret List.653;
in in
jump List.651 #Derived_gen.16 #Derived_gen.17 #Derived_gen.18 #Derived_gen.19 #Derived_gen.20; jump List.652 #Derived_gen.18 #Derived_gen.19 #Derived_gen.20 #Derived_gen.21 #Derived_gen.22;
procedure List.91 (#Derived_gen.21, #Derived_gen.22, #Derived_gen.23, #Derived_gen.24, #Derived_gen.25): procedure List.91 (#Derived_gen.13, #Derived_gen.14, #Derived_gen.15, #Derived_gen.16, #Derived_gen.17):
joinpoint List.607 List.162 List.163 List.164 List.165 List.166: joinpoint List.607 List.162 List.163 List.164 List.165 List.166:
let List.609 : Int1 = CallByName Num.22 List.165 List.166; let List.609 : Int1 = CallByName Num.22 List.165 List.166;
if List.609 then if List.609 then
@ -174,15 +178,15 @@ procedure List.91 (#Derived_gen.21, #Derived_gen.22, #Derived_gen.23, #Derived_g
dec List.162; dec List.162;
ret List.163; ret List.163;
in in
jump List.607 #Derived_gen.21 #Derived_gen.22 #Derived_gen.23 #Derived_gen.24 #Derived_gen.25; jump List.607 #Derived_gen.13 #Derived_gen.14 #Derived_gen.15 #Derived_gen.16 #Derived_gen.17;
procedure List.91 (#Derived_gen.26, #Derived_gen.27, #Derived_gen.28, #Derived_gen.29, #Derived_gen.30): procedure List.91 (#Derived_gen.23, #Derived_gen.24, #Derived_gen.25, #Derived_gen.26, #Derived_gen.27):
joinpoint List.595 List.162 List.163 List.164 List.165 List.166: joinpoint List.595 List.162 List.163 List.164 List.165 List.166:
let List.597 : Int1 = CallByName Num.22 List.165 List.166; let List.597 : Int1 = CallByName Num.22 List.165 List.166;
if List.597 then if List.597 then
let List.601 : {Str, Str} = CallByName List.66 List.162 List.165; let List.601 : {Str, Str} = CallByName List.66 List.162 List.165;
inc List.601; inc List.601;
let List.167 : {List U8, U64} = CallByName TotallyNotJson.203 List.163 List.601; let List.167 : {List U8, U64} = CallByName TotallyNotJson.204 List.163 List.601;
let List.600 : U64 = 1i64; let List.600 : U64 = 1i64;
let List.599 : U64 = CallByName Num.51 List.165 List.600; let List.599 : U64 = CallByName Num.51 List.165 List.600;
jump List.595 List.162 List.167 List.164 List.599 List.166; jump List.595 List.162 List.167 List.164 List.599 List.166;
@ -190,43 +194,43 @@ procedure List.91 (#Derived_gen.26, #Derived_gen.27, #Derived_gen.28, #Derived_g
dec List.162; dec List.162;
ret List.163; ret List.163;
in in
jump List.595 #Derived_gen.26 #Derived_gen.27 #Derived_gen.28 #Derived_gen.29 #Derived_gen.30; jump List.595 #Derived_gen.23 #Derived_gen.24 #Derived_gen.25 #Derived_gen.26 #Derived_gen.27;
procedure Num.127 (#Attr.2): procedure Num.127 (#Attr.2):
let Num.280 : U8 = lowlevel NumIntCast #Attr.2; let Num.280 : U8 = lowlevel NumIntCast #Attr.2;
ret Num.280; ret Num.280;
procedure Num.137 (#Attr.2, #Attr.3): procedure Num.137 (#Attr.2, #Attr.3):
let Num.285 : U64 = lowlevel NumDivCeilUnchecked #Attr.2 #Attr.3; let Num.286 : U64 = lowlevel NumDivCeilUnchecked #Attr.2 #Attr.3;
ret Num.285;
procedure Num.19 (#Attr.2, #Attr.3):
let Num.284 : U64 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Num.284;
procedure Num.20 (#Attr.2, #Attr.3):
let Num.281 : U64 = lowlevel NumSub #Attr.2 #Attr.3;
ret Num.281;
procedure Num.21 (#Attr.2, #Attr.3):
let Num.286 : U64 = lowlevel NumMul #Attr.2 #Attr.3;
ret Num.286; ret Num.286;
procedure Num.19 (#Attr.2, #Attr.3):
let Num.285 : U64 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Num.285;
procedure Num.20 (#Attr.2, #Attr.3):
let Num.282 : U64 = lowlevel NumSub #Attr.2 #Attr.3;
ret Num.282;
procedure Num.21 (#Attr.2, #Attr.3):
let Num.287 : U64 = lowlevel NumMul #Attr.2 #Attr.3;
ret Num.287;
procedure Num.22 (#Attr.2, #Attr.3): procedure Num.22 (#Attr.2, #Attr.3):
let Num.292 : Int1 = lowlevel NumLt #Attr.2 #Attr.3; let Num.293 : Int1 = lowlevel NumLt #Attr.2 #Attr.3;
ret Num.292; ret Num.293;
procedure Num.24 (#Attr.2, #Attr.3): procedure Num.24 (#Attr.2, #Attr.3):
let Num.294 : Int1 = lowlevel NumGt #Attr.2 #Attr.3; let Num.295 : Int1 = lowlevel NumGt #Attr.2 #Attr.3;
ret Num.294; ret Num.295;
procedure Num.51 (#Attr.2, #Attr.3): procedure Num.51 (#Attr.2, #Attr.3):
let Num.289 : U64 = lowlevel NumAddWrap #Attr.2 #Attr.3; let Num.290 : U64 = lowlevel NumAddWrap #Attr.2 #Attr.3;
ret Num.289; ret Num.290;
procedure Num.75 (#Attr.2, #Attr.3): procedure Num.75 (#Attr.2, #Attr.3):
let Num.293 : U64 = lowlevel NumSubWrap #Attr.2 #Attr.3; let Num.294 : U64 = lowlevel NumSubWrap #Attr.2 #Attr.3;
ret Num.293; ret Num.294;
procedure Str.12 (#Attr.2): procedure Str.12 (#Attr.2):
let Str.241 : List U8 = lowlevel StrToUtf8 #Attr.2; let Str.241 : List U8 = lowlevel StrToUtf8 #Attr.2;
@ -252,227 +256,240 @@ procedure Str.9 (Str.67):
let Str.232 : [C {U64, U8}, C Str] = TagId(0) Str.233; let Str.232 : [C {U64, U8}, C Str] = TagId(0) Str.233;
ret Str.232; ret Str.232;
procedure TotallyNotJson.150 (TotallyNotJson.151, TotallyNotJson.1009, TotallyNotJson.149): procedure TotallyNotJson.150 (TotallyNotJson.151, TotallyNotJson.1019, TotallyNotJson.149):
let TotallyNotJson.1012 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.149; let TotallyNotJson.1022 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.149;
let TotallyNotJson.1011 : List U8 = CallByName List.8 TotallyNotJson.151 TotallyNotJson.1012; let TotallyNotJson.1021 : List U8 = CallByName List.8 TotallyNotJson.151 TotallyNotJson.1022;
ret TotallyNotJson.1011; ret TotallyNotJson.1021;
procedure TotallyNotJson.157 (TotallyNotJson.1060, TotallyNotJson.160): procedure TotallyNotJson.157 (TotallyNotJson.1070, TotallyNotJson.160):
let TotallyNotJson.158 : U64 = StructAtIndex 0 TotallyNotJson.1060; let TotallyNotJson.158 : U64 = StructAtIndex 0 TotallyNotJson.1070;
let TotallyNotJson.159 : Int1 = StructAtIndex 1 TotallyNotJson.1060; let TotallyNotJson.159 : Int1 = StructAtIndex 1 TotallyNotJson.1070;
switch TotallyNotJson.160: switch TotallyNotJson.160:
case 34: case 34:
let TotallyNotJson.1063 : Int1 = false; let TotallyNotJson.1073 : Int1 = false;
let TotallyNotJson.1062 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1063}; let TotallyNotJson.1072 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1073};
let TotallyNotJson.1061 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1062; let TotallyNotJson.1071 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1072;
ret TotallyNotJson.1061; ret TotallyNotJson.1071;
case 92: case 92:
let TotallyNotJson.1066 : Int1 = false; let TotallyNotJson.1076 : Int1 = false;
let TotallyNotJson.1065 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1066}; let TotallyNotJson.1075 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1076};
let TotallyNotJson.1064 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1065; let TotallyNotJson.1074 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1075;
ret TotallyNotJson.1064; ret TotallyNotJson.1074;
case 47: case 47:
let TotallyNotJson.1069 : Int1 = false; let TotallyNotJson.1079 : Int1 = false;
let TotallyNotJson.1068 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1069}; let TotallyNotJson.1078 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1079};
let TotallyNotJson.1067 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1068; let TotallyNotJson.1077 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1078;
ret TotallyNotJson.1067; ret TotallyNotJson.1077;
case 8: case 8:
let TotallyNotJson.1072 : Int1 = false; let TotallyNotJson.1082 : Int1 = false;
let TotallyNotJson.1071 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1072}; let TotallyNotJson.1081 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1082};
let TotallyNotJson.1070 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1071; let TotallyNotJson.1080 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1081;
ret TotallyNotJson.1070; ret TotallyNotJson.1080;
case 12: case 12:
let TotallyNotJson.1075 : Int1 = false; let TotallyNotJson.1085 : Int1 = false;
let TotallyNotJson.1074 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1075}; let TotallyNotJson.1084 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1085};
let TotallyNotJson.1073 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1074; let TotallyNotJson.1083 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1084;
ret TotallyNotJson.1073; ret TotallyNotJson.1083;
case 10: case 10:
let TotallyNotJson.1078 : Int1 = false; let TotallyNotJson.1088 : Int1 = false;
let TotallyNotJson.1077 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1078}; let TotallyNotJson.1087 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1088};
let TotallyNotJson.1076 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1077; let TotallyNotJson.1086 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1087;
ret TotallyNotJson.1076; ret TotallyNotJson.1086;
case 13: case 13:
let TotallyNotJson.1081 : Int1 = false; let TotallyNotJson.1091 : Int1 = false;
let TotallyNotJson.1080 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1081}; let TotallyNotJson.1090 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1091};
let TotallyNotJson.1079 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1080; let TotallyNotJson.1089 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1090;
ret TotallyNotJson.1079; ret TotallyNotJson.1089;
case 9: case 9:
let TotallyNotJson.1084 : Int1 = false; let TotallyNotJson.1094 : Int1 = false;
let TotallyNotJson.1083 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1084}; let TotallyNotJson.1093 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1094};
let TotallyNotJson.1082 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1083; let TotallyNotJson.1092 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1093;
ret TotallyNotJson.1082; ret TotallyNotJson.1092;
default: default:
let TotallyNotJson.1088 : U64 = 1i64; let TotallyNotJson.1098 : U64 = 1i64;
let TotallyNotJson.1087 : U64 = CallByName Num.19 TotallyNotJson.158 TotallyNotJson.1088; let TotallyNotJson.1097 : U64 = CallByName Num.19 TotallyNotJson.158 TotallyNotJson.1098;
let TotallyNotJson.1086 : {U64, Int1} = Struct {TotallyNotJson.1087, TotallyNotJson.159}; let TotallyNotJson.1096 : {U64, Int1} = Struct {TotallyNotJson.1097, TotallyNotJson.159};
let TotallyNotJson.1085 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) TotallyNotJson.1086; let TotallyNotJson.1095 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) TotallyNotJson.1096;
ret TotallyNotJson.1085; ret TotallyNotJson.1095;
procedure TotallyNotJson.183 (TotallyNotJson.184, TotallyNotJson.185): procedure TotallyNotJson.183 (TotallyNotJson.184, TotallyNotJson.185):
let TotallyNotJson.1031 : List U8 = CallByName TotallyNotJson.27 TotallyNotJson.185; let TotallyNotJson.1041 : List U8 = CallByName TotallyNotJson.27 TotallyNotJson.185;
let TotallyNotJson.1030 : List U8 = CallByName List.8 TotallyNotJson.184 TotallyNotJson.1031; let TotallyNotJson.1040 : List U8 = CallByName List.8 TotallyNotJson.184 TotallyNotJson.1041;
ret TotallyNotJson.1030; ret TotallyNotJson.1040;
procedure TotallyNotJson.201 (TotallyNotJson.202, TotallyNotJson.973, TotallyNotJson.200): procedure TotallyNotJson.202 (TotallyNotJson.203, TotallyNotJson.976, TotallyNotJson.201):
let TotallyNotJson.1006 : I64 = 123i64; let TotallyNotJson.1016 : I64 = 123i64;
let TotallyNotJson.1005 : U8 = CallByName Num.127 TotallyNotJson.1006; let TotallyNotJson.1015 : U8 = CallByName Num.127 TotallyNotJson.1016;
let TotallyNotJson.204 : List U8 = CallByName List.4 TotallyNotJson.202 TotallyNotJson.1005; let TotallyNotJson.205 : List U8 = CallByName List.4 TotallyNotJson.203 TotallyNotJson.1015;
let TotallyNotJson.1004 : U64 = CallByName List.6 TotallyNotJson.200; let TotallyNotJson.1014 : U64 = CallByName List.6 TotallyNotJson.201;
let TotallyNotJson.981 : {List U8, U64} = Struct {TotallyNotJson.204, TotallyNotJson.1004}; let TotallyNotJson.984 : {List U8, U64} = Struct {TotallyNotJson.205, TotallyNotJson.1014};
let TotallyNotJson.982 : {} = Struct {}; let TotallyNotJson.985 : {} = Struct {};
let TotallyNotJson.980 : {List U8, U64} = CallByName List.18 TotallyNotJson.200 TotallyNotJson.981 TotallyNotJson.982; let TotallyNotJson.983 : {List U8, U64} = CallByName List.18 TotallyNotJson.201 TotallyNotJson.984 TotallyNotJson.985;
let TotallyNotJson.206 : List U8 = StructAtIndex 0 TotallyNotJson.980; let TotallyNotJson.207 : List U8 = StructAtIndex 0 TotallyNotJson.983;
let TotallyNotJson.979 : I64 = 125i64; let TotallyNotJson.982 : I64 = 125i64;
let TotallyNotJson.978 : U8 = CallByName Num.127 TotallyNotJson.979; let TotallyNotJson.981 : U8 = CallByName Num.127 TotallyNotJson.982;
let TotallyNotJson.977 : List U8 = CallByName List.4 TotallyNotJson.206 TotallyNotJson.978; let TotallyNotJson.980 : List U8 = CallByName List.4 TotallyNotJson.207 TotallyNotJson.981;
ret TotallyNotJson.977; ret TotallyNotJson.980;
procedure TotallyNotJson.203 (TotallyNotJson.975, TotallyNotJson.976): procedure TotallyNotJson.204 (TotallyNotJson.978, TotallyNotJson.979):
let TotallyNotJson.209 : Str = StructAtIndex 0 TotallyNotJson.976; let TotallyNotJson.210 : Str = StructAtIndex 0 TotallyNotJson.979;
let TotallyNotJson.210 : Str = StructAtIndex 1 TotallyNotJson.976; let TotallyNotJson.211 : Str = StructAtIndex 1 TotallyNotJson.979;
let TotallyNotJson.207 : List U8 = StructAtIndex 0 TotallyNotJson.975; let TotallyNotJson.208 : List U8 = StructAtIndex 0 TotallyNotJson.978;
let TotallyNotJson.208 : U64 = StructAtIndex 1 TotallyNotJson.975; let TotallyNotJson.209 : U64 = StructAtIndex 1 TotallyNotJson.978;
let TotallyNotJson.1003 : I64 = 34i64; let TotallyNotJson.1011 : List U8 = Array [];
let TotallyNotJson.1002 : U8 = CallByName Num.127 TotallyNotJson.1003; let TotallyNotJson.1012 : {} = CallByName TotallyNotJson.8;
let TotallyNotJson.1000 : List U8 = CallByName List.4 TotallyNotJson.207 TotallyNotJson.1002; let TotallyNotJson.212 : List U8 = CallByName Encode.24 TotallyNotJson.1011 TotallyNotJson.211 TotallyNotJson.1012;
let TotallyNotJson.1001 : List U8 = CallByName Str.12 TotallyNotJson.209; let TotallyNotJson.1010 : List U8 = Array [];
let TotallyNotJson.997 : List U8 = CallByName List.8 TotallyNotJson.1000 TotallyNotJson.1001; let TotallyNotJson.1006 : Int1 = CallByName Bool.11 TotallyNotJson.212 TotallyNotJson.1010;
let TotallyNotJson.999 : I64 = 34i64; dec TotallyNotJson.1010;
let TotallyNotJson.998 : U8 = CallByName Num.127 TotallyNotJson.999; if TotallyNotJson.1006 then
let TotallyNotJson.994 : List U8 = CallByName List.4 TotallyNotJson.997 TotallyNotJson.998; dec TotallyNotJson.210;
let TotallyNotJson.996 : I64 = 58i64; dec TotallyNotJson.212;
let TotallyNotJson.995 : U8 = CallByName Num.127 TotallyNotJson.996; let TotallyNotJson.1009 : U64 = 1i64;
let TotallyNotJson.992 : List U8 = CallByName List.4 TotallyNotJson.994 TotallyNotJson.995; let TotallyNotJson.1008 : U64 = CallByName Num.20 TotallyNotJson.209 TotallyNotJson.1009;
let TotallyNotJson.993 : {} = Struct {}; let TotallyNotJson.1007 : {List U8, U64} = Struct {TotallyNotJson.208, TotallyNotJson.1008};
let TotallyNotJson.212 : List U8 = CallByName Encode.24 TotallyNotJson.992 TotallyNotJson.210 TotallyNotJson.993; ret TotallyNotJson.1007;
joinpoint TotallyNotJson.987 TotallyNotJson.213:
let TotallyNotJson.985 : U64 = 1i64;
let TotallyNotJson.984 : U64 = CallByName Num.20 TotallyNotJson.208 TotallyNotJson.985;
let TotallyNotJson.983 : {List U8, U64} = Struct {TotallyNotJson.213, TotallyNotJson.984};
ret TotallyNotJson.983;
in
let TotallyNotJson.991 : U64 = 1i64;
let TotallyNotJson.988 : Int1 = CallByName Num.24 TotallyNotJson.208 TotallyNotJson.991;
if TotallyNotJson.988 then
let TotallyNotJson.990 : I64 = 44i64;
let TotallyNotJson.989 : U8 = CallByName Num.127 TotallyNotJson.990;
let TotallyNotJson.986 : List U8 = CallByName List.4 TotallyNotJson.212 TotallyNotJson.989;
jump TotallyNotJson.987 TotallyNotJson.986;
else else
jump TotallyNotJson.987 TotallyNotJson.212; let TotallyNotJson.1005 : I64 = 34i64;
let TotallyNotJson.1004 : U8 = CallByName Num.127 TotallyNotJson.1005;
let TotallyNotJson.1002 : List U8 = CallByName List.4 TotallyNotJson.208 TotallyNotJson.1004;
let TotallyNotJson.1003 : List U8 = CallByName Str.12 TotallyNotJson.210;
let TotallyNotJson.999 : List U8 = CallByName List.8 TotallyNotJson.1002 TotallyNotJson.1003;
let TotallyNotJson.1001 : I64 = 34i64;
let TotallyNotJson.1000 : U8 = CallByName Num.127 TotallyNotJson.1001;
let TotallyNotJson.996 : List U8 = CallByName List.4 TotallyNotJson.999 TotallyNotJson.1000;
let TotallyNotJson.998 : I64 = 58i64;
let TotallyNotJson.997 : U8 = CallByName Num.127 TotallyNotJson.998;
let TotallyNotJson.995 : List U8 = CallByName List.4 TotallyNotJson.996 TotallyNotJson.997;
let TotallyNotJson.214 : List U8 = CallByName List.8 TotallyNotJson.995 TotallyNotJson.212;
joinpoint TotallyNotJson.990 TotallyNotJson.215:
let TotallyNotJson.988 : U64 = 1i64;
let TotallyNotJson.987 : U64 = CallByName Num.20 TotallyNotJson.209 TotallyNotJson.988;
let TotallyNotJson.986 : {List U8, U64} = Struct {TotallyNotJson.215, TotallyNotJson.987};
ret TotallyNotJson.986;
in
let TotallyNotJson.994 : U64 = 1i64;
let TotallyNotJson.991 : Int1 = CallByName Num.24 TotallyNotJson.209 TotallyNotJson.994;
if TotallyNotJson.991 then
let TotallyNotJson.993 : I64 = 44i64;
let TotallyNotJson.992 : U8 = CallByName Num.127 TotallyNotJson.993;
let TotallyNotJson.989 : List U8 = CallByName List.4 TotallyNotJson.214 TotallyNotJson.992;
jump TotallyNotJson.990 TotallyNotJson.989;
else
jump TotallyNotJson.990 TotallyNotJson.214;
procedure TotallyNotJson.25 (TotallyNotJson.149): procedure TotallyNotJson.25 (TotallyNotJson.149):
let TotallyNotJson.1007 : Str = CallByName Encode.23 TotallyNotJson.149; let TotallyNotJson.1017 : Str = CallByName Encode.23 TotallyNotJson.149;
ret TotallyNotJson.1007; ret TotallyNotJson.1017;
procedure TotallyNotJson.26 (TotallyNotJson.152): procedure TotallyNotJson.26 (TotallyNotJson.152):
let TotallyNotJson.153 : List U8 = CallByName Str.12 TotallyNotJson.152; let TotallyNotJson.153 : List U8 = CallByName Str.12 TotallyNotJson.152;
let TotallyNotJson.1089 : U64 = 0i64; let TotallyNotJson.1099 : U64 = 0i64;
let TotallyNotJson.1090 : Int1 = true; let TotallyNotJson.1100 : Int1 = true;
let TotallyNotJson.154 : {U64, Int1} = Struct {TotallyNotJson.1089, TotallyNotJson.1090}; let TotallyNotJson.154 : {U64, Int1} = Struct {TotallyNotJson.1099, TotallyNotJson.1100};
let TotallyNotJson.1059 : {} = Struct {}; let TotallyNotJson.1069 : {} = Struct {};
inc TotallyNotJson.153; inc TotallyNotJson.153;
let TotallyNotJson.155 : {U64, Int1} = CallByName List.26 TotallyNotJson.153 TotallyNotJson.154 TotallyNotJson.1059; let TotallyNotJson.155 : {U64, Int1} = CallByName List.26 TotallyNotJson.153 TotallyNotJson.154 TotallyNotJson.1069;
let TotallyNotJson.1013 : Int1 = StructAtIndex 1 TotallyNotJson.155; let TotallyNotJson.1023 : Int1 = StructAtIndex 1 TotallyNotJson.155;
let TotallyNotJson.1057 : Int1 = true; let TotallyNotJson.1067 : Int1 = true;
let TotallyNotJson.1058 : Int1 = lowlevel Eq TotallyNotJson.1057 TotallyNotJson.1013; let TotallyNotJson.1068 : Int1 = lowlevel Eq TotallyNotJson.1067 TotallyNotJson.1023;
if TotallyNotJson.1058 then if TotallyNotJson.1068 then
let TotallyNotJson.1023 : U64 = CallByName List.6 TotallyNotJson.153; let TotallyNotJson.1033 : U64 = CallByName List.6 TotallyNotJson.153;
let TotallyNotJson.1024 : U64 = 2i64; let TotallyNotJson.1034 : U64 = 2i64;
let TotallyNotJson.1022 : U64 = CallByName Num.19 TotallyNotJson.1023 TotallyNotJson.1024; let TotallyNotJson.1032 : U64 = CallByName Num.19 TotallyNotJson.1033 TotallyNotJson.1034;
let TotallyNotJson.1019 : List U8 = CallByName List.68 TotallyNotJson.1022; let TotallyNotJson.1029 : List U8 = CallByName List.68 TotallyNotJson.1032;
let TotallyNotJson.1021 : U8 = 34i64; let TotallyNotJson.1031 : U8 = 34i64;
let TotallyNotJson.1020 : List U8 = Array [TotallyNotJson.1021]; let TotallyNotJson.1030 : List U8 = Array [TotallyNotJson.1031];
let TotallyNotJson.1018 : List U8 = CallByName List.8 TotallyNotJson.1019 TotallyNotJson.1020; let TotallyNotJson.1028 : List U8 = CallByName List.8 TotallyNotJson.1029 TotallyNotJson.1030;
let TotallyNotJson.1015 : List U8 = CallByName List.8 TotallyNotJson.1018 TotallyNotJson.153; let TotallyNotJson.1025 : List U8 = CallByName List.8 TotallyNotJson.1028 TotallyNotJson.153;
let TotallyNotJson.1017 : U8 = 34i64; let TotallyNotJson.1027 : U8 = 34i64;
let TotallyNotJson.1016 : List U8 = Array [TotallyNotJson.1017]; let TotallyNotJson.1026 : List U8 = Array [TotallyNotJson.1027];
let TotallyNotJson.1014 : List U8 = CallByName List.8 TotallyNotJson.1015 TotallyNotJson.1016; let TotallyNotJson.1024 : List U8 = CallByName List.8 TotallyNotJson.1025 TotallyNotJson.1026;
ret TotallyNotJson.1014; ret TotallyNotJson.1024;
else else
inc TotallyNotJson.153; inc TotallyNotJson.153;
let TotallyNotJson.1056 : U64 = StructAtIndex 0 TotallyNotJson.155; let TotallyNotJson.1066 : U64 = StructAtIndex 0 TotallyNotJson.155;
let TotallyNotJson.1055 : {List U8, List U8} = CallByName List.52 TotallyNotJson.153 TotallyNotJson.1056; let TotallyNotJson.1065 : {List U8, List U8} = CallByName List.52 TotallyNotJson.153 TotallyNotJson.1066;
let TotallyNotJson.179 : List U8 = StructAtIndex 0 TotallyNotJson.1055; let TotallyNotJson.179 : List U8 = StructAtIndex 0 TotallyNotJson.1065;
let TotallyNotJson.181 : List U8 = StructAtIndex 1 TotallyNotJson.1055; let TotallyNotJson.181 : List U8 = StructAtIndex 1 TotallyNotJson.1065;
let TotallyNotJson.1053 : U64 = CallByName List.6 TotallyNotJson.153; let TotallyNotJson.1063 : U64 = CallByName List.6 TotallyNotJson.153;
dec TotallyNotJson.153; dec TotallyNotJson.153;
let TotallyNotJson.1054 : U64 = 120i64; let TotallyNotJson.1064 : U64 = 120i64;
let TotallyNotJson.1051 : U64 = CallByName Num.21 TotallyNotJson.1053 TotallyNotJson.1054; let TotallyNotJson.1061 : U64 = CallByName Num.21 TotallyNotJson.1063 TotallyNotJson.1064;
let TotallyNotJson.1052 : U64 = 100i64; let TotallyNotJson.1062 : U64 = 100i64;
let TotallyNotJson.1050 : U64 = CallByName Num.137 TotallyNotJson.1051 TotallyNotJson.1052; let TotallyNotJson.1060 : U64 = CallByName Num.137 TotallyNotJson.1061 TotallyNotJson.1062;
let TotallyNotJson.1047 : List U8 = CallByName List.68 TotallyNotJson.1050; let TotallyNotJson.1057 : List U8 = CallByName List.68 TotallyNotJson.1060;
let TotallyNotJson.1049 : U8 = 34i64; let TotallyNotJson.1059 : U8 = 34i64;
let TotallyNotJson.1048 : List U8 = Array [TotallyNotJson.1049]; let TotallyNotJson.1058 : List U8 = Array [TotallyNotJson.1059];
let TotallyNotJson.1046 : List U8 = CallByName List.8 TotallyNotJson.1047 TotallyNotJson.1048; let TotallyNotJson.1056 : List U8 = CallByName List.8 TotallyNotJson.1057 TotallyNotJson.1058;
let TotallyNotJson.182 : List U8 = CallByName List.8 TotallyNotJson.1046 TotallyNotJson.179; let TotallyNotJson.182 : List U8 = CallByName List.8 TotallyNotJson.1056 TotallyNotJson.179;
let TotallyNotJson.1029 : {} = Struct {}; let TotallyNotJson.1039 : {} = Struct {};
let TotallyNotJson.1026 : List U8 = CallByName List.18 TotallyNotJson.181 TotallyNotJson.182 TotallyNotJson.1029; let TotallyNotJson.1036 : List U8 = CallByName List.18 TotallyNotJson.181 TotallyNotJson.182 TotallyNotJson.1039;
let TotallyNotJson.1028 : U8 = 34i64; let TotallyNotJson.1038 : U8 = 34i64;
let TotallyNotJson.1027 : List U8 = Array [TotallyNotJson.1028]; let TotallyNotJson.1037 : List U8 = Array [TotallyNotJson.1038];
let TotallyNotJson.1025 : List U8 = CallByName List.8 TotallyNotJson.1026 TotallyNotJson.1027; let TotallyNotJson.1035 : List U8 = CallByName List.8 TotallyNotJson.1036 TotallyNotJson.1037;
ret TotallyNotJson.1025; ret TotallyNotJson.1035;
procedure TotallyNotJson.27 (TotallyNotJson.186): procedure TotallyNotJson.27 (TotallyNotJson.186):
switch TotallyNotJson.186: switch TotallyNotJson.186:
case 34: case 34:
let TotallyNotJson.1032 : List U8 = Array [92i64, 34i64]; let TotallyNotJson.1042 : List U8 = Array [92i64, 34i64];
ret TotallyNotJson.1032; ret TotallyNotJson.1042;
case 92: case 92:
let TotallyNotJson.1033 : List U8 = Array [92i64, 92i64]; let TotallyNotJson.1043 : List U8 = Array [92i64, 92i64];
ret TotallyNotJson.1033;
case 47:
let TotallyNotJson.1034 : List U8 = Array [92i64, 47i64];
ret TotallyNotJson.1034;
case 8:
let TotallyNotJson.1036 : U8 = 98i64;
let TotallyNotJson.1035 : List U8 = Array [92i64, TotallyNotJson.1036];
ret TotallyNotJson.1035;
case 12:
let TotallyNotJson.1038 : U8 = 102i64;
let TotallyNotJson.1037 : List U8 = Array [92i64, TotallyNotJson.1038];
ret TotallyNotJson.1037;
case 10:
let TotallyNotJson.1040 : U8 = 110i64;
let TotallyNotJson.1039 : List U8 = Array [92i64, TotallyNotJson.1040];
ret TotallyNotJson.1039;
case 13:
let TotallyNotJson.1042 : U8 = 114i64;
let TotallyNotJson.1041 : List U8 = Array [92i64, TotallyNotJson.1042];
ret TotallyNotJson.1041;
case 9:
let TotallyNotJson.1044 : U8 = 114i64;
let TotallyNotJson.1043 : List U8 = Array [92i64, TotallyNotJson.1044];
ret TotallyNotJson.1043; ret TotallyNotJson.1043;
default: case 47:
let TotallyNotJson.1045 : List U8 = Array [TotallyNotJson.186]; let TotallyNotJson.1044 : List U8 = Array [92i64, 47i64];
ret TotallyNotJson.1044;
case 8:
let TotallyNotJson.1046 : U8 = 98i64;
let TotallyNotJson.1045 : List U8 = Array [92i64, TotallyNotJson.1046];
ret TotallyNotJson.1045; ret TotallyNotJson.1045;
case 12:
let TotallyNotJson.1048 : U8 = 102i64;
let TotallyNotJson.1047 : List U8 = Array [92i64, TotallyNotJson.1048];
ret TotallyNotJson.1047;
case 10:
let TotallyNotJson.1050 : U8 = 110i64;
let TotallyNotJson.1049 : List U8 = Array [92i64, TotallyNotJson.1050];
ret TotallyNotJson.1049;
case 13:
let TotallyNotJson.1052 : U8 = 114i64;
let TotallyNotJson.1051 : List U8 = Array [92i64, TotallyNotJson.1052];
ret TotallyNotJson.1051;
case 9:
let TotallyNotJson.1054 : U8 = 114i64;
let TotallyNotJson.1053 : List U8 = Array [92i64, TotallyNotJson.1054];
ret TotallyNotJson.1053;
default:
let TotallyNotJson.1055 : List U8 = Array [TotallyNotJson.186];
ret TotallyNotJson.1055;
procedure TotallyNotJson.29 (TotallyNotJson.200): procedure TotallyNotJson.29 (TotallyNotJson.201):
let TotallyNotJson.971 : List {Str, Str} = CallByName Encode.23 TotallyNotJson.200; let TotallyNotJson.974 : List {Str, Str} = CallByName Encode.23 TotallyNotJson.201;
ret TotallyNotJson.971; ret TotallyNotJson.974;
procedure TotallyNotJson.8 (): procedure TotallyNotJson.8 ():
let TotallyNotJson.970 : {} = Struct {}; let TotallyNotJson.1013 : {} = Struct {};
ret TotallyNotJson.970; ret TotallyNotJson.1013;
procedure Test.0 (): procedure Test.0 ():
let Test.11 : Str = "foo"; let Test.11 : Str = "foo";

535
crates/compiler/test_mono/generated/encode_derived_record_two_field_strings.txt generated
View file

@ -18,6 +18,10 @@ procedure #Derived.2 (#Derived.3, #Derived.4, #Derived.1):
let #Derived_gen.3 : List U8 = CallByName Encode.24 #Derived.3 #Derived_gen.4 #Derived.4; let #Derived_gen.3 : List U8 = CallByName Encode.24 #Derived.3 #Derived_gen.4 #Derived.4;
ret #Derived_gen.3; ret #Derived_gen.3;
procedure Bool.11 (#Attr.2, #Attr.3):
let Bool.23 : Int1 = lowlevel Eq #Attr.2 #Attr.3;
ret Bool.23;
procedure Encode.23 (Encode.98): procedure Encode.23 (Encode.98):
ret Encode.98; ret Encode.98;
@ -32,7 +36,7 @@ procedure Encode.24 (Encode.99, Encode.107, Encode.101):
ret Encode.111; ret Encode.111;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
let Encode.113 : List U8 = CallByName TotallyNotJson.201 Encode.99 Encode.101 Encode.107; let Encode.113 : List U8 = CallByName TotallyNotJson.202 Encode.99 Encode.101 Encode.107;
ret Encode.113; ret Encode.113;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
@ -46,10 +50,10 @@ procedure Encode.26 (Encode.105, Encode.106):
ret Encode.108; ret Encode.108;
procedure List.103 (List.487, List.488, List.489): procedure List.103 (List.487, List.488, List.489):
let List.649 : U64 = 0i64; let List.650 : U64 = 0i64;
let List.650 : U64 = CallByName List.6 List.487; let List.651 : U64 = CallByName List.6 List.487;
let List.648 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.80 List.487 List.488 List.489 List.649 List.650; let List.649 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.80 List.487 List.488 List.489 List.650 List.651;
ret List.648; ret List.649;
procedure List.18 (List.159, List.160, List.161): procedure List.18 (List.159, List.160, List.161):
let List.593 : U64 = 0i64; let List.593 : U64 = 0i64;
@ -64,15 +68,15 @@ procedure List.18 (List.159, List.160, List.161):
ret List.604; ret List.604;
procedure List.26 (List.200, List.201, List.202): procedure List.26 (List.200, List.201, List.202):
let List.642 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.103 List.200 List.201 List.202; let List.643 : [C {U64, Int1}, C {U64, Int1}] = CallByName List.103 List.200 List.201 List.202;
let List.645 : U8 = 1i64; let List.646 : U8 = 1i64;
let List.646 : U8 = GetTagId List.642; let List.647 : U8 = GetTagId List.643;
let List.647 : Int1 = lowlevel Eq List.645 List.646; let List.648 : Int1 = lowlevel Eq List.646 List.647;
if List.647 then if List.648 then
let List.203 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.642; let List.203 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.643;
ret List.203; ret List.203;
else else
let List.204 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.642; let List.204 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.643;
ret List.204; ret List.204;
procedure List.4 (List.123, List.124): procedure List.4 (List.123, List.124):
@ -82,37 +86,37 @@ procedure List.4 (List.123, List.124):
ret List.589; ret List.589;
procedure List.49 (List.419, List.420): procedure List.49 (List.419, List.420):
let List.633 : U64 = StructAtIndex 1 List.420; let List.634 : U64 = StructAtIndex 1 List.420;
let List.634 : U64 = StructAtIndex 0 List.420; let List.635 : U64 = StructAtIndex 0 List.420;
let List.632 : List U8 = CallByName List.72 List.419 List.633 List.634; let List.633 : List U8 = CallByName List.72 List.419 List.634 List.635;
ret List.632; ret List.633;
procedure List.52 (List.434, List.435): procedure List.52 (List.434, List.435):
let List.436 : U64 = CallByName List.6 List.434; let List.436 : U64 = CallByName List.6 List.434;
joinpoint List.640 List.437: joinpoint List.641 List.437:
let List.638 : U64 = 0i64; let List.639 : U64 = 0i64;
let List.637 : {U64, U64} = Struct {List.437, List.638}; let List.638 : {U64, U64} = Struct {List.437, List.639};
inc List.434; inc List.434;
let List.438 : List U8 = CallByName List.49 List.434 List.637; let List.438 : List U8 = CallByName List.49 List.434 List.638;
let List.636 : U64 = CallByName Num.75 List.436 List.437; let List.637 : U64 = CallByName Num.75 List.436 List.437;
let List.631 : {U64, U64} = Struct {List.636, List.437}; let List.632 : {U64, U64} = Struct {List.637, List.437};
let List.439 : List U8 = CallByName List.49 List.434 List.631; let List.439 : List U8 = CallByName List.49 List.434 List.632;
let List.630 : {List U8, List U8} = Struct {List.438, List.439}; let List.631 : {List U8, List U8} = Struct {List.438, List.439};
ret List.630; ret List.631;
in in
let List.641 : Int1 = CallByName Num.24 List.436 List.435; let List.642 : Int1 = CallByName Num.24 List.436 List.435;
if List.641 then if List.642 then
jump List.640 List.435; jump List.641 List.435;
else else
jump List.640 List.436; jump List.641 List.436;
procedure List.6 (#Attr.2): procedure List.6 (#Attr.2):
let List.625 : U64 = lowlevel ListLenU64 #Attr.2; let List.626 : U64 = lowlevel ListLenU64 #Attr.2;
ret List.625; ret List.626;
procedure List.6 (#Attr.2): procedure List.6 (#Attr.2):
let List.627 : U64 = lowlevel ListLenU64 #Attr.2; let List.628 : U64 = lowlevel ListLenU64 #Attr.2;
ret List.627; ret List.628;
procedure List.66 (#Attr.2, #Attr.3): procedure List.66 (#Attr.2, #Attr.3):
let List.602 : {Str, Str} = lowlevel ListGetUnsafe #Attr.2 #Attr.3; let List.602 : {Str, Str} = lowlevel ListGetUnsafe #Attr.2 #Attr.3;
@ -123,8 +127,8 @@ procedure List.66 (#Attr.2, #Attr.3):
ret List.614; ret List.614;
procedure List.68 (#Attr.2): procedure List.68 (#Attr.2):
let List.629 : List U8 = lowlevel ListWithCapacity #Attr.2; let List.630 : List U8 = lowlevel ListWithCapacity #Attr.2;
ret List.629; ret List.630;
procedure List.70 (#Attr.2, #Attr.3): procedure List.70 (#Attr.2, #Attr.3):
let List.576 : List U8 = lowlevel ListReserve #Attr.2 #Attr.3; let List.576 : List U8 = lowlevel ListReserve #Attr.2 #Attr.3;
@ -135,40 +139,40 @@ procedure List.71 (#Attr.2, #Attr.3):
ret List.574; ret List.574;
procedure List.72 (#Attr.2, #Attr.3, #Attr.4): procedure List.72 (#Attr.2, #Attr.3, #Attr.4):
let List.635 : List U8 = lowlevel ListSublist #Attr.2 #Attr.3 #Attr.4; let List.636 : List U8 = lowlevel ListSublist #Attr.2 #Attr.3 #Attr.4;
ret List.635; ret List.636;
procedure List.8 (#Attr.2, #Attr.3): procedure List.8 (#Attr.2, #Attr.3):
let List.624 : List U8 = lowlevel ListConcat #Attr.2 #Attr.3; let List.625 : List U8 = lowlevel ListConcat #Attr.2 #Attr.3;
ret List.624; ret List.625;
procedure List.80 (#Derived_gen.20, #Derived_gen.21, #Derived_gen.22, #Derived_gen.23, #Derived_gen.24): procedure List.80 (#Derived_gen.22, #Derived_gen.23, #Derived_gen.24, #Derived_gen.25, #Derived_gen.26):
joinpoint List.651 List.490 List.491 List.492 List.493 List.494: joinpoint List.652 List.490 List.491 List.492 List.493 List.494:
let List.653 : Int1 = CallByName Num.22 List.493 List.494; let List.654 : Int1 = CallByName Num.22 List.493 List.494;
if List.653 then if List.654 then
let List.662 : U8 = CallByName List.66 List.490 List.493; let List.663 : U8 = CallByName List.66 List.490 List.493;
let List.654 : [C {U64, Int1}, C {U64, Int1}] = CallByName TotallyNotJson.157 List.491 List.662; let List.655 : [C {U64, Int1}, C {U64, Int1}] = CallByName TotallyNotJson.157 List.491 List.663;
let List.659 : U8 = 1i64; let List.660 : U8 = 1i64;
let List.660 : U8 = GetTagId List.654; let List.661 : U8 = GetTagId List.655;
let List.661 : Int1 = lowlevel Eq List.659 List.660; let List.662 : Int1 = lowlevel Eq List.660 List.661;
if List.661 then if List.662 then
let List.495 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.654; let List.495 : {U64, Int1} = UnionAtIndex (Id 1) (Index 0) List.655;
let List.657 : U64 = 1i64; let List.658 : U64 = 1i64;
let List.656 : U64 = CallByName Num.51 List.493 List.657; let List.657 : U64 = CallByName Num.51 List.493 List.658;
jump List.651 List.490 List.495 List.492 List.656 List.494; jump List.652 List.490 List.495 List.492 List.657 List.494;
else else
dec List.490; dec List.490;
let List.496 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.654; let List.496 : {U64, Int1} = UnionAtIndex (Id 0) (Index 0) List.655;
let List.658 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) List.496; let List.659 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) List.496;
ret List.658; ret List.659;
else else
dec List.490; dec List.490;
let List.652 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) List.491; let List.653 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) List.491;
ret List.652; ret List.653;
in in
jump List.651 #Derived_gen.20 #Derived_gen.21 #Derived_gen.22 #Derived_gen.23 #Derived_gen.24; jump List.652 #Derived_gen.22 #Derived_gen.23 #Derived_gen.24 #Derived_gen.25 #Derived_gen.26;
procedure List.91 (#Derived_gen.25, #Derived_gen.26, #Derived_gen.27, #Derived_gen.28, #Derived_gen.29): procedure List.91 (#Derived_gen.17, #Derived_gen.18, #Derived_gen.19, #Derived_gen.20, #Derived_gen.21):
joinpoint List.607 List.162 List.163 List.164 List.165 List.166: joinpoint List.607 List.162 List.163 List.164 List.165 List.166:
let List.609 : Int1 = CallByName Num.22 List.165 List.166; let List.609 : Int1 = CallByName Num.22 List.165 List.166;
if List.609 then if List.609 then
@ -181,15 +185,15 @@ procedure List.91 (#Derived_gen.25, #Derived_gen.26, #Derived_gen.27, #Derived_g
dec List.162; dec List.162;
ret List.163; ret List.163;
in in
jump List.607 #Derived_gen.25 #Derived_gen.26 #Derived_gen.27 #Derived_gen.28 #Derived_gen.29; jump List.607 #Derived_gen.17 #Derived_gen.18 #Derived_gen.19 #Derived_gen.20 #Derived_gen.21;
procedure List.91 (#Derived_gen.30, #Derived_gen.31, #Derived_gen.32, #Derived_gen.33, #Derived_gen.34): procedure List.91 (#Derived_gen.27, #Derived_gen.28, #Derived_gen.29, #Derived_gen.30, #Derived_gen.31):
joinpoint List.595 List.162 List.163 List.164 List.165 List.166: joinpoint List.595 List.162 List.163 List.164 List.165 List.166:
let List.597 : Int1 = CallByName Num.22 List.165 List.166; let List.597 : Int1 = CallByName Num.22 List.165 List.166;
if List.597 then if List.597 then
let List.601 : {Str, Str} = CallByName List.66 List.162 List.165; let List.601 : {Str, Str} = CallByName List.66 List.162 List.165;
inc List.601; inc List.601;
let List.167 : {List U8, U64} = CallByName TotallyNotJson.203 List.163 List.601; let List.167 : {List U8, U64} = CallByName TotallyNotJson.204 List.163 List.601;
let List.600 : U64 = 1i64; let List.600 : U64 = 1i64;
let List.599 : U64 = CallByName Num.51 List.165 List.600; let List.599 : U64 = CallByName Num.51 List.165 List.600;
jump List.595 List.162 List.167 List.164 List.599 List.166; jump List.595 List.162 List.167 List.164 List.599 List.166;
@ -197,43 +201,43 @@ procedure List.91 (#Derived_gen.30, #Derived_gen.31, #Derived_gen.32, #Derived_g
dec List.162; dec List.162;
ret List.163; ret List.163;
in in
jump List.595 #Derived_gen.30 #Derived_gen.31 #Derived_gen.32 #Derived_gen.33 #Derived_gen.34; jump List.595 #Derived_gen.27 #Derived_gen.28 #Derived_gen.29 #Derived_gen.30 #Derived_gen.31;
procedure Num.127 (#Attr.2): procedure Num.127 (#Attr.2):
let Num.280 : U8 = lowlevel NumIntCast #Attr.2; let Num.280 : U8 = lowlevel NumIntCast #Attr.2;
ret Num.280; ret Num.280;
procedure Num.137 (#Attr.2, #Attr.3): procedure Num.137 (#Attr.2, #Attr.3):
let Num.285 : U64 = lowlevel NumDivCeilUnchecked #Attr.2 #Attr.3; let Num.286 : U64 = lowlevel NumDivCeilUnchecked #Attr.2 #Attr.3;
ret Num.285;
procedure Num.19 (#Attr.2, #Attr.3):
let Num.284 : U64 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Num.284;
procedure Num.20 (#Attr.2, #Attr.3):
let Num.281 : U64 = lowlevel NumSub #Attr.2 #Attr.3;
ret Num.281;
procedure Num.21 (#Attr.2, #Attr.3):
let Num.286 : U64 = lowlevel NumMul #Attr.2 #Attr.3;
ret Num.286; ret Num.286;
procedure Num.19 (#Attr.2, #Attr.3):
let Num.285 : U64 = lowlevel NumAdd #Attr.2 #Attr.3;
ret Num.285;
procedure Num.20 (#Attr.2, #Attr.3):
let Num.282 : U64 = lowlevel NumSub #Attr.2 #Attr.3;
ret Num.282;
procedure Num.21 (#Attr.2, #Attr.3):
let Num.287 : U64 = lowlevel NumMul #Attr.2 #Attr.3;
ret Num.287;
procedure Num.22 (#Attr.2, #Attr.3): procedure Num.22 (#Attr.2, #Attr.3):
let Num.292 : Int1 = lowlevel NumLt #Attr.2 #Attr.3; let Num.293 : Int1 = lowlevel NumLt #Attr.2 #Attr.3;
ret Num.292; ret Num.293;
procedure Num.24 (#Attr.2, #Attr.3): procedure Num.24 (#Attr.2, #Attr.3):
let Num.294 : Int1 = lowlevel NumGt #Attr.2 #Attr.3; let Num.295 : Int1 = lowlevel NumGt #Attr.2 #Attr.3;
ret Num.294; ret Num.295;
procedure Num.51 (#Attr.2, #Attr.3): procedure Num.51 (#Attr.2, #Attr.3):
let Num.289 : U64 = lowlevel NumAddWrap #Attr.2 #Attr.3; let Num.290 : U64 = lowlevel NumAddWrap #Attr.2 #Attr.3;
ret Num.289; ret Num.290;
procedure Num.75 (#Attr.2, #Attr.3): procedure Num.75 (#Attr.2, #Attr.3):
let Num.293 : U64 = lowlevel NumSubWrap #Attr.2 #Attr.3; let Num.294 : U64 = lowlevel NumSubWrap #Attr.2 #Attr.3;
ret Num.293; ret Num.294;
procedure Str.12 (#Attr.2): procedure Str.12 (#Attr.2):
let Str.241 : List U8 = lowlevel StrToUtf8 #Attr.2; let Str.241 : List U8 = lowlevel StrToUtf8 #Attr.2;
@ -259,227 +263,240 @@ procedure Str.9 (Str.67):
let Str.232 : [C {U64, U8}, C Str] = TagId(0) Str.233; let Str.232 : [C {U64, U8}, C Str] = TagId(0) Str.233;
ret Str.232; ret Str.232;
procedure TotallyNotJson.150 (TotallyNotJson.151, TotallyNotJson.1009, TotallyNotJson.149): procedure TotallyNotJson.150 (TotallyNotJson.151, TotallyNotJson.1019, TotallyNotJson.149):
let TotallyNotJson.1012 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.149; let TotallyNotJson.1022 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.149;
let TotallyNotJson.1011 : List U8 = CallByName List.8 TotallyNotJson.151 TotallyNotJson.1012; let TotallyNotJson.1021 : List U8 = CallByName List.8 TotallyNotJson.151 TotallyNotJson.1022;
ret TotallyNotJson.1011; ret TotallyNotJson.1021;
procedure TotallyNotJson.157 (TotallyNotJson.1060, TotallyNotJson.160): procedure TotallyNotJson.157 (TotallyNotJson.1070, TotallyNotJson.160):
let TotallyNotJson.158 : U64 = StructAtIndex 0 TotallyNotJson.1060; let TotallyNotJson.158 : U64 = StructAtIndex 0 TotallyNotJson.1070;
let TotallyNotJson.159 : Int1 = StructAtIndex 1 TotallyNotJson.1060; let TotallyNotJson.159 : Int1 = StructAtIndex 1 TotallyNotJson.1070;
switch TotallyNotJson.160: switch TotallyNotJson.160:
case 34: case 34:
let TotallyNotJson.1063 : Int1 = false; let TotallyNotJson.1073 : Int1 = false;
let TotallyNotJson.1062 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1063}; let TotallyNotJson.1072 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1073};
let TotallyNotJson.1061 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1062; let TotallyNotJson.1071 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1072;
ret TotallyNotJson.1061; ret TotallyNotJson.1071;
case 92: case 92:
let TotallyNotJson.1066 : Int1 = false; let TotallyNotJson.1076 : Int1 = false;
let TotallyNotJson.1065 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1066}; let TotallyNotJson.1075 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1076};
let TotallyNotJson.1064 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1065; let TotallyNotJson.1074 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1075;
ret TotallyNotJson.1064; ret TotallyNotJson.1074;
case 47: case 47:
let TotallyNotJson.1069 : Int1 = false; let TotallyNotJson.1079 : Int1 = false;
let TotallyNotJson.1068 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1069}; let TotallyNotJson.1078 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1079};
let TotallyNotJson.1067 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1068; let TotallyNotJson.1077 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1078;
ret TotallyNotJson.1067; ret TotallyNotJson.1077;
case 8: case 8:
let TotallyNotJson.1072 : Int1 = false; let TotallyNotJson.1082 : Int1 = false;
let TotallyNotJson.1071 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1072}; let TotallyNotJson.1081 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1082};
let TotallyNotJson.1070 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1071; let TotallyNotJson.1080 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1081;
ret TotallyNotJson.1070; ret TotallyNotJson.1080;
case 12: case 12:
let TotallyNotJson.1075 : Int1 = false; let TotallyNotJson.1085 : Int1 = false;
let TotallyNotJson.1074 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1075}; let TotallyNotJson.1084 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1085};
let TotallyNotJson.1073 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1074; let TotallyNotJson.1083 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1084;
ret TotallyNotJson.1073; ret TotallyNotJson.1083;
case 10: case 10:
let TotallyNotJson.1078 : Int1 = false; let TotallyNotJson.1088 : Int1 = false;
let TotallyNotJson.1077 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1078}; let TotallyNotJson.1087 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1088};
let TotallyNotJson.1076 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1077; let TotallyNotJson.1086 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1087;
ret TotallyNotJson.1076; ret TotallyNotJson.1086;
case 13: case 13:
let TotallyNotJson.1081 : Int1 = false; let TotallyNotJson.1091 : Int1 = false;
let TotallyNotJson.1080 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1081}; let TotallyNotJson.1090 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1091};
let TotallyNotJson.1079 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1080; let TotallyNotJson.1089 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1090;
ret TotallyNotJson.1079; ret TotallyNotJson.1089;
case 9: case 9:
let TotallyNotJson.1084 : Int1 = false; let TotallyNotJson.1094 : Int1 = false;
let TotallyNotJson.1083 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1084}; let TotallyNotJson.1093 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1094};
let TotallyNotJson.1082 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1083; let TotallyNotJson.1092 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1093;
ret TotallyNotJson.1082; ret TotallyNotJson.1092;
default: default:
let TotallyNotJson.1088 : U64 = 1i64; let TotallyNotJson.1098 : U64 = 1i64;
let TotallyNotJson.1087 : U64 = CallByName Num.19 TotallyNotJson.158 TotallyNotJson.1088; let TotallyNotJson.1097 : U64 = CallByName Num.19 TotallyNotJson.158 TotallyNotJson.1098;
let TotallyNotJson.1086 : {U64, Int1} = Struct {TotallyNotJson.1087, TotallyNotJson.159}; let TotallyNotJson.1096 : {U64, Int1} = Struct {TotallyNotJson.1097, TotallyNotJson.159};
let TotallyNotJson.1085 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) TotallyNotJson.1086; let TotallyNotJson.1095 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) TotallyNotJson.1096;
ret TotallyNotJson.1085; ret TotallyNotJson.1095;
procedure TotallyNotJson.183 (TotallyNotJson.184, TotallyNotJson.185): procedure TotallyNotJson.183 (TotallyNotJson.184, TotallyNotJson.185):
let TotallyNotJson.1031 : List U8 = CallByName TotallyNotJson.27 TotallyNotJson.185; let TotallyNotJson.1041 : List U8 = CallByName TotallyNotJson.27 TotallyNotJson.185;
let TotallyNotJson.1030 : List U8 = CallByName List.8 TotallyNotJson.184 TotallyNotJson.1031; let TotallyNotJson.1040 : List U8 = CallByName List.8 TotallyNotJson.184 TotallyNotJson.1041;
ret TotallyNotJson.1030; ret TotallyNotJson.1040;
procedure TotallyNotJson.201 (TotallyNotJson.202, TotallyNotJson.973, TotallyNotJson.200): procedure TotallyNotJson.202 (TotallyNotJson.203, TotallyNotJson.976, TotallyNotJson.201):
let TotallyNotJson.1006 : I64 = 123i64; let TotallyNotJson.1016 : I64 = 123i64;
let TotallyNotJson.1005 : U8 = CallByName Num.127 TotallyNotJson.1006; let TotallyNotJson.1015 : U8 = CallByName Num.127 TotallyNotJson.1016;
let TotallyNotJson.204 : List U8 = CallByName List.4 TotallyNotJson.202 TotallyNotJson.1005; let TotallyNotJson.205 : List U8 = CallByName List.4 TotallyNotJson.203 TotallyNotJson.1015;
let TotallyNotJson.1004 : U64 = CallByName List.6 TotallyNotJson.200; let TotallyNotJson.1014 : U64 = CallByName List.6 TotallyNotJson.201;
let TotallyNotJson.981 : {List U8, U64} = Struct {TotallyNotJson.204, TotallyNotJson.1004}; let TotallyNotJson.984 : {List U8, U64} = Struct {TotallyNotJson.205, TotallyNotJson.1014};
let TotallyNotJson.982 : {} = Struct {}; let TotallyNotJson.985 : {} = Struct {};
let TotallyNotJson.980 : {List U8, U64} = CallByName List.18 TotallyNotJson.200 TotallyNotJson.981 TotallyNotJson.982; let TotallyNotJson.983 : {List U8, U64} = CallByName List.18 TotallyNotJson.201 TotallyNotJson.984 TotallyNotJson.985;
let TotallyNotJson.206 : List U8 = StructAtIndex 0 TotallyNotJson.980; let TotallyNotJson.207 : List U8 = StructAtIndex 0 TotallyNotJson.983;
let TotallyNotJson.979 : I64 = 125i64; let TotallyNotJson.982 : I64 = 125i64;
let TotallyNotJson.978 : U8 = CallByName Num.127 TotallyNotJson.979; let TotallyNotJson.981 : U8 = CallByName Num.127 TotallyNotJson.982;
let TotallyNotJson.977 : List U8 = CallByName List.4 TotallyNotJson.206 TotallyNotJson.978; let TotallyNotJson.980 : List U8 = CallByName List.4 TotallyNotJson.207 TotallyNotJson.981;
ret TotallyNotJson.977; ret TotallyNotJson.980;
procedure TotallyNotJson.203 (TotallyNotJson.975, TotallyNotJson.976): procedure TotallyNotJson.204 (TotallyNotJson.978, TotallyNotJson.979):
let TotallyNotJson.209 : Str = StructAtIndex 0 TotallyNotJson.976; let TotallyNotJson.210 : Str = StructAtIndex 0 TotallyNotJson.979;
let TotallyNotJson.210 : Str = StructAtIndex 1 TotallyNotJson.976; let TotallyNotJson.211 : Str = StructAtIndex 1 TotallyNotJson.979;
let TotallyNotJson.207 : List U8 = StructAtIndex 0 TotallyNotJson.975; let TotallyNotJson.208 : List U8 = StructAtIndex 0 TotallyNotJson.978;
let TotallyNotJson.208 : U64 = StructAtIndex 1 TotallyNotJson.975; let TotallyNotJson.209 : U64 = StructAtIndex 1 TotallyNotJson.978;
let TotallyNotJson.1003 : I64 = 34i64; let TotallyNotJson.1011 : List U8 = Array [];
let TotallyNotJson.1002 : U8 = CallByName Num.127 TotallyNotJson.1003; let TotallyNotJson.1012 : {} = CallByName TotallyNotJson.8;
let TotallyNotJson.1000 : List U8 = CallByName List.4 TotallyNotJson.207 TotallyNotJson.1002; let TotallyNotJson.212 : List U8 = CallByName Encode.24 TotallyNotJson.1011 TotallyNotJson.211 TotallyNotJson.1012;
let TotallyNotJson.1001 : List U8 = CallByName Str.12 TotallyNotJson.209; let TotallyNotJson.1010 : List U8 = Array [];
let TotallyNotJson.997 : List U8 = CallByName List.8 TotallyNotJson.1000 TotallyNotJson.1001; let TotallyNotJson.1006 : Int1 = CallByName Bool.11 TotallyNotJson.212 TotallyNotJson.1010;
let TotallyNotJson.999 : I64 = 34i64; dec TotallyNotJson.1010;
let TotallyNotJson.998 : U8 = CallByName Num.127 TotallyNotJson.999; if TotallyNotJson.1006 then
let TotallyNotJson.994 : List U8 = CallByName List.4 TotallyNotJson.997 TotallyNotJson.998; dec TotallyNotJson.210;
let TotallyNotJson.996 : I64 = 58i64; dec TotallyNotJson.212;
let TotallyNotJson.995 : U8 = CallByName Num.127 TotallyNotJson.996; let TotallyNotJson.1009 : U64 = 1i64;
let TotallyNotJson.992 : List U8 = CallByName List.4 TotallyNotJson.994 TotallyNotJson.995; let TotallyNotJson.1008 : U64 = CallByName Num.20 TotallyNotJson.209 TotallyNotJson.1009;
let TotallyNotJson.993 : {} = Struct {}; let TotallyNotJson.1007 : {List U8, U64} = Struct {TotallyNotJson.208, TotallyNotJson.1008};
let TotallyNotJson.212 : List U8 = CallByName Encode.24 TotallyNotJson.992 TotallyNotJson.210 TotallyNotJson.993; ret TotallyNotJson.1007;
joinpoint TotallyNotJson.987 TotallyNotJson.213:
let TotallyNotJson.985 : U64 = 1i64;
let TotallyNotJson.984 : U64 = CallByName Num.20 TotallyNotJson.208 TotallyNotJson.985;
let TotallyNotJson.983 : {List U8, U64} = Struct {TotallyNotJson.213, TotallyNotJson.984};
ret TotallyNotJson.983;
in
let TotallyNotJson.991 : U64 = 1i64;
let TotallyNotJson.988 : Int1 = CallByName Num.24 TotallyNotJson.208 TotallyNotJson.991;
if TotallyNotJson.988 then
let TotallyNotJson.990 : I64 = 44i64;
let TotallyNotJson.989 : U8 = CallByName Num.127 TotallyNotJson.990;
let TotallyNotJson.986 : List U8 = CallByName List.4 TotallyNotJson.212 TotallyNotJson.989;
jump TotallyNotJson.987 TotallyNotJson.986;
else else
jump TotallyNotJson.987 TotallyNotJson.212; let TotallyNotJson.1005 : I64 = 34i64;
let TotallyNotJson.1004 : U8 = CallByName Num.127 TotallyNotJson.1005;
let TotallyNotJson.1002 : List U8 = CallByName List.4 TotallyNotJson.208 TotallyNotJson.1004;
let TotallyNotJson.1003 : List U8 = CallByName Str.12 TotallyNotJson.210;
let TotallyNotJson.999 : List U8 = CallByName List.8 TotallyNotJson.1002 TotallyNotJson.1003;
let TotallyNotJson.1001 : I64 = 34i64;
let TotallyNotJson.1000 : U8 = CallByName Num.127 TotallyNotJson.1001;
let TotallyNotJson.996 : List U8 = CallByName List.4 TotallyNotJson.999 TotallyNotJson.1000;
let TotallyNotJson.998 : I64 = 58i64;
let TotallyNotJson.997 : U8 = CallByName Num.127 TotallyNotJson.998;
let TotallyNotJson.995 : List U8 = CallByName List.4 TotallyNotJson.996 TotallyNotJson.997;
let TotallyNotJson.214 : List U8 = CallByName List.8 TotallyNotJson.995 TotallyNotJson.212;
joinpoint TotallyNotJson.990 TotallyNotJson.215:
let TotallyNotJson.988 : U64 = 1i64;
let TotallyNotJson.987 : U64 = CallByName Num.20 TotallyNotJson.209 TotallyNotJson.988;
let TotallyNotJson.986 : {List U8, U64} = Struct {TotallyNotJson.215, TotallyNotJson.987};
ret TotallyNotJson.986;
in
let TotallyNotJson.994 : U64 = 1i64;
let TotallyNotJson.991 : Int1 = CallByName Num.24 TotallyNotJson.209 TotallyNotJson.994;
if TotallyNotJson.991 then
let TotallyNotJson.993 : I64 = 44i64;
let TotallyNotJson.992 : U8 = CallByName Num.127 TotallyNotJson.993;
let TotallyNotJson.989 : List U8 = CallByName List.4 TotallyNotJson.214 TotallyNotJson.992;
jump TotallyNotJson.990 TotallyNotJson.989;
else
jump TotallyNotJson.990 TotallyNotJson.214;
procedure TotallyNotJson.25 (TotallyNotJson.149): procedure TotallyNotJson.25 (TotallyNotJson.149):
let TotallyNotJson.1091 : Str = CallByName Encode.23 TotallyNotJson.149; let TotallyNotJson.1101 : Str = CallByName Encode.23 TotallyNotJson.149;
ret TotallyNotJson.1091; ret TotallyNotJson.1101;
procedure TotallyNotJson.26 (TotallyNotJson.152): procedure TotallyNotJson.26 (TotallyNotJson.152):
let TotallyNotJson.153 : List U8 = CallByName Str.12 TotallyNotJson.152; let TotallyNotJson.153 : List U8 = CallByName Str.12 TotallyNotJson.152;
let TotallyNotJson.1089 : U64 = 0i64; let TotallyNotJson.1099 : U64 = 0i64;
let TotallyNotJson.1090 : Int1 = true; let TotallyNotJson.1100 : Int1 = true;
let TotallyNotJson.154 : {U64, Int1} = Struct {TotallyNotJson.1089, TotallyNotJson.1090}; let TotallyNotJson.154 : {U64, Int1} = Struct {TotallyNotJson.1099, TotallyNotJson.1100};
let TotallyNotJson.1059 : {} = Struct {}; let TotallyNotJson.1069 : {} = Struct {};
inc TotallyNotJson.153; inc TotallyNotJson.153;
let TotallyNotJson.155 : {U64, Int1} = CallByName List.26 TotallyNotJson.153 TotallyNotJson.154 TotallyNotJson.1059; let TotallyNotJson.155 : {U64, Int1} = CallByName List.26 TotallyNotJson.153 TotallyNotJson.154 TotallyNotJson.1069;
let TotallyNotJson.1013 : Int1 = StructAtIndex 1 TotallyNotJson.155; let TotallyNotJson.1023 : Int1 = StructAtIndex 1 TotallyNotJson.155;
let TotallyNotJson.1057 : Int1 = true; let TotallyNotJson.1067 : Int1 = true;
let TotallyNotJson.1058 : Int1 = lowlevel Eq TotallyNotJson.1057 TotallyNotJson.1013; let TotallyNotJson.1068 : Int1 = lowlevel Eq TotallyNotJson.1067 TotallyNotJson.1023;
if TotallyNotJson.1058 then if TotallyNotJson.1068 then
let TotallyNotJson.1023 : U64 = CallByName List.6 TotallyNotJson.153; let TotallyNotJson.1033 : U64 = CallByName List.6 TotallyNotJson.153;
let TotallyNotJson.1024 : U64 = 2i64; let TotallyNotJson.1034 : U64 = 2i64;
let TotallyNotJson.1022 : U64 = CallByName Num.19 TotallyNotJson.1023 TotallyNotJson.1024; let TotallyNotJson.1032 : U64 = CallByName Num.19 TotallyNotJson.1033 TotallyNotJson.1034;
let TotallyNotJson.1019 : List U8 = CallByName List.68 TotallyNotJson.1022; let TotallyNotJson.1029 : List U8 = CallByName List.68 TotallyNotJson.1032;
let TotallyNotJson.1021 : U8 = 34i64; let TotallyNotJson.1031 : U8 = 34i64;
let TotallyNotJson.1020 : List U8 = Array [TotallyNotJson.1021]; let TotallyNotJson.1030 : List U8 = Array [TotallyNotJson.1031];
let TotallyNotJson.1018 : List U8 = CallByName List.8 TotallyNotJson.1019 TotallyNotJson.1020; let TotallyNotJson.1028 : List U8 = CallByName List.8 TotallyNotJson.1029 TotallyNotJson.1030;
let TotallyNotJson.1015 : List U8 = CallByName List.8 TotallyNotJson.1018 TotallyNotJson.153; let TotallyNotJson.1025 : List U8 = CallByName List.8 TotallyNotJson.1028 TotallyNotJson.153;
let TotallyNotJson.1017 : U8 = 34i64; let TotallyNotJson.1027 : U8 = 34i64;
let TotallyNotJson.1016 : List U8 = Array [TotallyNotJson.1017]; let TotallyNotJson.1026 : List U8 = Array [TotallyNotJson.1027];
let TotallyNotJson.1014 : List U8 = CallByName List.8 TotallyNotJson.1015 TotallyNotJson.1016; let TotallyNotJson.1024 : List U8 = CallByName List.8 TotallyNotJson.1025 TotallyNotJson.1026;
ret TotallyNotJson.1014; ret TotallyNotJson.1024;
else else
inc TotallyNotJson.153; inc TotallyNotJson.153;
let TotallyNotJson.1056 : U64 = StructAtIndex 0 TotallyNotJson.155; let TotallyNotJson.1066 : U64 = StructAtIndex 0 TotallyNotJson.155;
let TotallyNotJson.1055 : {List U8, List U8} = CallByName List.52 TotallyNotJson.153 TotallyNotJson.1056; let TotallyNotJson.1065 : {List U8, List U8} = CallByName List.52 TotallyNotJson.153 TotallyNotJson.1066;
let TotallyNotJson.179 : List U8 = StructAtIndex 0 TotallyNotJson.1055; let TotallyNotJson.179 : List U8 = StructAtIndex 0 TotallyNotJson.1065;
let TotallyNotJson.181 : List U8 = StructAtIndex 1 TotallyNotJson.1055; let TotallyNotJson.181 : List U8 = StructAtIndex 1 TotallyNotJson.1065;
let TotallyNotJson.1053 : U64 = CallByName List.6 TotallyNotJson.153; let TotallyNotJson.1063 : U64 = CallByName List.6 TotallyNotJson.153;
dec TotallyNotJson.153; dec TotallyNotJson.153;
let TotallyNotJson.1054 : U64 = 120i64; let TotallyNotJson.1064 : U64 = 120i64;
let TotallyNotJson.1051 : U64 = CallByName Num.21 TotallyNotJson.1053 TotallyNotJson.1054; let TotallyNotJson.1061 : U64 = CallByName Num.21 TotallyNotJson.1063 TotallyNotJson.1064;
let TotallyNotJson.1052 : U64 = 100i64; let TotallyNotJson.1062 : U64 = 100i64;
let TotallyNotJson.1050 : U64 = CallByName Num.137 TotallyNotJson.1051 TotallyNotJson.1052; let TotallyNotJson.1060 : U64 = CallByName Num.137 TotallyNotJson.1061 TotallyNotJson.1062;
let TotallyNotJson.1047 : List U8 = CallByName List.68 TotallyNotJson.1050; let TotallyNotJson.1057 : List U8 = CallByName List.68 TotallyNotJson.1060;
let TotallyNotJson.1049 : U8 = 34i64; let TotallyNotJson.1059 : U8 = 34i64;
let TotallyNotJson.1048 : List U8 = Array [TotallyNotJson.1049]; let TotallyNotJson.1058 : List U8 = Array [TotallyNotJson.1059];
let TotallyNotJson.1046 : List U8 = CallByName List.8 TotallyNotJson.1047 TotallyNotJson.1048; let TotallyNotJson.1056 : List U8 = CallByName List.8 TotallyNotJson.1057 TotallyNotJson.1058;
let TotallyNotJson.182 : List U8 = CallByName List.8 TotallyNotJson.1046 TotallyNotJson.179; let TotallyNotJson.182 : List U8 = CallByName List.8 TotallyNotJson.1056 TotallyNotJson.179;
let TotallyNotJson.1029 : {} = Struct {}; let TotallyNotJson.1039 : {} = Struct {};
let TotallyNotJson.1026 : List U8 = CallByName List.18 TotallyNotJson.181 TotallyNotJson.182 TotallyNotJson.1029; let TotallyNotJson.1036 : List U8 = CallByName List.18 TotallyNotJson.181 TotallyNotJson.182 TotallyNotJson.1039;
let TotallyNotJson.1028 : U8 = 34i64; let TotallyNotJson.1038 : U8 = 34i64;
let TotallyNotJson.1027 : List U8 = Array [TotallyNotJson.1028]; let TotallyNotJson.1037 : List U8 = Array [TotallyNotJson.1038];
let TotallyNotJson.1025 : List U8 = CallByName List.8 TotallyNotJson.1026 TotallyNotJson.1027; let TotallyNotJson.1035 : List U8 = CallByName List.8 TotallyNotJson.1036 TotallyNotJson.1037;
ret TotallyNotJson.1025; ret TotallyNotJson.1035;
procedure TotallyNotJson.27 (TotallyNotJson.186): procedure TotallyNotJson.27 (TotallyNotJson.186):
switch TotallyNotJson.186: switch TotallyNotJson.186:
case 34: case 34:
let TotallyNotJson.1032 : List U8 = Array [92i64, 34i64]; let TotallyNotJson.1042 : List U8 = Array [92i64, 34i64];
ret TotallyNotJson.1032; ret TotallyNotJson.1042;
case 92: case 92:
let TotallyNotJson.1033 : List U8 = Array [92i64, 92i64]; let TotallyNotJson.1043 : List U8 = Array [92i64, 92i64];
ret TotallyNotJson.1033;
case 47:
let TotallyNotJson.1034 : List U8 = Array [92i64, 47i64];
ret TotallyNotJson.1034;
case 8:
let TotallyNotJson.1036 : U8 = 98i64;
let TotallyNotJson.1035 : List U8 = Array [92i64, TotallyNotJson.1036];
ret TotallyNotJson.1035;
case 12:
let TotallyNotJson.1038 : U8 = 102i64;
let TotallyNotJson.1037 : List U8 = Array [92i64, TotallyNotJson.1038];
ret TotallyNotJson.1037;
case 10:
let TotallyNotJson.1040 : U8 = 110i64;
let TotallyNotJson.1039 : List U8 = Array [92i64, TotallyNotJson.1040];
ret TotallyNotJson.1039;
case 13:
let TotallyNotJson.1042 : U8 = 114i64;
let TotallyNotJson.1041 : List U8 = Array [92i64, TotallyNotJson.1042];
ret TotallyNotJson.1041;
case 9:
let TotallyNotJson.1044 : U8 = 114i64;
let TotallyNotJson.1043 : List U8 = Array [92i64, TotallyNotJson.1044];
ret TotallyNotJson.1043; ret TotallyNotJson.1043;
default: case 47:
let TotallyNotJson.1045 : List U8 = Array [TotallyNotJson.186]; let TotallyNotJson.1044 : List U8 = Array [92i64, 47i64];
ret TotallyNotJson.1044;
case 8:
let TotallyNotJson.1046 : U8 = 98i64;
let TotallyNotJson.1045 : List U8 = Array [92i64, TotallyNotJson.1046];
ret TotallyNotJson.1045; ret TotallyNotJson.1045;
case 12:
let TotallyNotJson.1048 : U8 = 102i64;
let TotallyNotJson.1047 : List U8 = Array [92i64, TotallyNotJson.1048];
ret TotallyNotJson.1047;
case 10:
let TotallyNotJson.1050 : U8 = 110i64;
let TotallyNotJson.1049 : List U8 = Array [92i64, TotallyNotJson.1050];
ret TotallyNotJson.1049;
case 13:
let TotallyNotJson.1052 : U8 = 114i64;
let TotallyNotJson.1051 : List U8 = Array [92i64, TotallyNotJson.1052];
ret TotallyNotJson.1051;
case 9:
let TotallyNotJson.1054 : U8 = 114i64;
let TotallyNotJson.1053 : List U8 = Array [92i64, TotallyNotJson.1054];
ret TotallyNotJson.1053;
default:
let TotallyNotJson.1055 : List U8 = Array [TotallyNotJson.186];
ret TotallyNotJson.1055;
procedure TotallyNotJson.29 (TotallyNotJson.200): procedure TotallyNotJson.29 (TotallyNotJson.201):
let TotallyNotJson.971 : List {Str, Str} = CallByName Encode.23 TotallyNotJson.200; let TotallyNotJson.974 : List {Str, Str} = CallByName Encode.23 TotallyNotJson.201;
ret TotallyNotJson.971; ret TotallyNotJson.974;
procedure TotallyNotJson.8 (): procedure TotallyNotJson.8 ():
let TotallyNotJson.970 : {} = Struct {}; let TotallyNotJson.1013 : {} = Struct {};
ret TotallyNotJson.970; ret TotallyNotJson.1013;
procedure Test.0 (): procedure Test.0 ():
let Test.11 : Str = "foo"; let Test.11 : Str = "foo";

200
crates/compiler/test_mono/generated/encode_derived_string.txt generated
View file

@ -173,175 +173,175 @@ procedure Str.9 (Str.67):
let Str.232 : [C {U64, U8}, C Str] = TagId(0) Str.233; let Str.232 : [C {U64, U8}, C Str] = TagId(0) Str.233;
ret Str.232; ret Str.232;
procedure TotallyNotJson.150 (TotallyNotJson.151, TotallyNotJson.973, TotallyNotJson.149): procedure TotallyNotJson.150 (TotallyNotJson.151, TotallyNotJson.976, TotallyNotJson.149):
let TotallyNotJson.976 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.149; let TotallyNotJson.979 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.149;
let TotallyNotJson.975 : List U8 = CallByName List.8 TotallyNotJson.151 TotallyNotJson.976; let TotallyNotJson.978 : List U8 = CallByName List.8 TotallyNotJson.151 TotallyNotJson.979;
ret TotallyNotJson.975; ret TotallyNotJson.978;
procedure TotallyNotJson.157 (TotallyNotJson.1024, TotallyNotJson.160): procedure TotallyNotJson.157 (TotallyNotJson.1027, TotallyNotJson.160):
let TotallyNotJson.158 : U64 = StructAtIndex 0 TotallyNotJson.1024; let TotallyNotJson.158 : U64 = StructAtIndex 0 TotallyNotJson.1027;
let TotallyNotJson.159 : Int1 = StructAtIndex 1 TotallyNotJson.1024; let TotallyNotJson.159 : Int1 = StructAtIndex 1 TotallyNotJson.1027;
switch TotallyNotJson.160: switch TotallyNotJson.160:
case 34: case 34:
let TotallyNotJson.1027 : Int1 = false;
let TotallyNotJson.1026 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1027};
let TotallyNotJson.1025 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1026;
ret TotallyNotJson.1025;
case 92:
let TotallyNotJson.1030 : Int1 = false; let TotallyNotJson.1030 : Int1 = false;
let TotallyNotJson.1029 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1030}; let TotallyNotJson.1029 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1030};
let TotallyNotJson.1028 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1029; let TotallyNotJson.1028 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1029;
ret TotallyNotJson.1028; ret TotallyNotJson.1028;
case 47: case 92:
let TotallyNotJson.1033 : Int1 = false; let TotallyNotJson.1033 : Int1 = false;
let TotallyNotJson.1032 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1033}; let TotallyNotJson.1032 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1033};
let TotallyNotJson.1031 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1032; let TotallyNotJson.1031 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1032;
ret TotallyNotJson.1031; ret TotallyNotJson.1031;
case 8: case 47:
let TotallyNotJson.1036 : Int1 = false; let TotallyNotJson.1036 : Int1 = false;
let TotallyNotJson.1035 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1036}; let TotallyNotJson.1035 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1036};
let TotallyNotJson.1034 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1035; let TotallyNotJson.1034 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1035;
ret TotallyNotJson.1034; ret TotallyNotJson.1034;
case 12: case 8:
let TotallyNotJson.1039 : Int1 = false; let TotallyNotJson.1039 : Int1 = false;
let TotallyNotJson.1038 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1039}; let TotallyNotJson.1038 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1039};
let TotallyNotJson.1037 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1038; let TotallyNotJson.1037 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1038;
ret TotallyNotJson.1037; ret TotallyNotJson.1037;
case 10: case 12:
let TotallyNotJson.1042 : Int1 = false; let TotallyNotJson.1042 : Int1 = false;
let TotallyNotJson.1041 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1042}; let TotallyNotJson.1041 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1042};
let TotallyNotJson.1040 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1041; let TotallyNotJson.1040 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1041;
ret TotallyNotJson.1040; ret TotallyNotJson.1040;
case 13: case 10:
let TotallyNotJson.1045 : Int1 = false; let TotallyNotJson.1045 : Int1 = false;
let TotallyNotJson.1044 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1045}; let TotallyNotJson.1044 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1045};
let TotallyNotJson.1043 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1044; let TotallyNotJson.1043 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1044;
ret TotallyNotJson.1043; ret TotallyNotJson.1043;
case 9: case 13:
let TotallyNotJson.1048 : Int1 = false; let TotallyNotJson.1048 : Int1 = false;
let TotallyNotJson.1047 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1048}; let TotallyNotJson.1047 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1048};
let TotallyNotJson.1046 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1047; let TotallyNotJson.1046 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1047;
ret TotallyNotJson.1046; ret TotallyNotJson.1046;
default: case 9:
let TotallyNotJson.1052 : U64 = 1i64; let TotallyNotJson.1051 : Int1 = false;
let TotallyNotJson.1051 : U64 = CallByName Num.19 TotallyNotJson.158 TotallyNotJson.1052; let TotallyNotJson.1050 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1051};
let TotallyNotJson.1050 : {U64, Int1} = Struct {TotallyNotJson.1051, TotallyNotJson.159}; let TotallyNotJson.1049 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1050;
let TotallyNotJson.1049 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) TotallyNotJson.1050;
ret TotallyNotJson.1049; ret TotallyNotJson.1049;
default:
let TotallyNotJson.1055 : U64 = 1i64;
let TotallyNotJson.1054 : U64 = CallByName Num.19 TotallyNotJson.158 TotallyNotJson.1055;
let TotallyNotJson.1053 : {U64, Int1} = Struct {TotallyNotJson.1054, TotallyNotJson.159};
let TotallyNotJson.1052 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) TotallyNotJson.1053;
ret TotallyNotJson.1052;
procedure TotallyNotJson.183 (TotallyNotJson.184, TotallyNotJson.185): procedure TotallyNotJson.183 (TotallyNotJson.184, TotallyNotJson.185):
let TotallyNotJson.995 : List U8 = CallByName TotallyNotJson.27 TotallyNotJson.185; let TotallyNotJson.998 : List U8 = CallByName TotallyNotJson.27 TotallyNotJson.185;
let TotallyNotJson.994 : List U8 = CallByName List.8 TotallyNotJson.184 TotallyNotJson.995; let TotallyNotJson.997 : List U8 = CallByName List.8 TotallyNotJson.184 TotallyNotJson.998;
ret TotallyNotJson.994; ret TotallyNotJson.997;
procedure TotallyNotJson.25 (TotallyNotJson.149): procedure TotallyNotJson.25 (TotallyNotJson.149):
let TotallyNotJson.971 : Str = CallByName Encode.23 TotallyNotJson.149; let TotallyNotJson.974 : Str = CallByName Encode.23 TotallyNotJson.149;
ret TotallyNotJson.971; ret TotallyNotJson.974;
procedure TotallyNotJson.26 (TotallyNotJson.152): procedure TotallyNotJson.26 (TotallyNotJson.152):
let TotallyNotJson.153 : List U8 = CallByName Str.12 TotallyNotJson.152; let TotallyNotJson.153 : List U8 = CallByName Str.12 TotallyNotJson.152;
let TotallyNotJson.1053 : U64 = 0i64; let TotallyNotJson.1056 : U64 = 0i64;
let TotallyNotJson.1054 : Int1 = true; let TotallyNotJson.1057 : Int1 = true;
let TotallyNotJson.154 : {U64, Int1} = Struct {TotallyNotJson.1053, TotallyNotJson.1054}; let TotallyNotJson.154 : {U64, Int1} = Struct {TotallyNotJson.1056, TotallyNotJson.1057};
let TotallyNotJson.1023 : {} = Struct {}; let TotallyNotJson.1026 : {} = Struct {};
inc TotallyNotJson.153; inc TotallyNotJson.153;
let TotallyNotJson.155 : {U64, Int1} = CallByName List.26 TotallyNotJson.153 TotallyNotJson.154 TotallyNotJson.1023; let TotallyNotJson.155 : {U64, Int1} = CallByName List.26 TotallyNotJson.153 TotallyNotJson.154 TotallyNotJson.1026;
let TotallyNotJson.977 : Int1 = StructAtIndex 1 TotallyNotJson.155; let TotallyNotJson.980 : Int1 = StructAtIndex 1 TotallyNotJson.155;
let TotallyNotJson.1021 : Int1 = true; let TotallyNotJson.1024 : Int1 = true;
let TotallyNotJson.1022 : Int1 = lowlevel Eq TotallyNotJson.1021 TotallyNotJson.977; let TotallyNotJson.1025 : Int1 = lowlevel Eq TotallyNotJson.1024 TotallyNotJson.980;
if TotallyNotJson.1022 then if TotallyNotJson.1025 then
let TotallyNotJson.987 : U64 = CallByName List.6 TotallyNotJson.153; let TotallyNotJson.990 : U64 = CallByName List.6 TotallyNotJson.153;
let TotallyNotJson.988 : U64 = 2i64; let TotallyNotJson.991 : U64 = 2i64;
let TotallyNotJson.986 : U64 = CallByName Num.19 TotallyNotJson.987 TotallyNotJson.988; let TotallyNotJson.989 : U64 = CallByName Num.19 TotallyNotJson.990 TotallyNotJson.991;
let TotallyNotJson.983 : List U8 = CallByName List.68 TotallyNotJson.986; let TotallyNotJson.986 : List U8 = CallByName List.68 TotallyNotJson.989;
let TotallyNotJson.985 : U8 = 34i64; let TotallyNotJson.988 : U8 = 34i64;
let TotallyNotJson.984 : List U8 = Array [TotallyNotJson.985]; let TotallyNotJson.987 : List U8 = Array [TotallyNotJson.988];
let TotallyNotJson.982 : List U8 = CallByName List.8 TotallyNotJson.983 TotallyNotJson.984; let TotallyNotJson.985 : List U8 = CallByName List.8 TotallyNotJson.986 TotallyNotJson.987;
let TotallyNotJson.979 : List U8 = CallByName List.8 TotallyNotJson.982 TotallyNotJson.153; let TotallyNotJson.982 : List U8 = CallByName List.8 TotallyNotJson.985 TotallyNotJson.153;
let TotallyNotJson.981 : U8 = 34i64; let TotallyNotJson.984 : U8 = 34i64;
let TotallyNotJson.980 : List U8 = Array [TotallyNotJson.981]; let TotallyNotJson.983 : List U8 = Array [TotallyNotJson.984];
let TotallyNotJson.978 : List U8 = CallByName List.8 TotallyNotJson.979 TotallyNotJson.980; let TotallyNotJson.981 : List U8 = CallByName List.8 TotallyNotJson.982 TotallyNotJson.983;
ret TotallyNotJson.978; ret TotallyNotJson.981;
else else
inc TotallyNotJson.153; inc TotallyNotJson.153;
let TotallyNotJson.1020 : U64 = StructAtIndex 0 TotallyNotJson.155; let TotallyNotJson.1023 : U64 = StructAtIndex 0 TotallyNotJson.155;
let TotallyNotJson.1019 : {List U8, List U8} = CallByName List.52 TotallyNotJson.153 TotallyNotJson.1020; let TotallyNotJson.1022 : {List U8, List U8} = CallByName List.52 TotallyNotJson.153 TotallyNotJson.1023;
let TotallyNotJson.179 : List U8 = StructAtIndex 0 TotallyNotJson.1019; let TotallyNotJson.179 : List U8 = StructAtIndex 0 TotallyNotJson.1022;
let TotallyNotJson.181 : List U8 = StructAtIndex 1 TotallyNotJson.1019; let TotallyNotJson.181 : List U8 = StructAtIndex 1 TotallyNotJson.1022;
let TotallyNotJson.1017 : U64 = CallByName List.6 TotallyNotJson.153; let TotallyNotJson.1020 : U64 = CallByName List.6 TotallyNotJson.153;
dec TotallyNotJson.153; dec TotallyNotJson.153;
let TotallyNotJson.1018 : U64 = 120i64; let TotallyNotJson.1021 : U64 = 120i64;
let TotallyNotJson.1015 : U64 = CallByName Num.21 TotallyNotJson.1017 TotallyNotJson.1018; let TotallyNotJson.1018 : U64 = CallByName Num.21 TotallyNotJson.1020 TotallyNotJson.1021;
let TotallyNotJson.1016 : U64 = 100i64; let TotallyNotJson.1019 : U64 = 100i64;
let TotallyNotJson.1014 : U64 = CallByName Num.137 TotallyNotJson.1015 TotallyNotJson.1016; let TotallyNotJson.1017 : U64 = CallByName Num.137 TotallyNotJson.1018 TotallyNotJson.1019;
let TotallyNotJson.1011 : List U8 = CallByName List.68 TotallyNotJson.1014; let TotallyNotJson.1014 : List U8 = CallByName List.68 TotallyNotJson.1017;
let TotallyNotJson.1013 : U8 = 34i64; let TotallyNotJson.1016 : U8 = 34i64;
let TotallyNotJson.1012 : List U8 = Array [TotallyNotJson.1013]; let TotallyNotJson.1015 : List U8 = Array [TotallyNotJson.1016];
let TotallyNotJson.1010 : List U8 = CallByName List.8 TotallyNotJson.1011 TotallyNotJson.1012; let TotallyNotJson.1013 : List U8 = CallByName List.8 TotallyNotJson.1014 TotallyNotJson.1015;
let TotallyNotJson.182 : List U8 = CallByName List.8 TotallyNotJson.1010 TotallyNotJson.179; let TotallyNotJson.182 : List U8 = CallByName List.8 TotallyNotJson.1013 TotallyNotJson.179;
let TotallyNotJson.993 : {} = Struct {}; let TotallyNotJson.996 : {} = Struct {};
let TotallyNotJson.990 : List U8 = CallByName List.18 TotallyNotJson.181 TotallyNotJson.182 TotallyNotJson.993; let TotallyNotJson.993 : List U8 = CallByName List.18 TotallyNotJson.181 TotallyNotJson.182 TotallyNotJson.996;
let TotallyNotJson.992 : U8 = 34i64; let TotallyNotJson.995 : U8 = 34i64;
let TotallyNotJson.991 : List U8 = Array [TotallyNotJson.992]; let TotallyNotJson.994 : List U8 = Array [TotallyNotJson.995];
let TotallyNotJson.989 : List U8 = CallByName List.8 TotallyNotJson.990 TotallyNotJson.991; let TotallyNotJson.992 : List U8 = CallByName List.8 TotallyNotJson.993 TotallyNotJson.994;
ret TotallyNotJson.989; ret TotallyNotJson.992;
procedure TotallyNotJson.27 (TotallyNotJson.186): procedure TotallyNotJson.27 (TotallyNotJson.186):
switch TotallyNotJson.186: switch TotallyNotJson.186:
case 34: case 34:
let TotallyNotJson.996 : List U8 = Array [92i64, 34i64]; let TotallyNotJson.999 : List U8 = Array [92i64, 34i64];
ret TotallyNotJson.996;
case 92:
let TotallyNotJson.997 : List U8 = Array [92i64, 92i64];
ret TotallyNotJson.997;
case 47:
let TotallyNotJson.998 : List U8 = Array [92i64, 47i64];
ret TotallyNotJson.998;
case 8:
let TotallyNotJson.1000 : U8 = 98i64;
let TotallyNotJson.999 : List U8 = Array [92i64, TotallyNotJson.1000];
ret TotallyNotJson.999; ret TotallyNotJson.999;
case 12: case 92:
let TotallyNotJson.1002 : U8 = 102i64; let TotallyNotJson.1000 : List U8 = Array [92i64, 92i64];
let TotallyNotJson.1001 : List U8 = Array [92i64, TotallyNotJson.1002]; ret TotallyNotJson.1000;
case 47:
let TotallyNotJson.1001 : List U8 = Array [92i64, 47i64];
ret TotallyNotJson.1001; ret TotallyNotJson.1001;
case 8:
let TotallyNotJson.1003 : U8 = 98i64;
let TotallyNotJson.1002 : List U8 = Array [92i64, TotallyNotJson.1003];
ret TotallyNotJson.1002;
case 12:
let TotallyNotJson.1005 : U8 = 102i64;
let TotallyNotJson.1004 : List U8 = Array [92i64, TotallyNotJson.1005];
ret TotallyNotJson.1004;
case 10: case 10:
let TotallyNotJson.1004 : U8 = 110i64; let TotallyNotJson.1007 : U8 = 110i64;
let TotallyNotJson.1003 : List U8 = Array [92i64, TotallyNotJson.1004]; let TotallyNotJson.1006 : List U8 = Array [92i64, TotallyNotJson.1007];
ret TotallyNotJson.1003; ret TotallyNotJson.1006;
case 13: case 13:
let TotallyNotJson.1006 : U8 = 114i64; let TotallyNotJson.1009 : U8 = 114i64;
let TotallyNotJson.1005 : List U8 = Array [92i64, TotallyNotJson.1006]; let TotallyNotJson.1008 : List U8 = Array [92i64, TotallyNotJson.1009];
ret TotallyNotJson.1005; ret TotallyNotJson.1008;
case 9: case 9:
let TotallyNotJson.1008 : U8 = 114i64; let TotallyNotJson.1011 : U8 = 114i64;
let TotallyNotJson.1007 : List U8 = Array [92i64, TotallyNotJson.1008]; let TotallyNotJson.1010 : List U8 = Array [92i64, TotallyNotJson.1011];
ret TotallyNotJson.1007; ret TotallyNotJson.1010;
default: default:
let TotallyNotJson.1009 : List U8 = Array [TotallyNotJson.186]; let TotallyNotJson.1012 : List U8 = Array [TotallyNotJson.186];
ret TotallyNotJson.1009; ret TotallyNotJson.1012;
procedure TotallyNotJson.8 (): procedure TotallyNotJson.8 ():
let TotallyNotJson.970 : {} = Struct {}; let TotallyNotJson.973 : {} = Struct {};
ret TotallyNotJson.970; ret TotallyNotJson.973;
procedure Test.0 (): procedure Test.0 ():
let Test.9 : Str = "abc"; let Test.9 : Str = "abc";

306
crates/compiler/test_mono/generated/encode_derived_tag_one_field_string.txt generated
View file

@ -27,7 +27,7 @@ procedure Encode.24 (Encode.99, Encode.107, Encode.101):
ret Encode.111; ret Encode.111;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
let Encode.113 : List U8 = CallByName TotallyNotJson.228 Encode.99 Encode.101 Encode.107; let Encode.113 : List U8 = CallByName TotallyNotJson.231 Encode.99 Encode.101 Encode.107;
ret Encode.113; ret Encode.113;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
@ -169,7 +169,7 @@ procedure List.91 (#Derived_gen.10, #Derived_gen.11, #Derived_gen.12, #Derived_g
if List.603 then if List.603 then
let List.607 : Str = CallByName List.66 List.162 List.165; let List.607 : Str = CallByName List.66 List.162 List.165;
inc List.607; inc List.607;
let List.167 : {List U8, U64} = CallByName TotallyNotJson.230 List.163 List.607; let List.167 : {List U8, U64} = CallByName TotallyNotJson.233 List.163 List.607;
let List.606 : U64 = 1i64; let List.606 : U64 = 1i64;
let List.605 : U64 = CallByName Num.51 List.165 List.606; let List.605 : U64 = CallByName Num.51 List.165 List.606;
jump List.601 List.162 List.167 List.164 List.605 List.166; jump List.601 List.162 List.167 List.164 List.605 List.166;
@ -254,234 +254,234 @@ procedure Str.9 (Str.67):
let Str.232 : [C {U64, U8}, C Str] = TagId(0) Str.233; let Str.232 : [C {U64, U8}, C Str] = TagId(0) Str.233;
ret Str.232; ret Str.232;
procedure TotallyNotJson.150 (TotallyNotJson.151, TotallyNotJson.1014, TotallyNotJson.149): procedure TotallyNotJson.150 (TotallyNotJson.151, TotallyNotJson.1017, TotallyNotJson.149):
let TotallyNotJson.1017 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.149; let TotallyNotJson.1020 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.149;
let TotallyNotJson.1016 : List U8 = CallByName List.8 TotallyNotJson.151 TotallyNotJson.1017; let TotallyNotJson.1019 : List U8 = CallByName List.8 TotallyNotJson.151 TotallyNotJson.1020;
ret TotallyNotJson.1016; ret TotallyNotJson.1019;
procedure TotallyNotJson.157 (TotallyNotJson.1065, TotallyNotJson.160): procedure TotallyNotJson.157 (TotallyNotJson.1068, TotallyNotJson.160):
let TotallyNotJson.158 : U64 = StructAtIndex 0 TotallyNotJson.1065; let TotallyNotJson.158 : U64 = StructAtIndex 0 TotallyNotJson.1068;
let TotallyNotJson.159 : Int1 = StructAtIndex 1 TotallyNotJson.1065; let TotallyNotJson.159 : Int1 = StructAtIndex 1 TotallyNotJson.1068;
switch TotallyNotJson.160: switch TotallyNotJson.160:
case 34: case 34:
let TotallyNotJson.1068 : Int1 = false;
let TotallyNotJson.1067 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1068};
let TotallyNotJson.1066 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1067;
ret TotallyNotJson.1066;
case 92:
let TotallyNotJson.1071 : Int1 = false; let TotallyNotJson.1071 : Int1 = false;
let TotallyNotJson.1070 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1071}; let TotallyNotJson.1070 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1071};
let TotallyNotJson.1069 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1070; let TotallyNotJson.1069 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1070;
ret TotallyNotJson.1069; ret TotallyNotJson.1069;
case 47: case 92:
let TotallyNotJson.1074 : Int1 = false; let TotallyNotJson.1074 : Int1 = false;
let TotallyNotJson.1073 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1074}; let TotallyNotJson.1073 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1074};
let TotallyNotJson.1072 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1073; let TotallyNotJson.1072 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1073;
ret TotallyNotJson.1072; ret TotallyNotJson.1072;
case 8: case 47:
let TotallyNotJson.1077 : Int1 = false; let TotallyNotJson.1077 : Int1 = false;
let TotallyNotJson.1076 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1077}; let TotallyNotJson.1076 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1077};
let TotallyNotJson.1075 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1076; let TotallyNotJson.1075 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1076;
ret TotallyNotJson.1075; ret TotallyNotJson.1075;
case 12: case 8:
let TotallyNotJson.1080 : Int1 = false; let TotallyNotJson.1080 : Int1 = false;
let TotallyNotJson.1079 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1080}; let TotallyNotJson.1079 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1080};
let TotallyNotJson.1078 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1079; let TotallyNotJson.1078 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1079;
ret TotallyNotJson.1078; ret TotallyNotJson.1078;
case 10: case 12:
let TotallyNotJson.1083 : Int1 = false; let TotallyNotJson.1083 : Int1 = false;
let TotallyNotJson.1082 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1083}; let TotallyNotJson.1082 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1083};
let TotallyNotJson.1081 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1082; let TotallyNotJson.1081 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1082;
ret TotallyNotJson.1081; ret TotallyNotJson.1081;
case 13: case 10:
let TotallyNotJson.1086 : Int1 = false; let TotallyNotJson.1086 : Int1 = false;
let TotallyNotJson.1085 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1086}; let TotallyNotJson.1085 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1086};
let TotallyNotJson.1084 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1085; let TotallyNotJson.1084 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1085;
ret TotallyNotJson.1084; ret TotallyNotJson.1084;
case 9: case 13:
let TotallyNotJson.1089 : Int1 = false; let TotallyNotJson.1089 : Int1 = false;
let TotallyNotJson.1088 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1089}; let TotallyNotJson.1088 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1089};
let TotallyNotJson.1087 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1088; let TotallyNotJson.1087 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1088;
ret TotallyNotJson.1087; ret TotallyNotJson.1087;
default: case 9:
let TotallyNotJson.1093 : U64 = 1i64; let TotallyNotJson.1092 : Int1 = false;
let TotallyNotJson.1092 : U64 = CallByName Num.19 TotallyNotJson.158 TotallyNotJson.1093; let TotallyNotJson.1091 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1092};
let TotallyNotJson.1091 : {U64, Int1} = Struct {TotallyNotJson.1092, TotallyNotJson.159}; let TotallyNotJson.1090 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1091;
let TotallyNotJson.1090 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) TotallyNotJson.1091;
ret TotallyNotJson.1090; ret TotallyNotJson.1090;
default:
let TotallyNotJson.1096 : U64 = 1i64;
let TotallyNotJson.1095 : U64 = CallByName Num.19 TotallyNotJson.158 TotallyNotJson.1096;
let TotallyNotJson.1094 : {U64, Int1} = Struct {TotallyNotJson.1095, TotallyNotJson.159};
let TotallyNotJson.1093 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) TotallyNotJson.1094;
ret TotallyNotJson.1093;
procedure TotallyNotJson.183 (TotallyNotJson.184, TotallyNotJson.185): procedure TotallyNotJson.183 (TotallyNotJson.184, TotallyNotJson.185):
let TotallyNotJson.1036 : List U8 = CallByName TotallyNotJson.27 TotallyNotJson.185; let TotallyNotJson.1039 : List U8 = CallByName TotallyNotJson.27 TotallyNotJson.185;
let TotallyNotJson.1035 : List U8 = CallByName List.8 TotallyNotJson.184 TotallyNotJson.1036; let TotallyNotJson.1038 : List U8 = CallByName List.8 TotallyNotJson.184 TotallyNotJson.1039;
ret TotallyNotJson.1035; ret TotallyNotJson.1038;
procedure TotallyNotJson.228 (TotallyNotJson.229, TotallyNotJson.973, #Attr.12): procedure TotallyNotJson.231 (TotallyNotJson.232, TotallyNotJson.976, #Attr.12):
let TotallyNotJson.227 : List Str = StructAtIndex 1 #Attr.12; let TotallyNotJson.230 : List Str = StructAtIndex 1 #Attr.12;
let TotallyNotJson.226 : Str = StructAtIndex 0 #Attr.12; let TotallyNotJson.229 : Str = StructAtIndex 0 #Attr.12;
let TotallyNotJson.1011 : I64 = 123i64; let TotallyNotJson.1014 : I64 = 123i64;
let TotallyNotJson.1010 : U8 = CallByName Num.127 TotallyNotJson.1011; let TotallyNotJson.1013 : U8 = CallByName Num.127 TotallyNotJson.1014;
let TotallyNotJson.1007 : List U8 = CallByName List.4 TotallyNotJson.229 TotallyNotJson.1010; let TotallyNotJson.1010 : List U8 = CallByName List.4 TotallyNotJson.232 TotallyNotJson.1013;
let TotallyNotJson.1009 : I64 = 34i64; let TotallyNotJson.1012 : I64 = 34i64;
let TotallyNotJson.1008 : U8 = CallByName Num.127 TotallyNotJson.1009; let TotallyNotJson.1011 : U8 = CallByName Num.127 TotallyNotJson.1012;
let TotallyNotJson.1005 : List U8 = CallByName List.4 TotallyNotJson.1007 TotallyNotJson.1008; let TotallyNotJson.1008 : List U8 = CallByName List.4 TotallyNotJson.1010 TotallyNotJson.1011;
let TotallyNotJson.1006 : List U8 = CallByName Str.12 TotallyNotJson.226; let TotallyNotJson.1009 : List U8 = CallByName Str.12 TotallyNotJson.229;
let TotallyNotJson.1002 : List U8 = CallByName List.8 TotallyNotJson.1005 TotallyNotJson.1006; let TotallyNotJson.1005 : List U8 = CallByName List.8 TotallyNotJson.1008 TotallyNotJson.1009;
let TotallyNotJson.1004 : I64 = 34i64; let TotallyNotJson.1007 : I64 = 34i64;
let TotallyNotJson.1006 : U8 = CallByName Num.127 TotallyNotJson.1007;
let TotallyNotJson.1002 : List U8 = CallByName List.4 TotallyNotJson.1005 TotallyNotJson.1006;
let TotallyNotJson.1004 : I64 = 58i64;
let TotallyNotJson.1003 : U8 = CallByName Num.127 TotallyNotJson.1004; let TotallyNotJson.1003 : U8 = CallByName Num.127 TotallyNotJson.1004;
let TotallyNotJson.999 : List U8 = CallByName List.4 TotallyNotJson.1002 TotallyNotJson.1003; let TotallyNotJson.999 : List U8 = CallByName List.4 TotallyNotJson.1002 TotallyNotJson.1003;
let TotallyNotJson.1001 : I64 = 58i64; let TotallyNotJson.1001 : I64 = 91i64;
let TotallyNotJson.1000 : U8 = CallByName Num.127 TotallyNotJson.1001; let TotallyNotJson.1000 : U8 = CallByName Num.127 TotallyNotJson.1001;
let TotallyNotJson.996 : List U8 = CallByName List.4 TotallyNotJson.999 TotallyNotJson.1000; let TotallyNotJson.234 : List U8 = CallByName List.4 TotallyNotJson.999 TotallyNotJson.1000;
let TotallyNotJson.998 : I64 = 91i64; let TotallyNotJson.998 : U64 = CallByName List.6 TotallyNotJson.230;
let TotallyNotJson.997 : U8 = CallByName Num.127 TotallyNotJson.998; let TotallyNotJson.986 : {List U8, U64} = Struct {TotallyNotJson.234, TotallyNotJson.998};
let TotallyNotJson.231 : List U8 = CallByName List.4 TotallyNotJson.996 TotallyNotJson.997; let TotallyNotJson.987 : {} = Struct {};
let TotallyNotJson.995 : U64 = CallByName List.6 TotallyNotJson.227; let TotallyNotJson.985 : {List U8, U64} = CallByName List.18 TotallyNotJson.230 TotallyNotJson.986 TotallyNotJson.987;
let TotallyNotJson.983 : {List U8, U64} = Struct {TotallyNotJson.231, TotallyNotJson.995}; let TotallyNotJson.236 : List U8 = StructAtIndex 0 TotallyNotJson.985;
let TotallyNotJson.984 : {} = Struct {}; let TotallyNotJson.984 : I64 = 93i64;
let TotallyNotJson.982 : {List U8, U64} = CallByName List.18 TotallyNotJson.227 TotallyNotJson.983 TotallyNotJson.984; let TotallyNotJson.983 : U8 = CallByName Num.127 TotallyNotJson.984;
let TotallyNotJson.233 : List U8 = StructAtIndex 0 TotallyNotJson.982; let TotallyNotJson.980 : List U8 = CallByName List.4 TotallyNotJson.236 TotallyNotJson.983;
let TotallyNotJson.981 : I64 = 93i64; let TotallyNotJson.982 : I64 = 125i64;
let TotallyNotJson.980 : U8 = CallByName Num.127 TotallyNotJson.981; let TotallyNotJson.981 : U8 = CallByName Num.127 TotallyNotJson.982;
let TotallyNotJson.977 : List U8 = CallByName List.4 TotallyNotJson.233 TotallyNotJson.980; let TotallyNotJson.979 : List U8 = CallByName List.4 TotallyNotJson.980 TotallyNotJson.981;
let TotallyNotJson.979 : I64 = 125i64; ret TotallyNotJson.979;
let TotallyNotJson.978 : U8 = CallByName Num.127 TotallyNotJson.979;
let TotallyNotJson.976 : List U8 = CallByName List.4 TotallyNotJson.977 TotallyNotJson.978;
ret TotallyNotJson.976;
procedure TotallyNotJson.230 (TotallyNotJson.975, TotallyNotJson.236): procedure TotallyNotJson.233 (TotallyNotJson.978, TotallyNotJson.239):
let TotallyNotJson.234 : List U8 = StructAtIndex 0 TotallyNotJson.975; let TotallyNotJson.237 : List U8 = StructAtIndex 0 TotallyNotJson.978;
let TotallyNotJson.235 : U64 = StructAtIndex 1 TotallyNotJson.975; let TotallyNotJson.238 : U64 = StructAtIndex 1 TotallyNotJson.978;
let TotallyNotJson.994 : {} = Struct {}; let TotallyNotJson.997 : {} = Struct {};
let TotallyNotJson.237 : List U8 = CallByName Encode.24 TotallyNotJson.234 TotallyNotJson.236 TotallyNotJson.994; let TotallyNotJson.240 : List U8 = CallByName Encode.24 TotallyNotJson.237 TotallyNotJson.239 TotallyNotJson.997;
joinpoint TotallyNotJson.989 TotallyNotJson.238: joinpoint TotallyNotJson.992 TotallyNotJson.241:
let TotallyNotJson.987 : U64 = 1i64; let TotallyNotJson.990 : U64 = 1i64;
let TotallyNotJson.986 : U64 = CallByName Num.20 TotallyNotJson.235 TotallyNotJson.987; let TotallyNotJson.989 : U64 = CallByName Num.20 TotallyNotJson.238 TotallyNotJson.990;
let TotallyNotJson.985 : {List U8, U64} = Struct {TotallyNotJson.238, TotallyNotJson.986}; let TotallyNotJson.988 : {List U8, U64} = Struct {TotallyNotJson.241, TotallyNotJson.989};
ret TotallyNotJson.985; ret TotallyNotJson.988;
in in
let TotallyNotJson.993 : U64 = 1i64; let TotallyNotJson.996 : U64 = 1i64;
let TotallyNotJson.990 : Int1 = CallByName Num.24 TotallyNotJson.235 TotallyNotJson.993; let TotallyNotJson.993 : Int1 = CallByName Num.24 TotallyNotJson.238 TotallyNotJson.996;
if TotallyNotJson.990 then if TotallyNotJson.993 then
let TotallyNotJson.992 : I64 = 44i64; let TotallyNotJson.995 : I64 = 44i64;
let TotallyNotJson.991 : U8 = CallByName Num.127 TotallyNotJson.992; let TotallyNotJson.994 : U8 = CallByName Num.127 TotallyNotJson.995;
let TotallyNotJson.988 : List U8 = CallByName List.4 TotallyNotJson.237 TotallyNotJson.991; let TotallyNotJson.991 : List U8 = CallByName List.4 TotallyNotJson.240 TotallyNotJson.994;
jump TotallyNotJson.989 TotallyNotJson.988; jump TotallyNotJson.992 TotallyNotJson.991;
else else
jump TotallyNotJson.989 TotallyNotJson.237; jump TotallyNotJson.992 TotallyNotJson.240;
procedure TotallyNotJson.25 (TotallyNotJson.149): procedure TotallyNotJson.25 (TotallyNotJson.149):
let TotallyNotJson.1012 : Str = CallByName Encode.23 TotallyNotJson.149; let TotallyNotJson.1015 : Str = CallByName Encode.23 TotallyNotJson.149;
ret TotallyNotJson.1012; ret TotallyNotJson.1015;
procedure TotallyNotJson.26 (TotallyNotJson.152): procedure TotallyNotJson.26 (TotallyNotJson.152):
let TotallyNotJson.153 : List U8 = CallByName Str.12 TotallyNotJson.152; let TotallyNotJson.153 : List U8 = CallByName Str.12 TotallyNotJson.152;
let TotallyNotJson.1094 : U64 = 0i64; let TotallyNotJson.1097 : U64 = 0i64;
let TotallyNotJson.1095 : Int1 = true; let TotallyNotJson.1098 : Int1 = true;
let TotallyNotJson.154 : {U64, Int1} = Struct {TotallyNotJson.1094, TotallyNotJson.1095}; let TotallyNotJson.154 : {U64, Int1} = Struct {TotallyNotJson.1097, TotallyNotJson.1098};
let TotallyNotJson.1064 : {} = Struct {}; let TotallyNotJson.1067 : {} = Struct {};
inc TotallyNotJson.153; inc TotallyNotJson.153;
let TotallyNotJson.155 : {U64, Int1} = CallByName List.26 TotallyNotJson.153 TotallyNotJson.154 TotallyNotJson.1064; let TotallyNotJson.155 : {U64, Int1} = CallByName List.26 TotallyNotJson.153 TotallyNotJson.154 TotallyNotJson.1067;
let TotallyNotJson.1018 : Int1 = StructAtIndex 1 TotallyNotJson.155; let TotallyNotJson.1021 : Int1 = StructAtIndex 1 TotallyNotJson.155;
let TotallyNotJson.1062 : Int1 = true; let TotallyNotJson.1065 : Int1 = true;
let TotallyNotJson.1063 : Int1 = lowlevel Eq TotallyNotJson.1062 TotallyNotJson.1018; let TotallyNotJson.1066 : Int1 = lowlevel Eq TotallyNotJson.1065 TotallyNotJson.1021;
if TotallyNotJson.1063 then if TotallyNotJson.1066 then
let TotallyNotJson.1028 : U64 = CallByName List.6 TotallyNotJson.153; let TotallyNotJson.1031 : U64 = CallByName List.6 TotallyNotJson.153;
let TotallyNotJson.1029 : U64 = 2i64; let TotallyNotJson.1032 : U64 = 2i64;
let TotallyNotJson.1027 : U64 = CallByName Num.19 TotallyNotJson.1028 TotallyNotJson.1029; let TotallyNotJson.1030 : U64 = CallByName Num.19 TotallyNotJson.1031 TotallyNotJson.1032;
let TotallyNotJson.1024 : List U8 = CallByName List.68 TotallyNotJson.1027; let TotallyNotJson.1027 : List U8 = CallByName List.68 TotallyNotJson.1030;
let TotallyNotJson.1026 : U8 = 34i64; let TotallyNotJson.1029 : U8 = 34i64;
let TotallyNotJson.1025 : List U8 = Array [TotallyNotJson.1026]; let TotallyNotJson.1028 : List U8 = Array [TotallyNotJson.1029];
let TotallyNotJson.1023 : List U8 = CallByName List.8 TotallyNotJson.1024 TotallyNotJson.1025; let TotallyNotJson.1026 : List U8 = CallByName List.8 TotallyNotJson.1027 TotallyNotJson.1028;
let TotallyNotJson.1020 : List U8 = CallByName List.8 TotallyNotJson.1023 TotallyNotJson.153; let TotallyNotJson.1023 : List U8 = CallByName List.8 TotallyNotJson.1026 TotallyNotJson.153;
let TotallyNotJson.1022 : U8 = 34i64; let TotallyNotJson.1025 : U8 = 34i64;
let TotallyNotJson.1021 : List U8 = Array [TotallyNotJson.1022]; let TotallyNotJson.1024 : List U8 = Array [TotallyNotJson.1025];
let TotallyNotJson.1019 : List U8 = CallByName List.8 TotallyNotJson.1020 TotallyNotJson.1021; let TotallyNotJson.1022 : List U8 = CallByName List.8 TotallyNotJson.1023 TotallyNotJson.1024;
ret TotallyNotJson.1019; ret TotallyNotJson.1022;
else else
inc TotallyNotJson.153; inc TotallyNotJson.153;
let TotallyNotJson.1061 : U64 = StructAtIndex 0 TotallyNotJson.155; let TotallyNotJson.1064 : U64 = StructAtIndex 0 TotallyNotJson.155;
let TotallyNotJson.1060 : {List U8, List U8} = CallByName List.52 TotallyNotJson.153 TotallyNotJson.1061; let TotallyNotJson.1063 : {List U8, List U8} = CallByName List.52 TotallyNotJson.153 TotallyNotJson.1064;
let TotallyNotJson.179 : List U8 = StructAtIndex 0 TotallyNotJson.1060; let TotallyNotJson.179 : List U8 = StructAtIndex 0 TotallyNotJson.1063;
let TotallyNotJson.181 : List U8 = StructAtIndex 1 TotallyNotJson.1060; let TotallyNotJson.181 : List U8 = StructAtIndex 1 TotallyNotJson.1063;
let TotallyNotJson.1058 : U64 = CallByName List.6 TotallyNotJson.153; let TotallyNotJson.1061 : U64 = CallByName List.6 TotallyNotJson.153;
dec TotallyNotJson.153; dec TotallyNotJson.153;
let TotallyNotJson.1059 : U64 = 120i64; let TotallyNotJson.1062 : U64 = 120i64;
let TotallyNotJson.1056 : U64 = CallByName Num.21 TotallyNotJson.1058 TotallyNotJson.1059; let TotallyNotJson.1059 : U64 = CallByName Num.21 TotallyNotJson.1061 TotallyNotJson.1062;
let TotallyNotJson.1057 : U64 = 100i64; let TotallyNotJson.1060 : U64 = 100i64;
let TotallyNotJson.1055 : U64 = CallByName Num.137 TotallyNotJson.1056 TotallyNotJson.1057; let TotallyNotJson.1058 : U64 = CallByName Num.137 TotallyNotJson.1059 TotallyNotJson.1060;
let TotallyNotJson.1052 : List U8 = CallByName List.68 TotallyNotJson.1055; let TotallyNotJson.1055 : List U8 = CallByName List.68 TotallyNotJson.1058;
let TotallyNotJson.1054 : U8 = 34i64; let TotallyNotJson.1057 : U8 = 34i64;
let TotallyNotJson.1053 : List U8 = Array [TotallyNotJson.1054]; let TotallyNotJson.1056 : List U8 = Array [TotallyNotJson.1057];
let TotallyNotJson.1051 : List U8 = CallByName List.8 TotallyNotJson.1052 TotallyNotJson.1053; let TotallyNotJson.1054 : List U8 = CallByName List.8 TotallyNotJson.1055 TotallyNotJson.1056;
let TotallyNotJson.182 : List U8 = CallByName List.8 TotallyNotJson.1051 TotallyNotJson.179; let TotallyNotJson.182 : List U8 = CallByName List.8 TotallyNotJson.1054 TotallyNotJson.179;
let TotallyNotJson.1034 : {} = Struct {}; let TotallyNotJson.1037 : {} = Struct {};
let TotallyNotJson.1031 : List U8 = CallByName List.18 TotallyNotJson.181 TotallyNotJson.182 TotallyNotJson.1034; let TotallyNotJson.1034 : List U8 = CallByName List.18 TotallyNotJson.181 TotallyNotJson.182 TotallyNotJson.1037;
let TotallyNotJson.1033 : U8 = 34i64; let TotallyNotJson.1036 : U8 = 34i64;
let TotallyNotJson.1032 : List U8 = Array [TotallyNotJson.1033]; let TotallyNotJson.1035 : List U8 = Array [TotallyNotJson.1036];
let TotallyNotJson.1030 : List U8 = CallByName List.8 TotallyNotJson.1031 TotallyNotJson.1032; let TotallyNotJson.1033 : List U8 = CallByName List.8 TotallyNotJson.1034 TotallyNotJson.1035;
ret TotallyNotJson.1030; ret TotallyNotJson.1033;
procedure TotallyNotJson.27 (TotallyNotJson.186): procedure TotallyNotJson.27 (TotallyNotJson.186):
switch TotallyNotJson.186: switch TotallyNotJson.186:
case 34: case 34:
let TotallyNotJson.1037 : List U8 = Array [92i64, 34i64]; let TotallyNotJson.1040 : List U8 = Array [92i64, 34i64];
ret TotallyNotJson.1037;
case 92:
let TotallyNotJson.1038 : List U8 = Array [92i64, 92i64];
ret TotallyNotJson.1038;
case 47:
let TotallyNotJson.1039 : List U8 = Array [92i64, 47i64];
ret TotallyNotJson.1039;
case 8:
let TotallyNotJson.1041 : U8 = 98i64;
let TotallyNotJson.1040 : List U8 = Array [92i64, TotallyNotJson.1041];
ret TotallyNotJson.1040; ret TotallyNotJson.1040;
case 12: case 92:
let TotallyNotJson.1043 : U8 = 102i64; let TotallyNotJson.1041 : List U8 = Array [92i64, 92i64];
let TotallyNotJson.1042 : List U8 = Array [92i64, TotallyNotJson.1043]; ret TotallyNotJson.1041;
case 47:
let TotallyNotJson.1042 : List U8 = Array [92i64, 47i64];
ret TotallyNotJson.1042; ret TotallyNotJson.1042;
case 8:
let TotallyNotJson.1044 : U8 = 98i64;
let TotallyNotJson.1043 : List U8 = Array [92i64, TotallyNotJson.1044];
ret TotallyNotJson.1043;
case 12:
let TotallyNotJson.1046 : U8 = 102i64;
let TotallyNotJson.1045 : List U8 = Array [92i64, TotallyNotJson.1046];
ret TotallyNotJson.1045;
case 10: case 10:
let TotallyNotJson.1045 : U8 = 110i64; let TotallyNotJson.1048 : U8 = 110i64;
let TotallyNotJson.1044 : List U8 = Array [92i64, TotallyNotJson.1045]; let TotallyNotJson.1047 : List U8 = Array [92i64, TotallyNotJson.1048];
ret TotallyNotJson.1044; ret TotallyNotJson.1047;
case 13: case 13:
let TotallyNotJson.1047 : U8 = 114i64; let TotallyNotJson.1050 : U8 = 114i64;
let TotallyNotJson.1046 : List U8 = Array [92i64, TotallyNotJson.1047]; let TotallyNotJson.1049 : List U8 = Array [92i64, TotallyNotJson.1050];
ret TotallyNotJson.1046; ret TotallyNotJson.1049;
case 9: case 9:
let TotallyNotJson.1049 : U8 = 114i64; let TotallyNotJson.1052 : U8 = 114i64;
let TotallyNotJson.1048 : List U8 = Array [92i64, TotallyNotJson.1049]; let TotallyNotJson.1051 : List U8 = Array [92i64, TotallyNotJson.1052];
ret TotallyNotJson.1048; ret TotallyNotJson.1051;
default: default:
let TotallyNotJson.1050 : List U8 = Array [TotallyNotJson.186]; let TotallyNotJson.1053 : List U8 = Array [TotallyNotJson.186];
ret TotallyNotJson.1050; ret TotallyNotJson.1053;
procedure TotallyNotJson.31 (TotallyNotJson.226, TotallyNotJson.227): procedure TotallyNotJson.31 (TotallyNotJson.229, TotallyNotJson.230):
let TotallyNotJson.972 : {Str, List Str} = Struct {TotallyNotJson.226, TotallyNotJson.227}; let TotallyNotJson.975 : {Str, List Str} = Struct {TotallyNotJson.229, TotallyNotJson.230};
let TotallyNotJson.971 : {Str, List Str} = CallByName Encode.23 TotallyNotJson.972; let TotallyNotJson.974 : {Str, List Str} = CallByName Encode.23 TotallyNotJson.975;
ret TotallyNotJson.971; ret TotallyNotJson.974;
procedure TotallyNotJson.8 (): procedure TotallyNotJson.8 ():
let TotallyNotJson.970 : {} = Struct {}; let TotallyNotJson.973 : {} = Struct {};
ret TotallyNotJson.970; ret TotallyNotJson.973;
procedure Test.0 (): procedure Test.0 ():
let Test.12 : Str = "foo"; let Test.12 : Str = "foo";

314
crates/compiler/test_mono/generated/encode_derived_tag_two_payloads_string.txt generated
View file

@ -30,7 +30,7 @@ procedure Encode.24 (Encode.99, Encode.107, Encode.101):
ret Encode.111; ret Encode.111;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
let Encode.113 : List U8 = CallByName TotallyNotJson.228 Encode.99 Encode.101 Encode.107; let Encode.113 : List U8 = CallByName TotallyNotJson.231 Encode.99 Encode.101 Encode.107;
ret Encode.113; ret Encode.113;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
@ -140,7 +140,7 @@ procedure List.8 (#Attr.2, #Attr.3):
let List.633 : List U8 = lowlevel ListConcat #Attr.2 #Attr.3; let List.633 : List U8 = lowlevel ListConcat #Attr.2 #Attr.3;
ret List.633; ret List.633;
procedure List.80 (#Derived_gen.27, #Derived_gen.28, #Derived_gen.29, #Derived_gen.30, #Derived_gen.31): procedure List.80 (#Derived_gen.24, #Derived_gen.25, #Derived_gen.26, #Derived_gen.27, #Derived_gen.28):
joinpoint List.657 List.490 List.491 List.492 List.493 List.494: joinpoint List.657 List.490 List.491 List.492 List.493 List.494:
let List.659 : Int1 = CallByName Num.22 List.493 List.494; let List.659 : Int1 = CallByName Num.22 List.493 List.494;
if List.659 then if List.659 then
@ -164,7 +164,7 @@ procedure List.80 (#Derived_gen.27, #Derived_gen.28, #Derived_gen.29, #Derived_g
let List.658 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) List.491; let List.658 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) List.491;
ret List.658; ret List.658;
in in
jump List.657 #Derived_gen.27 #Derived_gen.28 #Derived_gen.29 #Derived_gen.30 #Derived_gen.31; jump List.657 #Derived_gen.24 #Derived_gen.25 #Derived_gen.26 #Derived_gen.27 #Derived_gen.28;
procedure List.91 (#Derived_gen.14, #Derived_gen.15, #Derived_gen.16, #Derived_gen.17, #Derived_gen.18): procedure List.91 (#Derived_gen.14, #Derived_gen.15, #Derived_gen.16, #Derived_gen.17, #Derived_gen.18):
joinpoint List.601 List.162 List.163 List.164 List.165 List.166: joinpoint List.601 List.162 List.163 List.164 List.165 List.166:
@ -172,7 +172,7 @@ procedure List.91 (#Derived_gen.14, #Derived_gen.15, #Derived_gen.16, #Derived_g
if List.603 then if List.603 then
let List.607 : Str = CallByName List.66 List.162 List.165; let List.607 : Str = CallByName List.66 List.162 List.165;
inc List.607; inc List.607;
let List.167 : {List U8, U64} = CallByName TotallyNotJson.230 List.163 List.607; let List.167 : {List U8, U64} = CallByName TotallyNotJson.233 List.163 List.607;
let List.606 : U64 = 1i64; let List.606 : U64 = 1i64;
let List.605 : U64 = CallByName Num.51 List.165 List.606; let List.605 : U64 = CallByName Num.51 List.165 List.606;
jump List.601 List.162 List.167 List.164 List.605 List.166; jump List.601 List.162 List.167 List.164 List.605 List.166;
@ -182,7 +182,7 @@ procedure List.91 (#Derived_gen.14, #Derived_gen.15, #Derived_gen.16, #Derived_g
in in
jump List.601 #Derived_gen.14 #Derived_gen.15 #Derived_gen.16 #Derived_gen.17 #Derived_gen.18; jump List.601 #Derived_gen.14 #Derived_gen.15 #Derived_gen.16 #Derived_gen.17 #Derived_gen.18;
procedure List.91 (#Derived_gen.22, #Derived_gen.23, #Derived_gen.24, #Derived_gen.25, #Derived_gen.26): procedure List.91 (#Derived_gen.19, #Derived_gen.20, #Derived_gen.21, #Derived_gen.22, #Derived_gen.23):
joinpoint List.613 List.162 List.163 List.164 List.165 List.166: joinpoint List.613 List.162 List.163 List.164 List.165 List.166:
let List.615 : Int1 = CallByName Num.22 List.165 List.166; let List.615 : Int1 = CallByName Num.22 List.165 List.166;
if List.615 then if List.615 then
@ -195,7 +195,7 @@ procedure List.91 (#Derived_gen.22, #Derived_gen.23, #Derived_gen.24, #Derived_g
dec List.162; dec List.162;
ret List.163; ret List.163;
in in
jump List.613 #Derived_gen.22 #Derived_gen.23 #Derived_gen.24 #Derived_gen.25 #Derived_gen.26; jump List.613 #Derived_gen.19 #Derived_gen.20 #Derived_gen.21 #Derived_gen.22 #Derived_gen.23;
procedure Num.127 (#Attr.2): procedure Num.127 (#Attr.2):
let Num.282 : U8 = lowlevel NumIntCast #Attr.2; let Num.282 : U8 = lowlevel NumIntCast #Attr.2;
@ -257,234 +257,234 @@ procedure Str.9 (Str.67):
let Str.232 : [C {U64, U8}, C Str] = TagId(0) Str.233; let Str.232 : [C {U64, U8}, C Str] = TagId(0) Str.233;
ret Str.232; ret Str.232;
procedure TotallyNotJson.150 (TotallyNotJson.151, TotallyNotJson.1014, TotallyNotJson.149): procedure TotallyNotJson.150 (TotallyNotJson.151, TotallyNotJson.1017, TotallyNotJson.149):
let TotallyNotJson.1017 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.149; let TotallyNotJson.1020 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.149;
let TotallyNotJson.1016 : List U8 = CallByName List.8 TotallyNotJson.151 TotallyNotJson.1017; let TotallyNotJson.1019 : List U8 = CallByName List.8 TotallyNotJson.151 TotallyNotJson.1020;
ret TotallyNotJson.1016; ret TotallyNotJson.1019;
procedure TotallyNotJson.157 (TotallyNotJson.1065, TotallyNotJson.160): procedure TotallyNotJson.157 (TotallyNotJson.1068, TotallyNotJson.160):
let TotallyNotJson.158 : U64 = StructAtIndex 0 TotallyNotJson.1065; let TotallyNotJson.158 : U64 = StructAtIndex 0 TotallyNotJson.1068;
let TotallyNotJson.159 : Int1 = StructAtIndex 1 TotallyNotJson.1065; let TotallyNotJson.159 : Int1 = StructAtIndex 1 TotallyNotJson.1068;
switch TotallyNotJson.160: switch TotallyNotJson.160:
case 34: case 34:
let TotallyNotJson.1068 : Int1 = false;
let TotallyNotJson.1067 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1068};
let TotallyNotJson.1066 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1067;
ret TotallyNotJson.1066;
case 92:
let TotallyNotJson.1071 : Int1 = false; let TotallyNotJson.1071 : Int1 = false;
let TotallyNotJson.1070 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1071}; let TotallyNotJson.1070 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1071};
let TotallyNotJson.1069 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1070; let TotallyNotJson.1069 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1070;
ret TotallyNotJson.1069; ret TotallyNotJson.1069;
case 47: case 92:
let TotallyNotJson.1074 : Int1 = false; let TotallyNotJson.1074 : Int1 = false;
let TotallyNotJson.1073 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1074}; let TotallyNotJson.1073 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1074};
let TotallyNotJson.1072 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1073; let TotallyNotJson.1072 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1073;
ret TotallyNotJson.1072; ret TotallyNotJson.1072;
case 8: case 47:
let TotallyNotJson.1077 : Int1 = false; let TotallyNotJson.1077 : Int1 = false;
let TotallyNotJson.1076 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1077}; let TotallyNotJson.1076 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1077};
let TotallyNotJson.1075 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1076; let TotallyNotJson.1075 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1076;
ret TotallyNotJson.1075; ret TotallyNotJson.1075;
case 12: case 8:
let TotallyNotJson.1080 : Int1 = false; let TotallyNotJson.1080 : Int1 = false;
let TotallyNotJson.1079 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1080}; let TotallyNotJson.1079 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1080};
let TotallyNotJson.1078 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1079; let TotallyNotJson.1078 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1079;
ret TotallyNotJson.1078; ret TotallyNotJson.1078;
case 10: case 12:
let TotallyNotJson.1083 : Int1 = false; let TotallyNotJson.1083 : Int1 = false;
let TotallyNotJson.1082 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1083}; let TotallyNotJson.1082 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1083};
let TotallyNotJson.1081 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1082; let TotallyNotJson.1081 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1082;
ret TotallyNotJson.1081; ret TotallyNotJson.1081;
case 13: case 10:
let TotallyNotJson.1086 : Int1 = false; let TotallyNotJson.1086 : Int1 = false;
let TotallyNotJson.1085 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1086}; let TotallyNotJson.1085 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1086};
let TotallyNotJson.1084 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1085; let TotallyNotJson.1084 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1085;
ret TotallyNotJson.1084; ret TotallyNotJson.1084;
case 9: case 13:
let TotallyNotJson.1089 : Int1 = false; let TotallyNotJson.1089 : Int1 = false;
let TotallyNotJson.1088 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1089}; let TotallyNotJson.1088 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1089};
let TotallyNotJson.1087 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1088; let TotallyNotJson.1087 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1088;
ret TotallyNotJson.1087; ret TotallyNotJson.1087;
default: case 9:
let TotallyNotJson.1093 : U64 = 1i64; let TotallyNotJson.1092 : Int1 = false;
let TotallyNotJson.1092 : U64 = CallByName Num.19 TotallyNotJson.158 TotallyNotJson.1093; let TotallyNotJson.1091 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1092};
let TotallyNotJson.1091 : {U64, Int1} = Struct {TotallyNotJson.1092, TotallyNotJson.159}; let TotallyNotJson.1090 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1091;
let TotallyNotJson.1090 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) TotallyNotJson.1091;
ret TotallyNotJson.1090; ret TotallyNotJson.1090;
default:
let TotallyNotJson.1096 : U64 = 1i64;
let TotallyNotJson.1095 : U64 = CallByName Num.19 TotallyNotJson.158 TotallyNotJson.1096;
let TotallyNotJson.1094 : {U64, Int1} = Struct {TotallyNotJson.1095, TotallyNotJson.159};
let TotallyNotJson.1093 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) TotallyNotJson.1094;
ret TotallyNotJson.1093;
procedure TotallyNotJson.183 (TotallyNotJson.184, TotallyNotJson.185): procedure TotallyNotJson.183 (TotallyNotJson.184, TotallyNotJson.185):
let TotallyNotJson.1036 : List U8 = CallByName TotallyNotJson.27 TotallyNotJson.185; let TotallyNotJson.1039 : List U8 = CallByName TotallyNotJson.27 TotallyNotJson.185;
let TotallyNotJson.1035 : List U8 = CallByName List.8 TotallyNotJson.184 TotallyNotJson.1036; let TotallyNotJson.1038 : List U8 = CallByName List.8 TotallyNotJson.184 TotallyNotJson.1039;
ret TotallyNotJson.1035; ret TotallyNotJson.1038;
procedure TotallyNotJson.228 (TotallyNotJson.229, TotallyNotJson.973, #Attr.12): procedure TotallyNotJson.231 (TotallyNotJson.232, TotallyNotJson.976, #Attr.12):
let TotallyNotJson.227 : List Str = StructAtIndex 1 #Attr.12; let TotallyNotJson.230 : List Str = StructAtIndex 1 #Attr.12;
let TotallyNotJson.226 : Str = StructAtIndex 0 #Attr.12; let TotallyNotJson.229 : Str = StructAtIndex 0 #Attr.12;
let TotallyNotJson.1011 : I64 = 123i64; let TotallyNotJson.1014 : I64 = 123i64;
let TotallyNotJson.1010 : U8 = CallByName Num.127 TotallyNotJson.1011; let TotallyNotJson.1013 : U8 = CallByName Num.127 TotallyNotJson.1014;
let TotallyNotJson.1007 : List U8 = CallByName List.4 TotallyNotJson.229 TotallyNotJson.1010; let TotallyNotJson.1010 : List U8 = CallByName List.4 TotallyNotJson.232 TotallyNotJson.1013;
let TotallyNotJson.1009 : I64 = 34i64; let TotallyNotJson.1012 : I64 = 34i64;
let TotallyNotJson.1008 : U8 = CallByName Num.127 TotallyNotJson.1009; let TotallyNotJson.1011 : U8 = CallByName Num.127 TotallyNotJson.1012;
let TotallyNotJson.1005 : List U8 = CallByName List.4 TotallyNotJson.1007 TotallyNotJson.1008; let TotallyNotJson.1008 : List U8 = CallByName List.4 TotallyNotJson.1010 TotallyNotJson.1011;
let TotallyNotJson.1006 : List U8 = CallByName Str.12 TotallyNotJson.226; let TotallyNotJson.1009 : List U8 = CallByName Str.12 TotallyNotJson.229;
let TotallyNotJson.1002 : List U8 = CallByName List.8 TotallyNotJson.1005 TotallyNotJson.1006; let TotallyNotJson.1005 : List U8 = CallByName List.8 TotallyNotJson.1008 TotallyNotJson.1009;
let TotallyNotJson.1004 : I64 = 34i64; let TotallyNotJson.1007 : I64 = 34i64;
let TotallyNotJson.1006 : U8 = CallByName Num.127 TotallyNotJson.1007;
let TotallyNotJson.1002 : List U8 = CallByName List.4 TotallyNotJson.1005 TotallyNotJson.1006;
let TotallyNotJson.1004 : I64 = 58i64;
let TotallyNotJson.1003 : U8 = CallByName Num.127 TotallyNotJson.1004; let TotallyNotJson.1003 : U8 = CallByName Num.127 TotallyNotJson.1004;
let TotallyNotJson.999 : List U8 = CallByName List.4 TotallyNotJson.1002 TotallyNotJson.1003; let TotallyNotJson.999 : List U8 = CallByName List.4 TotallyNotJson.1002 TotallyNotJson.1003;
let TotallyNotJson.1001 : I64 = 58i64; let TotallyNotJson.1001 : I64 = 91i64;
let TotallyNotJson.1000 : U8 = CallByName Num.127 TotallyNotJson.1001; let TotallyNotJson.1000 : U8 = CallByName Num.127 TotallyNotJson.1001;
let TotallyNotJson.996 : List U8 = CallByName List.4 TotallyNotJson.999 TotallyNotJson.1000; let TotallyNotJson.234 : List U8 = CallByName List.4 TotallyNotJson.999 TotallyNotJson.1000;
let TotallyNotJson.998 : I64 = 91i64; let TotallyNotJson.998 : U64 = CallByName List.6 TotallyNotJson.230;
let TotallyNotJson.997 : U8 = CallByName Num.127 TotallyNotJson.998; let TotallyNotJson.986 : {List U8, U64} = Struct {TotallyNotJson.234, TotallyNotJson.998};
let TotallyNotJson.231 : List U8 = CallByName List.4 TotallyNotJson.996 TotallyNotJson.997; let TotallyNotJson.987 : {} = Struct {};
let TotallyNotJson.995 : U64 = CallByName List.6 TotallyNotJson.227; let TotallyNotJson.985 : {List U8, U64} = CallByName List.18 TotallyNotJson.230 TotallyNotJson.986 TotallyNotJson.987;
let TotallyNotJson.983 : {List U8, U64} = Struct {TotallyNotJson.231, TotallyNotJson.995}; let TotallyNotJson.236 : List U8 = StructAtIndex 0 TotallyNotJson.985;
let TotallyNotJson.984 : {} = Struct {}; let TotallyNotJson.984 : I64 = 93i64;
let TotallyNotJson.982 : {List U8, U64} = CallByName List.18 TotallyNotJson.227 TotallyNotJson.983 TotallyNotJson.984; let TotallyNotJson.983 : U8 = CallByName Num.127 TotallyNotJson.984;
let TotallyNotJson.233 : List U8 = StructAtIndex 0 TotallyNotJson.982; let TotallyNotJson.980 : List U8 = CallByName List.4 TotallyNotJson.236 TotallyNotJson.983;
let TotallyNotJson.981 : I64 = 93i64; let TotallyNotJson.982 : I64 = 125i64;
let TotallyNotJson.980 : U8 = CallByName Num.127 TotallyNotJson.981; let TotallyNotJson.981 : U8 = CallByName Num.127 TotallyNotJson.982;
let TotallyNotJson.977 : List U8 = CallByName List.4 TotallyNotJson.233 TotallyNotJson.980; let TotallyNotJson.979 : List U8 = CallByName List.4 TotallyNotJson.980 TotallyNotJson.981;
let TotallyNotJson.979 : I64 = 125i64; ret TotallyNotJson.979;
let TotallyNotJson.978 : U8 = CallByName Num.127 TotallyNotJson.979;
let TotallyNotJson.976 : List U8 = CallByName List.4 TotallyNotJson.977 TotallyNotJson.978;
ret TotallyNotJson.976;
procedure TotallyNotJson.230 (TotallyNotJson.975, TotallyNotJson.236): procedure TotallyNotJson.233 (TotallyNotJson.978, TotallyNotJson.239):
let TotallyNotJson.234 : List U8 = StructAtIndex 0 TotallyNotJson.975; let TotallyNotJson.237 : List U8 = StructAtIndex 0 TotallyNotJson.978;
let TotallyNotJson.235 : U64 = StructAtIndex 1 TotallyNotJson.975; let TotallyNotJson.238 : U64 = StructAtIndex 1 TotallyNotJson.978;
let TotallyNotJson.994 : {} = Struct {}; let TotallyNotJson.997 : {} = Struct {};
let TotallyNotJson.237 : List U8 = CallByName Encode.24 TotallyNotJson.234 TotallyNotJson.236 TotallyNotJson.994; let TotallyNotJson.240 : List U8 = CallByName Encode.24 TotallyNotJson.237 TotallyNotJson.239 TotallyNotJson.997;
joinpoint TotallyNotJson.989 TotallyNotJson.238: joinpoint TotallyNotJson.992 TotallyNotJson.241:
let TotallyNotJson.987 : U64 = 1i64; let TotallyNotJson.990 : U64 = 1i64;
let TotallyNotJson.986 : U64 = CallByName Num.20 TotallyNotJson.235 TotallyNotJson.987; let TotallyNotJson.989 : U64 = CallByName Num.20 TotallyNotJson.238 TotallyNotJson.990;
let TotallyNotJson.985 : {List U8, U64} = Struct {TotallyNotJson.238, TotallyNotJson.986}; let TotallyNotJson.988 : {List U8, U64} = Struct {TotallyNotJson.241, TotallyNotJson.989};
ret TotallyNotJson.985; ret TotallyNotJson.988;
in in
let TotallyNotJson.993 : U64 = 1i64; let TotallyNotJson.996 : U64 = 1i64;
let TotallyNotJson.990 : Int1 = CallByName Num.24 TotallyNotJson.235 TotallyNotJson.993; let TotallyNotJson.993 : Int1 = CallByName Num.24 TotallyNotJson.238 TotallyNotJson.996;
if TotallyNotJson.990 then if TotallyNotJson.993 then
let TotallyNotJson.992 : I64 = 44i64; let TotallyNotJson.995 : I64 = 44i64;
let TotallyNotJson.991 : U8 = CallByName Num.127 TotallyNotJson.992; let TotallyNotJson.994 : U8 = CallByName Num.127 TotallyNotJson.995;
let TotallyNotJson.988 : List U8 = CallByName List.4 TotallyNotJson.237 TotallyNotJson.991; let TotallyNotJson.991 : List U8 = CallByName List.4 TotallyNotJson.240 TotallyNotJson.994;
jump TotallyNotJson.989 TotallyNotJson.988; jump TotallyNotJson.992 TotallyNotJson.991;
else else
jump TotallyNotJson.989 TotallyNotJson.237; jump TotallyNotJson.992 TotallyNotJson.240;
procedure TotallyNotJson.25 (TotallyNotJson.149): procedure TotallyNotJson.25 (TotallyNotJson.149):
let TotallyNotJson.1096 : Str = CallByName Encode.23 TotallyNotJson.149; let TotallyNotJson.1099 : Str = CallByName Encode.23 TotallyNotJson.149;
ret TotallyNotJson.1096; ret TotallyNotJson.1099;
procedure TotallyNotJson.26 (TotallyNotJson.152): procedure TotallyNotJson.26 (TotallyNotJson.152):
let TotallyNotJson.153 : List U8 = CallByName Str.12 TotallyNotJson.152; let TotallyNotJson.153 : List U8 = CallByName Str.12 TotallyNotJson.152;
let TotallyNotJson.1094 : U64 = 0i64; let TotallyNotJson.1097 : U64 = 0i64;
let TotallyNotJson.1095 : Int1 = true; let TotallyNotJson.1098 : Int1 = true;
let TotallyNotJson.154 : {U64, Int1} = Struct {TotallyNotJson.1094, TotallyNotJson.1095}; let TotallyNotJson.154 : {U64, Int1} = Struct {TotallyNotJson.1097, TotallyNotJson.1098};
let TotallyNotJson.1064 : {} = Struct {}; let TotallyNotJson.1067 : {} = Struct {};
inc TotallyNotJson.153; inc TotallyNotJson.153;
let TotallyNotJson.155 : {U64, Int1} = CallByName List.26 TotallyNotJson.153 TotallyNotJson.154 TotallyNotJson.1064; let TotallyNotJson.155 : {U64, Int1} = CallByName List.26 TotallyNotJson.153 TotallyNotJson.154 TotallyNotJson.1067;
let TotallyNotJson.1018 : Int1 = StructAtIndex 1 TotallyNotJson.155; let TotallyNotJson.1021 : Int1 = StructAtIndex 1 TotallyNotJson.155;
let TotallyNotJson.1062 : Int1 = true; let TotallyNotJson.1065 : Int1 = true;
let TotallyNotJson.1063 : Int1 = lowlevel Eq TotallyNotJson.1062 TotallyNotJson.1018; let TotallyNotJson.1066 : Int1 = lowlevel Eq TotallyNotJson.1065 TotallyNotJson.1021;
if TotallyNotJson.1063 then if TotallyNotJson.1066 then
let TotallyNotJson.1028 : U64 = CallByName List.6 TotallyNotJson.153; let TotallyNotJson.1031 : U64 = CallByName List.6 TotallyNotJson.153;
let TotallyNotJson.1029 : U64 = 2i64; let TotallyNotJson.1032 : U64 = 2i64;
let TotallyNotJson.1027 : U64 = CallByName Num.19 TotallyNotJson.1028 TotallyNotJson.1029; let TotallyNotJson.1030 : U64 = CallByName Num.19 TotallyNotJson.1031 TotallyNotJson.1032;
let TotallyNotJson.1024 : List U8 = CallByName List.68 TotallyNotJson.1027; let TotallyNotJson.1027 : List U8 = CallByName List.68 TotallyNotJson.1030;
let TotallyNotJson.1026 : U8 = 34i64; let TotallyNotJson.1029 : U8 = 34i64;
let TotallyNotJson.1025 : List U8 = Array [TotallyNotJson.1026]; let TotallyNotJson.1028 : List U8 = Array [TotallyNotJson.1029];
let TotallyNotJson.1023 : List U8 = CallByName List.8 TotallyNotJson.1024 TotallyNotJson.1025; let TotallyNotJson.1026 : List U8 = CallByName List.8 TotallyNotJson.1027 TotallyNotJson.1028;
let TotallyNotJson.1020 : List U8 = CallByName List.8 TotallyNotJson.1023 TotallyNotJson.153; let TotallyNotJson.1023 : List U8 = CallByName List.8 TotallyNotJson.1026 TotallyNotJson.153;
let TotallyNotJson.1022 : U8 = 34i64; let TotallyNotJson.1025 : U8 = 34i64;
let TotallyNotJson.1021 : List U8 = Array [TotallyNotJson.1022]; let TotallyNotJson.1024 : List U8 = Array [TotallyNotJson.1025];
let TotallyNotJson.1019 : List U8 = CallByName List.8 TotallyNotJson.1020 TotallyNotJson.1021; let TotallyNotJson.1022 : List U8 = CallByName List.8 TotallyNotJson.1023 TotallyNotJson.1024;
ret TotallyNotJson.1019; ret TotallyNotJson.1022;
else else
inc TotallyNotJson.153; inc TotallyNotJson.153;
let TotallyNotJson.1061 : U64 = StructAtIndex 0 TotallyNotJson.155; let TotallyNotJson.1064 : U64 = StructAtIndex 0 TotallyNotJson.155;
let TotallyNotJson.1060 : {List U8, List U8} = CallByName List.52 TotallyNotJson.153 TotallyNotJson.1061; let TotallyNotJson.1063 : {List U8, List U8} = CallByName List.52 TotallyNotJson.153 TotallyNotJson.1064;
let TotallyNotJson.179 : List U8 = StructAtIndex 0 TotallyNotJson.1060; let TotallyNotJson.179 : List U8 = StructAtIndex 0 TotallyNotJson.1063;
let TotallyNotJson.181 : List U8 = StructAtIndex 1 TotallyNotJson.1060; let TotallyNotJson.181 : List U8 = StructAtIndex 1 TotallyNotJson.1063;
let TotallyNotJson.1058 : U64 = CallByName List.6 TotallyNotJson.153; let TotallyNotJson.1061 : U64 = CallByName List.6 TotallyNotJson.153;
dec TotallyNotJson.153; dec TotallyNotJson.153;
let TotallyNotJson.1059 : U64 = 120i64; let TotallyNotJson.1062 : U64 = 120i64;
let TotallyNotJson.1056 : U64 = CallByName Num.21 TotallyNotJson.1058 TotallyNotJson.1059; let TotallyNotJson.1059 : U64 = CallByName Num.21 TotallyNotJson.1061 TotallyNotJson.1062;
let TotallyNotJson.1057 : U64 = 100i64; let TotallyNotJson.1060 : U64 = 100i64;
let TotallyNotJson.1055 : U64 = CallByName Num.137 TotallyNotJson.1056 TotallyNotJson.1057; let TotallyNotJson.1058 : U64 = CallByName Num.137 TotallyNotJson.1059 TotallyNotJson.1060;
let TotallyNotJson.1052 : List U8 = CallByName List.68 TotallyNotJson.1055; let TotallyNotJson.1055 : List U8 = CallByName List.68 TotallyNotJson.1058;
let TotallyNotJson.1054 : U8 = 34i64; let TotallyNotJson.1057 : U8 = 34i64;
let TotallyNotJson.1053 : List U8 = Array [TotallyNotJson.1054]; let TotallyNotJson.1056 : List U8 = Array [TotallyNotJson.1057];
let TotallyNotJson.1051 : List U8 = CallByName List.8 TotallyNotJson.1052 TotallyNotJson.1053; let TotallyNotJson.1054 : List U8 = CallByName List.8 TotallyNotJson.1055 TotallyNotJson.1056;
let TotallyNotJson.182 : List U8 = CallByName List.8 TotallyNotJson.1051 TotallyNotJson.179; let TotallyNotJson.182 : List U8 = CallByName List.8 TotallyNotJson.1054 TotallyNotJson.179;
let TotallyNotJson.1034 : {} = Struct {}; let TotallyNotJson.1037 : {} = Struct {};
let TotallyNotJson.1031 : List U8 = CallByName List.18 TotallyNotJson.181 TotallyNotJson.182 TotallyNotJson.1034; let TotallyNotJson.1034 : List U8 = CallByName List.18 TotallyNotJson.181 TotallyNotJson.182 TotallyNotJson.1037;
let TotallyNotJson.1033 : U8 = 34i64; let TotallyNotJson.1036 : U8 = 34i64;
let TotallyNotJson.1032 : List U8 = Array [TotallyNotJson.1033]; let TotallyNotJson.1035 : List U8 = Array [TotallyNotJson.1036];
let TotallyNotJson.1030 : List U8 = CallByName List.8 TotallyNotJson.1031 TotallyNotJson.1032; let TotallyNotJson.1033 : List U8 = CallByName List.8 TotallyNotJson.1034 TotallyNotJson.1035;
ret TotallyNotJson.1030; ret TotallyNotJson.1033;
procedure TotallyNotJson.27 (TotallyNotJson.186): procedure TotallyNotJson.27 (TotallyNotJson.186):
switch TotallyNotJson.186: switch TotallyNotJson.186:
case 34: case 34:
let TotallyNotJson.1037 : List U8 = Array [92i64, 34i64]; let TotallyNotJson.1040 : List U8 = Array [92i64, 34i64];
ret TotallyNotJson.1037;
case 92:
let TotallyNotJson.1038 : List U8 = Array [92i64, 92i64];
ret TotallyNotJson.1038;
case 47:
let TotallyNotJson.1039 : List U8 = Array [92i64, 47i64];
ret TotallyNotJson.1039;
case 8:
let TotallyNotJson.1041 : U8 = 98i64;
let TotallyNotJson.1040 : List U8 = Array [92i64, TotallyNotJson.1041];
ret TotallyNotJson.1040; ret TotallyNotJson.1040;
case 12: case 92:
let TotallyNotJson.1043 : U8 = 102i64; let TotallyNotJson.1041 : List U8 = Array [92i64, 92i64];
let TotallyNotJson.1042 : List U8 = Array [92i64, TotallyNotJson.1043]; ret TotallyNotJson.1041;
case 47:
let TotallyNotJson.1042 : List U8 = Array [92i64, 47i64];
ret TotallyNotJson.1042; ret TotallyNotJson.1042;
case 8:
let TotallyNotJson.1044 : U8 = 98i64;
let TotallyNotJson.1043 : List U8 = Array [92i64, TotallyNotJson.1044];
ret TotallyNotJson.1043;
case 12:
let TotallyNotJson.1046 : U8 = 102i64;
let TotallyNotJson.1045 : List U8 = Array [92i64, TotallyNotJson.1046];
ret TotallyNotJson.1045;
case 10: case 10:
let TotallyNotJson.1045 : U8 = 110i64; let TotallyNotJson.1048 : U8 = 110i64;
let TotallyNotJson.1044 : List U8 = Array [92i64, TotallyNotJson.1045]; let TotallyNotJson.1047 : List U8 = Array [92i64, TotallyNotJson.1048];
ret TotallyNotJson.1044; ret TotallyNotJson.1047;
case 13: case 13:
let TotallyNotJson.1047 : U8 = 114i64; let TotallyNotJson.1050 : U8 = 114i64;
let TotallyNotJson.1046 : List U8 = Array [92i64, TotallyNotJson.1047]; let TotallyNotJson.1049 : List U8 = Array [92i64, TotallyNotJson.1050];
ret TotallyNotJson.1046; ret TotallyNotJson.1049;
case 9: case 9:
let TotallyNotJson.1049 : U8 = 114i64; let TotallyNotJson.1052 : U8 = 114i64;
let TotallyNotJson.1048 : List U8 = Array [92i64, TotallyNotJson.1049]; let TotallyNotJson.1051 : List U8 = Array [92i64, TotallyNotJson.1052];
ret TotallyNotJson.1048; ret TotallyNotJson.1051;
default: default:
let TotallyNotJson.1050 : List U8 = Array [TotallyNotJson.186]; let TotallyNotJson.1053 : List U8 = Array [TotallyNotJson.186];
ret TotallyNotJson.1050; ret TotallyNotJson.1053;
procedure TotallyNotJson.31 (TotallyNotJson.226, TotallyNotJson.227): procedure TotallyNotJson.31 (TotallyNotJson.229, TotallyNotJson.230):
let TotallyNotJson.972 : {Str, List Str} = Struct {TotallyNotJson.226, TotallyNotJson.227}; let TotallyNotJson.975 : {Str, List Str} = Struct {TotallyNotJson.229, TotallyNotJson.230};
let TotallyNotJson.971 : {Str, List Str} = CallByName Encode.23 TotallyNotJson.972; let TotallyNotJson.974 : {Str, List Str} = CallByName Encode.23 TotallyNotJson.975;
ret TotallyNotJson.971; ret TotallyNotJson.974;
procedure TotallyNotJson.8 (): procedure TotallyNotJson.8 ():
let TotallyNotJson.970 : {} = Struct {}; let TotallyNotJson.973 : {} = Struct {};
ret TotallyNotJson.970; ret TotallyNotJson.973;
procedure Test.0 (): procedure Test.0 ():
let Test.13 : Str = "foo"; let Test.13 : Str = "foo";

946
crates/compiler/test_mono/generated/issue_4749.txt generated
View file

File diff suppressed because it is too large Load diff

950
crates/compiler/test_mono/generated/issue_4772_weakened_monomorphic_destructure.txt generated
View file

File diff suppressed because it is too large Load diff

344
crates/compiler/test_mono/generated/unspecialized_lambda_set_unification_does_not_duplicate_identical_concrete_types.txt generated
View file

@ -16,7 +16,7 @@ procedure Encode.24 (Encode.99, Encode.107, Encode.101):
ret Encode.111; ret Encode.111;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
let Encode.113 : List U8 = CallByName TotallyNotJson.228 Encode.99 Encode.101 Encode.107; let Encode.113 : List U8 = CallByName TotallyNotJson.231 Encode.99 Encode.101 Encode.107;
ret Encode.113; ret Encode.113;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
@ -126,7 +126,7 @@ procedure List.8 (#Attr.2, #Attr.3):
let List.633 : List U8 = lowlevel ListConcat #Attr.2 #Attr.3; let List.633 : List U8 = lowlevel ListConcat #Attr.2 #Attr.3;
ret List.633; ret List.633;
procedure List.80 (#Derived_gen.16, #Derived_gen.17, #Derived_gen.18, #Derived_gen.19, #Derived_gen.20): procedure List.80 (#Derived_gen.13, #Derived_gen.14, #Derived_gen.15, #Derived_gen.16, #Derived_gen.17):
joinpoint List.657 List.490 List.491 List.492 List.493 List.494: joinpoint List.657 List.490 List.491 List.492 List.493 List.494:
let List.659 : Int1 = CallByName Num.22 List.493 List.494; let List.659 : Int1 = CallByName Num.22 List.493 List.494;
if List.659 then if List.659 then
@ -150,9 +150,25 @@ procedure List.80 (#Derived_gen.16, #Derived_gen.17, #Derived_gen.18, #Derived_g
let List.658 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) List.491; let List.658 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) List.491;
ret List.658; ret List.658;
in in
jump List.657 #Derived_gen.16 #Derived_gen.17 #Derived_gen.18 #Derived_gen.19 #Derived_gen.20; jump List.657 #Derived_gen.13 #Derived_gen.14 #Derived_gen.15 #Derived_gen.16 #Derived_gen.17;
procedure List.91 (#Derived_gen.11, #Derived_gen.12, #Derived_gen.13, #Derived_gen.14, #Derived_gen.15): procedure List.91 (#Derived_gen.3, #Derived_gen.4, #Derived_gen.5, #Derived_gen.6, #Derived_gen.7):
joinpoint List.601 List.162 List.163 List.164 List.165 List.166:
let List.603 : Int1 = CallByName Num.22 List.165 List.166;
if List.603 then
let List.607 : Str = CallByName List.66 List.162 List.165;
inc List.607;
let List.167 : {List U8, U64} = CallByName TotallyNotJson.233 List.163 List.607;
let List.606 : U64 = 1i64;
let List.605 : U64 = CallByName Num.51 List.165 List.606;
jump List.601 List.162 List.167 List.164 List.605 List.166;
else
dec List.162;
ret List.163;
in
jump List.601 #Derived_gen.3 #Derived_gen.4 #Derived_gen.5 #Derived_gen.6 #Derived_gen.7;
procedure List.91 (#Derived_gen.8, #Derived_gen.9, #Derived_gen.10, #Derived_gen.11, #Derived_gen.12):
joinpoint List.613 List.162 List.163 List.164 List.165 List.166: joinpoint List.613 List.162 List.163 List.164 List.165 List.166:
let List.615 : Int1 = CallByName Num.22 List.165 List.166; let List.615 : Int1 = CallByName Num.22 List.165 List.166;
if List.615 then if List.615 then
@ -165,23 +181,7 @@ procedure List.91 (#Derived_gen.11, #Derived_gen.12, #Derived_gen.13, #Derived_g
dec List.162; dec List.162;
ret List.163; ret List.163;
in in
jump List.613 #Derived_gen.11 #Derived_gen.12 #Derived_gen.13 #Derived_gen.14 #Derived_gen.15; jump List.613 #Derived_gen.8 #Derived_gen.9 #Derived_gen.10 #Derived_gen.11 #Derived_gen.12;
procedure List.91 (#Derived_gen.6, #Derived_gen.7, #Derived_gen.8, #Derived_gen.9, #Derived_gen.10):
joinpoint List.601 List.162 List.163 List.164 List.165 List.166:
let List.603 : Int1 = CallByName Num.22 List.165 List.166;
if List.603 then
let List.607 : Str = CallByName List.66 List.162 List.165;
inc List.607;
let List.167 : {List U8, U64} = CallByName TotallyNotJson.230 List.163 List.607;
let List.606 : U64 = 1i64;
let List.605 : U64 = CallByName Num.51 List.165 List.606;
jump List.601 List.162 List.167 List.164 List.605 List.166;
else
dec List.162;
ret List.163;
in
jump List.601 #Derived_gen.6 #Derived_gen.7 #Derived_gen.8 #Derived_gen.9 #Derived_gen.10;
procedure Num.127 (#Attr.2): procedure Num.127 (#Attr.2):
let Num.282 : U8 = lowlevel NumIntCast #Attr.2; let Num.282 : U8 = lowlevel NumIntCast #Attr.2;
@ -258,234 +258,234 @@ procedure Test.5 (Test.6, Test.7, Test.4):
let Test.19 : {Str, List Str} = CallByName TotallyNotJson.31 Test.21 Test.22; let Test.19 : {Str, List Str} = CallByName TotallyNotJson.31 Test.21 Test.22;
jump Test.20 Test.19; jump Test.20 Test.19;
procedure TotallyNotJson.150 (TotallyNotJson.151, TotallyNotJson.1017, TotallyNotJson.149): procedure TotallyNotJson.150 (TotallyNotJson.151, TotallyNotJson.1020, TotallyNotJson.149):
let TotallyNotJson.1020 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.149; let TotallyNotJson.1023 : List U8 = CallByName TotallyNotJson.26 TotallyNotJson.149;
let TotallyNotJson.1019 : List U8 = CallByName List.8 TotallyNotJson.151 TotallyNotJson.1020; let TotallyNotJson.1022 : List U8 = CallByName List.8 TotallyNotJson.151 TotallyNotJson.1023;
ret TotallyNotJson.1019; ret TotallyNotJson.1022;
procedure TotallyNotJson.157 (TotallyNotJson.1068, TotallyNotJson.160): procedure TotallyNotJson.157 (TotallyNotJson.1071, TotallyNotJson.160):
let TotallyNotJson.158 : U64 = StructAtIndex 0 TotallyNotJson.1068; let TotallyNotJson.158 : U64 = StructAtIndex 0 TotallyNotJson.1071;
let TotallyNotJson.159 : Int1 = StructAtIndex 1 TotallyNotJson.1068; let TotallyNotJson.159 : Int1 = StructAtIndex 1 TotallyNotJson.1071;
switch TotallyNotJson.160: switch TotallyNotJson.160:
case 34: case 34:
let TotallyNotJson.1071 : Int1 = false;
let TotallyNotJson.1070 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1071};
let TotallyNotJson.1069 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1070;
ret TotallyNotJson.1069;
case 92:
let TotallyNotJson.1074 : Int1 = false; let TotallyNotJson.1074 : Int1 = false;
let TotallyNotJson.1073 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1074}; let TotallyNotJson.1073 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1074};
let TotallyNotJson.1072 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1073; let TotallyNotJson.1072 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1073;
ret TotallyNotJson.1072; ret TotallyNotJson.1072;
case 47: case 92:
let TotallyNotJson.1077 : Int1 = false; let TotallyNotJson.1077 : Int1 = false;
let TotallyNotJson.1076 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1077}; let TotallyNotJson.1076 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1077};
let TotallyNotJson.1075 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1076; let TotallyNotJson.1075 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1076;
ret TotallyNotJson.1075; ret TotallyNotJson.1075;
case 8: case 47:
let TotallyNotJson.1080 : Int1 = false; let TotallyNotJson.1080 : Int1 = false;
let TotallyNotJson.1079 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1080}; let TotallyNotJson.1079 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1080};
let TotallyNotJson.1078 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1079; let TotallyNotJson.1078 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1079;
ret TotallyNotJson.1078; ret TotallyNotJson.1078;
case 12: case 8:
let TotallyNotJson.1083 : Int1 = false; let TotallyNotJson.1083 : Int1 = false;
let TotallyNotJson.1082 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1083}; let TotallyNotJson.1082 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1083};
let TotallyNotJson.1081 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1082; let TotallyNotJson.1081 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1082;
ret TotallyNotJson.1081; ret TotallyNotJson.1081;
case 10: case 12:
let TotallyNotJson.1086 : Int1 = false; let TotallyNotJson.1086 : Int1 = false;
let TotallyNotJson.1085 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1086}; let TotallyNotJson.1085 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1086};
let TotallyNotJson.1084 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1085; let TotallyNotJson.1084 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1085;
ret TotallyNotJson.1084; ret TotallyNotJson.1084;
case 13: case 10:
let TotallyNotJson.1089 : Int1 = false; let TotallyNotJson.1089 : Int1 = false;
let TotallyNotJson.1088 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1089}; let TotallyNotJson.1088 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1089};
let TotallyNotJson.1087 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1088; let TotallyNotJson.1087 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1088;
ret TotallyNotJson.1087; ret TotallyNotJson.1087;
case 9: case 13:
let TotallyNotJson.1092 : Int1 = false; let TotallyNotJson.1092 : Int1 = false;
let TotallyNotJson.1091 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1092}; let TotallyNotJson.1091 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1092};
let TotallyNotJson.1090 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1091; let TotallyNotJson.1090 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1091;
ret TotallyNotJson.1090; ret TotallyNotJson.1090;
default: case 9:
let TotallyNotJson.1096 : U64 = 1i64; let TotallyNotJson.1095 : Int1 = false;
let TotallyNotJson.1095 : U64 = CallByName Num.19 TotallyNotJson.158 TotallyNotJson.1096; let TotallyNotJson.1094 : {U64, Int1} = Struct {TotallyNotJson.158, TotallyNotJson.1095};
let TotallyNotJson.1094 : {U64, Int1} = Struct {TotallyNotJson.1095, TotallyNotJson.159}; let TotallyNotJson.1093 : [C {U64, Int1}, C {U64, Int1}] = TagId(0) TotallyNotJson.1094;
let TotallyNotJson.1093 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) TotallyNotJson.1094;
ret TotallyNotJson.1093; ret TotallyNotJson.1093;
default:
let TotallyNotJson.1099 : U64 = 1i64;
let TotallyNotJson.1098 : U64 = CallByName Num.19 TotallyNotJson.158 TotallyNotJson.1099;
let TotallyNotJson.1097 : {U64, Int1} = Struct {TotallyNotJson.1098, TotallyNotJson.159};
let TotallyNotJson.1096 : [C {U64, Int1}, C {U64, Int1}] = TagId(1) TotallyNotJson.1097;
ret TotallyNotJson.1096;
procedure TotallyNotJson.183 (TotallyNotJson.184, TotallyNotJson.185): procedure TotallyNotJson.183 (TotallyNotJson.184, TotallyNotJson.185):
let TotallyNotJson.1039 : List U8 = CallByName TotallyNotJson.27 TotallyNotJson.185; let TotallyNotJson.1042 : List U8 = CallByName TotallyNotJson.27 TotallyNotJson.185;
let TotallyNotJson.1038 : List U8 = CallByName List.8 TotallyNotJson.184 TotallyNotJson.1039; let TotallyNotJson.1041 : List U8 = CallByName List.8 TotallyNotJson.184 TotallyNotJson.1042;
ret TotallyNotJson.1038; ret TotallyNotJson.1041;
procedure TotallyNotJson.228 (TotallyNotJson.229, TotallyNotJson.973, #Attr.12): procedure TotallyNotJson.231 (TotallyNotJson.232, TotallyNotJson.976, #Attr.12):
let TotallyNotJson.227 : List Str = StructAtIndex 1 #Attr.12; let TotallyNotJson.230 : List Str = StructAtIndex 1 #Attr.12;
let TotallyNotJson.226 : Str = StructAtIndex 0 #Attr.12; let TotallyNotJson.229 : Str = StructAtIndex 0 #Attr.12;
let TotallyNotJson.1011 : I64 = 123i64; let TotallyNotJson.1014 : I64 = 123i64;
let TotallyNotJson.1010 : U8 = CallByName Num.127 TotallyNotJson.1011; let TotallyNotJson.1013 : U8 = CallByName Num.127 TotallyNotJson.1014;
let TotallyNotJson.1007 : List U8 = CallByName List.4 TotallyNotJson.229 TotallyNotJson.1010; let TotallyNotJson.1010 : List U8 = CallByName List.4 TotallyNotJson.232 TotallyNotJson.1013;
let TotallyNotJson.1009 : I64 = 34i64; let TotallyNotJson.1012 : I64 = 34i64;
let TotallyNotJson.1008 : U8 = CallByName Num.127 TotallyNotJson.1009; let TotallyNotJson.1011 : U8 = CallByName Num.127 TotallyNotJson.1012;
let TotallyNotJson.1005 : List U8 = CallByName List.4 TotallyNotJson.1007 TotallyNotJson.1008; let TotallyNotJson.1008 : List U8 = CallByName List.4 TotallyNotJson.1010 TotallyNotJson.1011;
let TotallyNotJson.1006 : List U8 = CallByName Str.12 TotallyNotJson.226; let TotallyNotJson.1009 : List U8 = CallByName Str.12 TotallyNotJson.229;
let TotallyNotJson.1002 : List U8 = CallByName List.8 TotallyNotJson.1005 TotallyNotJson.1006; let TotallyNotJson.1005 : List U8 = CallByName List.8 TotallyNotJson.1008 TotallyNotJson.1009;
let TotallyNotJson.1004 : I64 = 34i64; let TotallyNotJson.1007 : I64 = 34i64;
let TotallyNotJson.1006 : U8 = CallByName Num.127 TotallyNotJson.1007;
let TotallyNotJson.1002 : List U8 = CallByName List.4 TotallyNotJson.1005 TotallyNotJson.1006;
let TotallyNotJson.1004 : I64 = 58i64;
let TotallyNotJson.1003 : U8 = CallByName Num.127 TotallyNotJson.1004; let TotallyNotJson.1003 : U8 = CallByName Num.127 TotallyNotJson.1004;
let TotallyNotJson.999 : List U8 = CallByName List.4 TotallyNotJson.1002 TotallyNotJson.1003; let TotallyNotJson.999 : List U8 = CallByName List.4 TotallyNotJson.1002 TotallyNotJson.1003;
let TotallyNotJson.1001 : I64 = 58i64; let TotallyNotJson.1001 : I64 = 91i64;
let TotallyNotJson.1000 : U8 = CallByName Num.127 TotallyNotJson.1001; let TotallyNotJson.1000 : U8 = CallByName Num.127 TotallyNotJson.1001;
let TotallyNotJson.996 : List U8 = CallByName List.4 TotallyNotJson.999 TotallyNotJson.1000; let TotallyNotJson.234 : List U8 = CallByName List.4 TotallyNotJson.999 TotallyNotJson.1000;
let TotallyNotJson.998 : I64 = 91i64; let TotallyNotJson.998 : U64 = CallByName List.6 TotallyNotJson.230;
let TotallyNotJson.997 : U8 = CallByName Num.127 TotallyNotJson.998; let TotallyNotJson.986 : {List U8, U64} = Struct {TotallyNotJson.234, TotallyNotJson.998};
let TotallyNotJson.231 : List U8 = CallByName List.4 TotallyNotJson.996 TotallyNotJson.997; let TotallyNotJson.987 : {} = Struct {};
let TotallyNotJson.995 : U64 = CallByName List.6 TotallyNotJson.227; let TotallyNotJson.985 : {List U8, U64} = CallByName List.18 TotallyNotJson.230 TotallyNotJson.986 TotallyNotJson.987;
let TotallyNotJson.983 : {List U8, U64} = Struct {TotallyNotJson.231, TotallyNotJson.995}; let TotallyNotJson.236 : List U8 = StructAtIndex 0 TotallyNotJson.985;
let TotallyNotJson.984 : {} = Struct {}; let TotallyNotJson.984 : I64 = 93i64;
let TotallyNotJson.982 : {List U8, U64} = CallByName List.18 TotallyNotJson.227 TotallyNotJson.983 TotallyNotJson.984; let TotallyNotJson.983 : U8 = CallByName Num.127 TotallyNotJson.984;
let TotallyNotJson.233 : List U8 = StructAtIndex 0 TotallyNotJson.982; let TotallyNotJson.980 : List U8 = CallByName List.4 TotallyNotJson.236 TotallyNotJson.983;
let TotallyNotJson.981 : I64 = 93i64; let TotallyNotJson.982 : I64 = 125i64;
let TotallyNotJson.980 : U8 = CallByName Num.127 TotallyNotJson.981; let TotallyNotJson.981 : U8 = CallByName Num.127 TotallyNotJson.982;
let TotallyNotJson.977 : List U8 = CallByName List.4 TotallyNotJson.233 TotallyNotJson.980; let TotallyNotJson.979 : List U8 = CallByName List.4 TotallyNotJson.980 TotallyNotJson.981;
let TotallyNotJson.979 : I64 = 125i64; ret TotallyNotJson.979;
let TotallyNotJson.978 : U8 = CallByName Num.127 TotallyNotJson.979;
let TotallyNotJson.976 : List U8 = CallByName List.4 TotallyNotJson.977 TotallyNotJson.978;
ret TotallyNotJson.976;
procedure TotallyNotJson.230 (TotallyNotJson.975, TotallyNotJson.236): procedure TotallyNotJson.233 (TotallyNotJson.978, TotallyNotJson.239):
let TotallyNotJson.234 : List U8 = StructAtIndex 0 TotallyNotJson.975; let TotallyNotJson.237 : List U8 = StructAtIndex 0 TotallyNotJson.978;
let TotallyNotJson.235 : U64 = StructAtIndex 1 TotallyNotJson.975; let TotallyNotJson.238 : U64 = StructAtIndex 1 TotallyNotJson.978;
let TotallyNotJson.994 : {} = Struct {}; let TotallyNotJson.997 : {} = Struct {};
let TotallyNotJson.237 : List U8 = CallByName Encode.24 TotallyNotJson.234 TotallyNotJson.236 TotallyNotJson.994; let TotallyNotJson.240 : List U8 = CallByName Encode.24 TotallyNotJson.237 TotallyNotJson.239 TotallyNotJson.997;
joinpoint TotallyNotJson.989 TotallyNotJson.238: joinpoint TotallyNotJson.992 TotallyNotJson.241:
let TotallyNotJson.987 : U64 = 1i64; let TotallyNotJson.990 : U64 = 1i64;
let TotallyNotJson.986 : U64 = CallByName Num.20 TotallyNotJson.235 TotallyNotJson.987; let TotallyNotJson.989 : U64 = CallByName Num.20 TotallyNotJson.238 TotallyNotJson.990;
let TotallyNotJson.985 : {List U8, U64} = Struct {TotallyNotJson.238, TotallyNotJson.986}; let TotallyNotJson.988 : {List U8, U64} = Struct {TotallyNotJson.241, TotallyNotJson.989};
ret TotallyNotJson.985; ret TotallyNotJson.988;
in in
let TotallyNotJson.993 : U64 = 1i64; let TotallyNotJson.996 : U64 = 1i64;
let TotallyNotJson.990 : Int1 = CallByName Num.24 TotallyNotJson.235 TotallyNotJson.993; let TotallyNotJson.993 : Int1 = CallByName Num.24 TotallyNotJson.238 TotallyNotJson.996;
if TotallyNotJson.990 then if TotallyNotJson.993 then
let TotallyNotJson.992 : I64 = 44i64; let TotallyNotJson.995 : I64 = 44i64;
let TotallyNotJson.991 : U8 = CallByName Num.127 TotallyNotJson.992; let TotallyNotJson.994 : U8 = CallByName Num.127 TotallyNotJson.995;
let TotallyNotJson.988 : List U8 = CallByName List.4 TotallyNotJson.237 TotallyNotJson.991; let TotallyNotJson.991 : List U8 = CallByName List.4 TotallyNotJson.240 TotallyNotJson.994;
jump TotallyNotJson.989 TotallyNotJson.988; jump TotallyNotJson.992 TotallyNotJson.991;
else else
jump TotallyNotJson.989 TotallyNotJson.237; jump TotallyNotJson.992 TotallyNotJson.240;
procedure TotallyNotJson.25 (TotallyNotJson.149): procedure TotallyNotJson.25 (TotallyNotJson.149):
let TotallyNotJson.1099 : Str = CallByName Encode.23 TotallyNotJson.149; let TotallyNotJson.1102 : Str = CallByName Encode.23 TotallyNotJson.149;
ret TotallyNotJson.1099; ret TotallyNotJson.1102;
procedure TotallyNotJson.26 (TotallyNotJson.152): procedure TotallyNotJson.26 (TotallyNotJson.152):
let TotallyNotJson.153 : List U8 = CallByName Str.12 TotallyNotJson.152; let TotallyNotJson.153 : List U8 = CallByName Str.12 TotallyNotJson.152;
let TotallyNotJson.1097 : U64 = 0i64; let TotallyNotJson.1100 : U64 = 0i64;
let TotallyNotJson.1098 : Int1 = true; let TotallyNotJson.1101 : Int1 = true;
let TotallyNotJson.154 : {U64, Int1} = Struct {TotallyNotJson.1097, TotallyNotJson.1098}; let TotallyNotJson.154 : {U64, Int1} = Struct {TotallyNotJson.1100, TotallyNotJson.1101};
let TotallyNotJson.1067 : {} = Struct {}; let TotallyNotJson.1070 : {} = Struct {};
inc TotallyNotJson.153; inc TotallyNotJson.153;
let TotallyNotJson.155 : {U64, Int1} = CallByName List.26 TotallyNotJson.153 TotallyNotJson.154 TotallyNotJson.1067; let TotallyNotJson.155 : {U64, Int1} = CallByName List.26 TotallyNotJson.153 TotallyNotJson.154 TotallyNotJson.1070;
let TotallyNotJson.1021 : Int1 = StructAtIndex 1 TotallyNotJson.155; let TotallyNotJson.1024 : Int1 = StructAtIndex 1 TotallyNotJson.155;
let TotallyNotJson.1065 : Int1 = true; let TotallyNotJson.1068 : Int1 = true;
let TotallyNotJson.1066 : Int1 = lowlevel Eq TotallyNotJson.1065 TotallyNotJson.1021; let TotallyNotJson.1069 : Int1 = lowlevel Eq TotallyNotJson.1068 TotallyNotJson.1024;
if TotallyNotJson.1066 then if TotallyNotJson.1069 then
let TotallyNotJson.1031 : U64 = CallByName List.6 TotallyNotJson.153; let TotallyNotJson.1034 : U64 = CallByName List.6 TotallyNotJson.153;
let TotallyNotJson.1032 : U64 = 2i64; let TotallyNotJson.1035 : U64 = 2i64;
let TotallyNotJson.1030 : U64 = CallByName Num.19 TotallyNotJson.1031 TotallyNotJson.1032; let TotallyNotJson.1033 : U64 = CallByName Num.19 TotallyNotJson.1034 TotallyNotJson.1035;
let TotallyNotJson.1027 : List U8 = CallByName List.68 TotallyNotJson.1030; let TotallyNotJson.1030 : List U8 = CallByName List.68 TotallyNotJson.1033;
let TotallyNotJson.1029 : U8 = 34i64; let TotallyNotJson.1032 : U8 = 34i64;
let TotallyNotJson.1028 : List U8 = Array [TotallyNotJson.1029]; let TotallyNotJson.1031 : List U8 = Array [TotallyNotJson.1032];
let TotallyNotJson.1026 : List U8 = CallByName List.8 TotallyNotJson.1027 TotallyNotJson.1028; let TotallyNotJson.1029 : List U8 = CallByName List.8 TotallyNotJson.1030 TotallyNotJson.1031;
let TotallyNotJson.1023 : List U8 = CallByName List.8 TotallyNotJson.1026 TotallyNotJson.153; let TotallyNotJson.1026 : List U8 = CallByName List.8 TotallyNotJson.1029 TotallyNotJson.153;
let TotallyNotJson.1025 : U8 = 34i64; let TotallyNotJson.1028 : U8 = 34i64;
let TotallyNotJson.1024 : List U8 = Array [TotallyNotJson.1025]; let TotallyNotJson.1027 : List U8 = Array [TotallyNotJson.1028];
let TotallyNotJson.1022 : List U8 = CallByName List.8 TotallyNotJson.1023 TotallyNotJson.1024; let TotallyNotJson.1025 : List U8 = CallByName List.8 TotallyNotJson.1026 TotallyNotJson.1027;
ret TotallyNotJson.1022; ret TotallyNotJson.1025;
else else
inc TotallyNotJson.153; inc TotallyNotJson.153;
let TotallyNotJson.1064 : U64 = StructAtIndex 0 TotallyNotJson.155; let TotallyNotJson.1067 : U64 = StructAtIndex 0 TotallyNotJson.155;
let TotallyNotJson.1063 : {List U8, List U8} = CallByName List.52 TotallyNotJson.153 TotallyNotJson.1064; let TotallyNotJson.1066 : {List U8, List U8} = CallByName List.52 TotallyNotJson.153 TotallyNotJson.1067;
let TotallyNotJson.179 : List U8 = StructAtIndex 0 TotallyNotJson.1063; let TotallyNotJson.179 : List U8 = StructAtIndex 0 TotallyNotJson.1066;
let TotallyNotJson.181 : List U8 = StructAtIndex 1 TotallyNotJson.1063; let TotallyNotJson.181 : List U8 = StructAtIndex 1 TotallyNotJson.1066;
let TotallyNotJson.1061 : U64 = CallByName List.6 TotallyNotJson.153; let TotallyNotJson.1064 : U64 = CallByName List.6 TotallyNotJson.153;
dec TotallyNotJson.153; dec TotallyNotJson.153;
let TotallyNotJson.1062 : U64 = 120i64; let TotallyNotJson.1065 : U64 = 120i64;
let TotallyNotJson.1059 : U64 = CallByName Num.21 TotallyNotJson.1061 TotallyNotJson.1062; let TotallyNotJson.1062 : U64 = CallByName Num.21 TotallyNotJson.1064 TotallyNotJson.1065;
let TotallyNotJson.1060 : U64 = 100i64; let TotallyNotJson.1063 : U64 = 100i64;
let TotallyNotJson.1058 : U64 = CallByName Num.137 TotallyNotJson.1059 TotallyNotJson.1060; let TotallyNotJson.1061 : U64 = CallByName Num.137 TotallyNotJson.1062 TotallyNotJson.1063;
let TotallyNotJson.1055 : List U8 = CallByName List.68 TotallyNotJson.1058; let TotallyNotJson.1058 : List U8 = CallByName List.68 TotallyNotJson.1061;
let TotallyNotJson.1057 : U8 = 34i64; let TotallyNotJson.1060 : U8 = 34i64;
let TotallyNotJson.1056 : List U8 = Array [TotallyNotJson.1057]; let TotallyNotJson.1059 : List U8 = Array [TotallyNotJson.1060];
let TotallyNotJson.1054 : List U8 = CallByName List.8 TotallyNotJson.1055 TotallyNotJson.1056; let TotallyNotJson.1057 : List U8 = CallByName List.8 TotallyNotJson.1058 TotallyNotJson.1059;
let TotallyNotJson.182 : List U8 = CallByName List.8 TotallyNotJson.1054 TotallyNotJson.179; let TotallyNotJson.182 : List U8 = CallByName List.8 TotallyNotJson.1057 TotallyNotJson.179;
let TotallyNotJson.1037 : {} = Struct {}; let TotallyNotJson.1040 : {} = Struct {};
let TotallyNotJson.1034 : List U8 = CallByName List.18 TotallyNotJson.181 TotallyNotJson.182 TotallyNotJson.1037; let TotallyNotJson.1037 : List U8 = CallByName List.18 TotallyNotJson.181 TotallyNotJson.182 TotallyNotJson.1040;
let TotallyNotJson.1036 : U8 = 34i64; let TotallyNotJson.1039 : U8 = 34i64;
let TotallyNotJson.1035 : List U8 = Array [TotallyNotJson.1036]; let TotallyNotJson.1038 : List U8 = Array [TotallyNotJson.1039];
let TotallyNotJson.1033 : List U8 = CallByName List.8 TotallyNotJson.1034 TotallyNotJson.1035; let TotallyNotJson.1036 : List U8 = CallByName List.8 TotallyNotJson.1037 TotallyNotJson.1038;
ret TotallyNotJson.1033; ret TotallyNotJson.1036;
procedure TotallyNotJson.27 (TotallyNotJson.186): procedure TotallyNotJson.27 (TotallyNotJson.186):
switch TotallyNotJson.186: switch TotallyNotJson.186:
case 34: case 34:
let TotallyNotJson.1040 : List U8 = Array [92i64, 34i64]; let TotallyNotJson.1043 : List U8 = Array [92i64, 34i64];
ret TotallyNotJson.1040;
case 92:
let TotallyNotJson.1041 : List U8 = Array [92i64, 92i64];
ret TotallyNotJson.1041;
case 47:
let TotallyNotJson.1042 : List U8 = Array [92i64, 47i64];
ret TotallyNotJson.1042;
case 8:
let TotallyNotJson.1044 : U8 = 98i64;
let TotallyNotJson.1043 : List U8 = Array [92i64, TotallyNotJson.1044];
ret TotallyNotJson.1043; ret TotallyNotJson.1043;
case 12: case 92:
let TotallyNotJson.1046 : U8 = 102i64; let TotallyNotJson.1044 : List U8 = Array [92i64, 92i64];
let TotallyNotJson.1045 : List U8 = Array [92i64, TotallyNotJson.1046]; ret TotallyNotJson.1044;
case 47:
let TotallyNotJson.1045 : List U8 = Array [92i64, 47i64];
ret TotallyNotJson.1045; ret TotallyNotJson.1045;
case 8:
let TotallyNotJson.1047 : U8 = 98i64;
let TotallyNotJson.1046 : List U8 = Array [92i64, TotallyNotJson.1047];
ret TotallyNotJson.1046;
case 12:
let TotallyNotJson.1049 : U8 = 102i64;
let TotallyNotJson.1048 : List U8 = Array [92i64, TotallyNotJson.1049];
ret TotallyNotJson.1048;
case 10: case 10:
let TotallyNotJson.1048 : U8 = 110i64; let TotallyNotJson.1051 : U8 = 110i64;
let TotallyNotJson.1047 : List U8 = Array [92i64, TotallyNotJson.1048]; let TotallyNotJson.1050 : List U8 = Array [92i64, TotallyNotJson.1051];
ret TotallyNotJson.1047; ret TotallyNotJson.1050;
case 13: case 13:
let TotallyNotJson.1050 : U8 = 114i64; let TotallyNotJson.1053 : U8 = 114i64;
let TotallyNotJson.1049 : List U8 = Array [92i64, TotallyNotJson.1050]; let TotallyNotJson.1052 : List U8 = Array [92i64, TotallyNotJson.1053];
ret TotallyNotJson.1049; ret TotallyNotJson.1052;
case 9: case 9:
let TotallyNotJson.1052 : U8 = 114i64; let TotallyNotJson.1055 : U8 = 114i64;
let TotallyNotJson.1051 : List U8 = Array [92i64, TotallyNotJson.1052]; let TotallyNotJson.1054 : List U8 = Array [92i64, TotallyNotJson.1055];
ret TotallyNotJson.1051; ret TotallyNotJson.1054;
default: default:
let TotallyNotJson.1053 : List U8 = Array [TotallyNotJson.186]; let TotallyNotJson.1056 : List U8 = Array [TotallyNotJson.186];
ret TotallyNotJson.1053; ret TotallyNotJson.1056;
procedure TotallyNotJson.31 (TotallyNotJson.226, TotallyNotJson.227): procedure TotallyNotJson.31 (TotallyNotJson.229, TotallyNotJson.230):
let TotallyNotJson.1013 : {Str, List Str} = Struct {TotallyNotJson.226, TotallyNotJson.227}; let TotallyNotJson.1016 : {Str, List Str} = Struct {TotallyNotJson.229, TotallyNotJson.230};
let TotallyNotJson.1012 : {Str, List Str} = CallByName Encode.23 TotallyNotJson.1013; let TotallyNotJson.1015 : {Str, List Str} = CallByName Encode.23 TotallyNotJson.1016;
ret TotallyNotJson.1012; ret TotallyNotJson.1015;
procedure TotallyNotJson.8 (): procedure TotallyNotJson.8 ():
let TotallyNotJson.970 : {} = Struct {}; let TotallyNotJson.973 : {} = Struct {};
ret TotallyNotJson.970; ret TotallyNotJson.973;
procedure Test.0 (): procedure Test.0 ():
let Test.12 : {Str, Str} = CallByName Test.3; let Test.12 : {Str, Str} = CallByName Test.3;

216
crates/compiler/test_mono/generated/unspecialized_lambda_set_unification_keeps_all_concrete_types_without_unification_of_unifiable.txt generated
View file

@ -56,7 +56,7 @@ procedure Encode.24 (Encode.99, Encode.107, Encode.101):
ret Encode.111; ret Encode.111;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
let Encode.113 : List U8 = CallByName TotallyNotJson.228 Encode.99 Encode.101 Encode.107; let Encode.113 : List U8 = CallByName TotallyNotJson.231 Encode.99 Encode.101 Encode.107;
ret Encode.113; ret Encode.113;
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
@ -72,7 +72,7 @@ procedure Encode.24 (Encode.99, Encode.107, Encode.101):
procedure Encode.24 (Encode.99, Encode.107, Encode.101): procedure Encode.24 (Encode.99, Encode.107, Encode.101):
let Encode.121 : List U8 = CallByName TotallyNotJson.228 Encode.99 Encode.101 Encode.107; let Encode.121 : List U8 = CallByName TotallyNotJson.231 Encode.99 Encode.101 Encode.107;
ret Encode.121; ret Encode.121;
procedure Encode.26 (Encode.105, Encode.106): procedure Encode.26 (Encode.105, Encode.106):
@ -132,7 +132,7 @@ procedure List.91 (#Derived_gen.26, #Derived_gen.27, #Derived_gen.28, #Derived_g
let List.643 : Int1 = CallByName Num.22 List.165 List.166; let List.643 : Int1 = CallByName Num.22 List.165 List.166;
if List.643 then if List.643 then
let List.647 : [] = CallByName List.66 List.162 List.165; let List.647 : [] = CallByName List.66 List.162 List.165;
let List.167 : {List U8, U64} = CallByName TotallyNotJson.230 List.163 List.647; let List.167 : {List U8, U64} = CallByName TotallyNotJson.233 List.163 List.647;
let List.646 : U64 = 1i64; let List.646 : U64 = 1i64;
let List.645 : U64 = CallByName Num.51 List.165 List.646; let List.645 : U64 = CallByName Num.51 List.165 List.646;
jump List.641 List.162 List.167 List.164 List.645 List.166; jump List.641 List.162 List.167 List.164 List.645 List.166;
@ -147,7 +147,7 @@ procedure List.91 (#Derived_gen.40, #Derived_gen.41, #Derived_gen.42, #Derived_g
let List.603 : Int1 = CallByName Num.22 List.165 List.166; let List.603 : Int1 = CallByName Num.22 List.165 List.166;
if List.603 then if List.603 then
let List.607 : [C {}, C {}] = CallByName List.66 List.162 List.165; let List.607 : [C {}, C {}] = CallByName List.66 List.162 List.165;
let List.167 : {List U8, U64} = CallByName TotallyNotJson.230 List.163 List.607; let List.167 : {List U8, U64} = CallByName TotallyNotJson.233 List.163 List.607;
let List.606 : U64 = 1i64; let List.606 : U64 = 1i64;
let List.605 : U64 = CallByName Num.51 List.165 List.606; let List.605 : U64 = CallByName Num.51 List.165 List.606;
jump List.601 List.162 List.167 List.164 List.605 List.166; jump List.601 List.162 List.167 List.164 List.605 List.166;
@ -212,127 +212,127 @@ procedure Test.5 (Test.6, Test.7, Test.4):
let Test.22 : {Str, List [C {}, C {}]} = CallByName TotallyNotJson.31 Test.24 Test.25; let Test.22 : {Str, List [C {}, C {}]} = CallByName TotallyNotJson.31 Test.24 Test.25;
jump Test.23 Test.22; jump Test.23 Test.22;
procedure TotallyNotJson.228 (TotallyNotJson.229, TotallyNotJson.973, #Attr.12): procedure TotallyNotJson.231 (TotallyNotJson.232, TotallyNotJson.976, #Attr.12):
let TotallyNotJson.227 : List [C {}, C {}] = StructAtIndex 1 #Attr.12; let TotallyNotJson.230 : List [C {}, C {}] = StructAtIndex 1 #Attr.12;
let TotallyNotJson.226 : Str = StructAtIndex 0 #Attr.12; let TotallyNotJson.229 : Str = StructAtIndex 0 #Attr.12;
let TotallyNotJson.1011 : I64 = 123i64; let TotallyNotJson.1014 : I64 = 123i64;
let TotallyNotJson.1010 : U8 = CallByName Num.127 TotallyNotJson.1011; let TotallyNotJson.1013 : U8 = CallByName Num.127 TotallyNotJson.1014;
let TotallyNotJson.1007 : List U8 = CallByName List.4 TotallyNotJson.229 TotallyNotJson.1010; let TotallyNotJson.1010 : List U8 = CallByName List.4 TotallyNotJson.232 TotallyNotJson.1013;
let TotallyNotJson.1009 : I64 = 34i64; let TotallyNotJson.1012 : I64 = 34i64;
let TotallyNotJson.1008 : U8 = CallByName Num.127 TotallyNotJson.1009; let TotallyNotJson.1011 : U8 = CallByName Num.127 TotallyNotJson.1012;
let TotallyNotJson.1005 : List U8 = CallByName List.4 TotallyNotJson.1007 TotallyNotJson.1008; let TotallyNotJson.1008 : List U8 = CallByName List.4 TotallyNotJson.1010 TotallyNotJson.1011;
let TotallyNotJson.1006 : List U8 = CallByName Str.12 TotallyNotJson.226; let TotallyNotJson.1009 : List U8 = CallByName Str.12 TotallyNotJson.229;
let TotallyNotJson.1002 : List U8 = CallByName List.8 TotallyNotJson.1005 TotallyNotJson.1006; let TotallyNotJson.1005 : List U8 = CallByName List.8 TotallyNotJson.1008 TotallyNotJson.1009;
let TotallyNotJson.1004 : I64 = 34i64; let TotallyNotJson.1007 : I64 = 34i64;
let TotallyNotJson.1006 : U8 = CallByName Num.127 TotallyNotJson.1007;
let TotallyNotJson.1002 : List U8 = CallByName List.4 TotallyNotJson.1005 TotallyNotJson.1006;
let TotallyNotJson.1004 : I64 = 58i64;
let TotallyNotJson.1003 : U8 = CallByName Num.127 TotallyNotJson.1004; let TotallyNotJson.1003 : U8 = CallByName Num.127 TotallyNotJson.1004;
let TotallyNotJson.999 : List U8 = CallByName List.4 TotallyNotJson.1002 TotallyNotJson.1003; let TotallyNotJson.999 : List U8 = CallByName List.4 TotallyNotJson.1002 TotallyNotJson.1003;
let TotallyNotJson.1001 : I64 = 58i64; let TotallyNotJson.1001 : I64 = 91i64;
let TotallyNotJson.1000 : U8 = CallByName Num.127 TotallyNotJson.1001; let TotallyNotJson.1000 : U8 = CallByName Num.127 TotallyNotJson.1001;
let TotallyNotJson.996 : List U8 = CallByName List.4 TotallyNotJson.999 TotallyNotJson.1000; let TotallyNotJson.234 : List U8 = CallByName List.4 TotallyNotJson.999 TotallyNotJson.1000;
let TotallyNotJson.998 : I64 = 91i64; let TotallyNotJson.998 : U64 = CallByName List.6 TotallyNotJson.230;
let TotallyNotJson.997 : U8 = CallByName Num.127 TotallyNotJson.998; let TotallyNotJson.986 : {List U8, U64} = Struct {TotallyNotJson.234, TotallyNotJson.998};
let TotallyNotJson.231 : List U8 = CallByName List.4 TotallyNotJson.996 TotallyNotJson.997; let TotallyNotJson.987 : {} = Struct {};
let TotallyNotJson.995 : U64 = CallByName List.6 TotallyNotJson.227; let TotallyNotJson.985 : {List U8, U64} = CallByName List.18 TotallyNotJson.230 TotallyNotJson.986 TotallyNotJson.987;
let TotallyNotJson.983 : {List U8, U64} = Struct {TotallyNotJson.231, TotallyNotJson.995}; let TotallyNotJson.236 : List U8 = StructAtIndex 0 TotallyNotJson.985;
let TotallyNotJson.984 : {} = Struct {}; let TotallyNotJson.984 : I64 = 93i64;
let TotallyNotJson.982 : {List U8, U64} = CallByName List.18 TotallyNotJson.227 TotallyNotJson.983 TotallyNotJson.984; let TotallyNotJson.983 : U8 = CallByName Num.127 TotallyNotJson.984;
let TotallyNotJson.233 : List U8 = StructAtIndex 0 TotallyNotJson.982; let TotallyNotJson.980 : List U8 = CallByName List.4 TotallyNotJson.236 TotallyNotJson.983;
let TotallyNotJson.981 : I64 = 93i64; let TotallyNotJson.982 : I64 = 125i64;
let TotallyNotJson.980 : U8 = CallByName Num.127 TotallyNotJson.981; let TotallyNotJson.981 : U8 = CallByName Num.127 TotallyNotJson.982;
let TotallyNotJson.977 : List U8 = CallByName List.4 TotallyNotJson.233 TotallyNotJson.980; let TotallyNotJson.979 : List U8 = CallByName List.4 TotallyNotJson.980 TotallyNotJson.981;
let TotallyNotJson.979 : I64 = 125i64; ret TotallyNotJson.979;
let TotallyNotJson.978 : U8 = CallByName Num.127 TotallyNotJson.979;
let TotallyNotJson.976 : List U8 = CallByName List.4 TotallyNotJson.977 TotallyNotJson.978;
ret TotallyNotJson.976;
procedure TotallyNotJson.228 (TotallyNotJson.229, TotallyNotJson.973, #Attr.12): procedure TotallyNotJson.231 (TotallyNotJson.232, TotallyNotJson.976, #Attr.12):
let TotallyNotJson.227 : List [] = StructAtIndex 1 #Attr.12; let TotallyNotJson.230 : List [] = StructAtIndex 1 #Attr.12;
let TotallyNotJson.226 : Str = StructAtIndex 0 #Attr.12; let TotallyNotJson.229 : Str = StructAtIndex 0 #Attr.12;
let TotallyNotJson.1054 : I64 = 123i64; let TotallyNotJson.1057 : I64 = 123i64;
let TotallyNotJson.1053 : U8 = CallByName Num.127 TotallyNotJson.1054; let TotallyNotJson.1056 : U8 = CallByName Num.127 TotallyNotJson.1057;
let TotallyNotJson.1050 : List U8 = CallByName List.4 TotallyNotJson.229 TotallyNotJson.1053; let TotallyNotJson.1053 : List U8 = CallByName List.4 TotallyNotJson.232 TotallyNotJson.1056;
let TotallyNotJson.1052 : I64 = 34i64; let TotallyNotJson.1055 : I64 = 34i64;
let TotallyNotJson.1051 : U8 = CallByName Num.127 TotallyNotJson.1052; let TotallyNotJson.1054 : U8 = CallByName Num.127 TotallyNotJson.1055;
let TotallyNotJson.1048 : List U8 = CallByName List.4 TotallyNotJson.1050 TotallyNotJson.1051; let TotallyNotJson.1051 : List U8 = CallByName List.4 TotallyNotJson.1053 TotallyNotJson.1054;
let TotallyNotJson.1049 : List U8 = CallByName Str.12 TotallyNotJson.226; let TotallyNotJson.1052 : List U8 = CallByName Str.12 TotallyNotJson.229;
let TotallyNotJson.1045 : List U8 = CallByName List.8 TotallyNotJson.1048 TotallyNotJson.1049; let TotallyNotJson.1048 : List U8 = CallByName List.8 TotallyNotJson.1051 TotallyNotJson.1052;
let TotallyNotJson.1047 : I64 = 34i64; let TotallyNotJson.1050 : I64 = 34i64;
let TotallyNotJson.1049 : U8 = CallByName Num.127 TotallyNotJson.1050;
let TotallyNotJson.1045 : List U8 = CallByName List.4 TotallyNotJson.1048 TotallyNotJson.1049;
let TotallyNotJson.1047 : I64 = 58i64;
let TotallyNotJson.1046 : U8 = CallByName Num.127 TotallyNotJson.1047; let TotallyNotJson.1046 : U8 = CallByName Num.127 TotallyNotJson.1047;
let TotallyNotJson.1042 : List U8 = CallByName List.4 TotallyNotJson.1045 TotallyNotJson.1046; let TotallyNotJson.1042 : List U8 = CallByName List.4 TotallyNotJson.1045 TotallyNotJson.1046;
let TotallyNotJson.1044 : I64 = 58i64; let TotallyNotJson.1044 : I64 = 91i64;
let TotallyNotJson.1043 : U8 = CallByName Num.127 TotallyNotJson.1044; let TotallyNotJson.1043 : U8 = CallByName Num.127 TotallyNotJson.1044;
let TotallyNotJson.1039 : List U8 = CallByName List.4 TotallyNotJson.1042 TotallyNotJson.1043; let TotallyNotJson.234 : List U8 = CallByName List.4 TotallyNotJson.1042 TotallyNotJson.1043;
let TotallyNotJson.1041 : I64 = 91i64; let TotallyNotJson.1041 : U64 = CallByName List.6 TotallyNotJson.230;
let TotallyNotJson.1040 : U8 = CallByName Num.127 TotallyNotJson.1041; let TotallyNotJson.1029 : {List U8, U64} = Struct {TotallyNotJson.234, TotallyNotJson.1041};
let TotallyNotJson.231 : List U8 = CallByName List.4 TotallyNotJson.1039 TotallyNotJson.1040; let TotallyNotJson.1030 : {} = Struct {};
let TotallyNotJson.1038 : U64 = CallByName List.6 TotallyNotJson.227; let TotallyNotJson.1028 : {List U8, U64} = CallByName List.18 TotallyNotJson.230 TotallyNotJson.1029 TotallyNotJson.1030;
let TotallyNotJson.1026 : {List U8, U64} = Struct {TotallyNotJson.231, TotallyNotJson.1038}; let TotallyNotJson.236 : List U8 = StructAtIndex 0 TotallyNotJson.1028;
let TotallyNotJson.1027 : {} = Struct {}; let TotallyNotJson.1027 : I64 = 93i64;
let TotallyNotJson.1025 : {List U8, U64} = CallByName List.18 TotallyNotJson.227 TotallyNotJson.1026 TotallyNotJson.1027; let TotallyNotJson.1026 : U8 = CallByName Num.127 TotallyNotJson.1027;
let TotallyNotJson.233 : List U8 = StructAtIndex 0 TotallyNotJson.1025; let TotallyNotJson.1023 : List U8 = CallByName List.4 TotallyNotJson.236 TotallyNotJson.1026;
let TotallyNotJson.1024 : I64 = 93i64; let TotallyNotJson.1025 : I64 = 125i64;
let TotallyNotJson.1023 : U8 = CallByName Num.127 TotallyNotJson.1024; let TotallyNotJson.1024 : U8 = CallByName Num.127 TotallyNotJson.1025;
let TotallyNotJson.1020 : List U8 = CallByName List.4 TotallyNotJson.233 TotallyNotJson.1023; let TotallyNotJson.1022 : List U8 = CallByName List.4 TotallyNotJson.1023 TotallyNotJson.1024;
let TotallyNotJson.1022 : I64 = 125i64; ret TotallyNotJson.1022;
let TotallyNotJson.1021 : U8 = CallByName Num.127 TotallyNotJson.1022;
let TotallyNotJson.1019 : List U8 = CallByName List.4 TotallyNotJson.1020 TotallyNotJson.1021;
ret TotallyNotJson.1019;
procedure TotallyNotJson.230 (TotallyNotJson.975, TotallyNotJson.236): procedure TotallyNotJson.233 (TotallyNotJson.978, TotallyNotJson.239):
let TotallyNotJson.234 : List U8 = StructAtIndex 0 TotallyNotJson.975; let TotallyNotJson.237 : List U8 = StructAtIndex 0 TotallyNotJson.978;
let TotallyNotJson.235 : U64 = StructAtIndex 1 TotallyNotJson.975; let TotallyNotJson.238 : U64 = StructAtIndex 1 TotallyNotJson.978;
let TotallyNotJson.1037 : {} = Struct {}; let TotallyNotJson.1040 : {} = Struct {};
let TotallyNotJson.237 : List U8 = CallByName Encode.24 TotallyNotJson.234 TotallyNotJson.236 TotallyNotJson.1037; let TotallyNotJson.240 : List U8 = CallByName Encode.24 TotallyNotJson.237 TotallyNotJson.239 TotallyNotJson.1040;
joinpoint TotallyNotJson.1032 TotallyNotJson.238: joinpoint TotallyNotJson.1035 TotallyNotJson.241:
let TotallyNotJson.1030 : U64 = 1i64; let TotallyNotJson.1033 : U64 = 1i64;
let TotallyNotJson.1029 : U64 = CallByName Num.20 TotallyNotJson.235 TotallyNotJson.1030; let TotallyNotJson.1032 : U64 = CallByName Num.20 TotallyNotJson.238 TotallyNotJson.1033;
let TotallyNotJson.1028 : {List U8, U64} = Struct {TotallyNotJson.238, TotallyNotJson.1029}; let TotallyNotJson.1031 : {List U8, U64} = Struct {TotallyNotJson.241, TotallyNotJson.1032};
ret TotallyNotJson.1028; ret TotallyNotJson.1031;
in in
let TotallyNotJson.1036 : U64 = 1i64; let TotallyNotJson.1039 : U64 = 1i64;
let TotallyNotJson.1033 : Int1 = CallByName Num.24 TotallyNotJson.235 TotallyNotJson.1036; let TotallyNotJson.1036 : Int1 = CallByName Num.24 TotallyNotJson.238 TotallyNotJson.1039;
if TotallyNotJson.1033 then if TotallyNotJson.1036 then
let TotallyNotJson.1035 : I64 = 44i64; let TotallyNotJson.1038 : I64 = 44i64;
let TotallyNotJson.1034 : U8 = CallByName Num.127 TotallyNotJson.1035; let TotallyNotJson.1037 : U8 = CallByName Num.127 TotallyNotJson.1038;
let TotallyNotJson.1031 : List U8 = CallByName List.4 TotallyNotJson.237 TotallyNotJson.1034; let TotallyNotJson.1034 : List U8 = CallByName List.4 TotallyNotJson.240 TotallyNotJson.1037;
jump TotallyNotJson.1032 TotallyNotJson.1031; jump TotallyNotJson.1035 TotallyNotJson.1034;
else else
jump TotallyNotJson.1032 TotallyNotJson.237; jump TotallyNotJson.1035 TotallyNotJson.240;
procedure TotallyNotJson.230 (TotallyNotJson.975, TotallyNotJson.236): procedure TotallyNotJson.233 (TotallyNotJson.978, TotallyNotJson.239):
let TotallyNotJson.234 : List U8 = StructAtIndex 0 TotallyNotJson.975; let TotallyNotJson.237 : List U8 = StructAtIndex 0 TotallyNotJson.978;
let TotallyNotJson.235 : U64 = StructAtIndex 1 TotallyNotJson.975; let TotallyNotJson.238 : U64 = StructAtIndex 1 TotallyNotJson.978;
let TotallyNotJson.994 : {} = Struct {}; let TotallyNotJson.997 : {} = Struct {};
let TotallyNotJson.237 : List U8 = CallByName Encode.24 TotallyNotJson.234 TotallyNotJson.236 TotallyNotJson.994; let TotallyNotJson.240 : List U8 = CallByName Encode.24 TotallyNotJson.237 TotallyNotJson.239 TotallyNotJson.997;
joinpoint TotallyNotJson.989 TotallyNotJson.238: joinpoint TotallyNotJson.992 TotallyNotJson.241:
let TotallyNotJson.987 : U64 = 1i64; let TotallyNotJson.990 : U64 = 1i64;
let TotallyNotJson.986 : U64 = CallByName Num.20 TotallyNotJson.235 TotallyNotJson.987; let TotallyNotJson.989 : U64 = CallByName Num.20 TotallyNotJson.238 TotallyNotJson.990;
let TotallyNotJson.985 : {List U8, U64} = Struct {TotallyNotJson.238, TotallyNotJson.986}; let TotallyNotJson.988 : {List U8, U64} = Struct {TotallyNotJson.241, TotallyNotJson.989};
ret TotallyNotJson.985; ret TotallyNotJson.988;
in in
let TotallyNotJson.993 : U64 = 1i64; let TotallyNotJson.996 : U64 = 1i64;
let TotallyNotJson.990 : Int1 = CallByName Num.24 TotallyNotJson.235 TotallyNotJson.993; let TotallyNotJson.993 : Int1 = CallByName Num.24 TotallyNotJson.238 TotallyNotJson.996;
if TotallyNotJson.990 then if TotallyNotJson.993 then
let TotallyNotJson.992 : I64 = 44i64; let TotallyNotJson.995 : I64 = 44i64;
let TotallyNotJson.991 : U8 = CallByName Num.127 TotallyNotJson.992; let TotallyNotJson.994 : U8 = CallByName Num.127 TotallyNotJson.995;
let TotallyNotJson.988 : List U8 = CallByName List.4 TotallyNotJson.237 TotallyNotJson.991; let TotallyNotJson.991 : List U8 = CallByName List.4 TotallyNotJson.240 TotallyNotJson.994;
jump TotallyNotJson.989 TotallyNotJson.988; jump TotallyNotJson.992 TotallyNotJson.991;
else else
jump TotallyNotJson.989 TotallyNotJson.237; jump TotallyNotJson.992 TotallyNotJson.240;
procedure TotallyNotJson.31 (TotallyNotJson.226, TotallyNotJson.227): procedure TotallyNotJson.31 (TotallyNotJson.229, TotallyNotJson.230):
let TotallyNotJson.1013 : {Str, List [C {}, C {}]} = Struct {TotallyNotJson.226, TotallyNotJson.227}; let TotallyNotJson.1016 : {Str, List [C {}, C {}]} = Struct {TotallyNotJson.229, TotallyNotJson.230};
let TotallyNotJson.1012 : {Str, List [C {}, C {}]} = CallByName Encode.23 TotallyNotJson.1013; let TotallyNotJson.1015 : {Str, List [C {}, C {}]} = CallByName Encode.23 TotallyNotJson.1016;
ret TotallyNotJson.1012; ret TotallyNotJson.1015;
procedure TotallyNotJson.31 (TotallyNotJson.226, TotallyNotJson.227): procedure TotallyNotJson.31 (TotallyNotJson.229, TotallyNotJson.230):
let TotallyNotJson.1056 : {Str, List []} = Struct {TotallyNotJson.226, TotallyNotJson.227}; let TotallyNotJson.1059 : {Str, List []} = Struct {TotallyNotJson.229, TotallyNotJson.230};
let TotallyNotJson.1055 : {Str, List []} = CallByName Encode.23 TotallyNotJson.1056; let TotallyNotJson.1058 : {Str, List []} = CallByName Encode.23 TotallyNotJson.1059;
ret TotallyNotJson.1055; ret TotallyNotJson.1058;
procedure TotallyNotJson.8 (): procedure TotallyNotJson.8 ():
let TotallyNotJson.970 : {} = Struct {}; let TotallyNotJson.973 : {} = Struct {};
ret TotallyNotJson.970; ret TotallyNotJson.973;
procedure Test.0 (): procedure Test.0 ():
let Test.13 : {{}, {}} = CallByName Test.3; let Test.13 : {{}, {}} = CallByName Test.3;

1
crates/compiler/test_syntax/Cargo.toml
View file

@ -18,6 +18,7 @@ roc_module = { path = "../module" }
roc_parse = { path = "../parse" } roc_parse = { path = "../parse" }
roc_region = { path = "../region" } roc_region = { path = "../region" }
roc_test_utils = { path = "../../test_utils" } roc_test_utils = { path = "../../test_utils" }
roc_test_utils_dir = { path = "../../test_utils_dir" }
[dev-dependencies] [dev-dependencies]
indoc.workspace = true indoc.workspace = true

2
crates/compiler/test_syntax/tests/snapshots/pass/newline_in_packages.full.formatted.roc
View file

@ -1,7 +1,7 @@
app "hello" app "hello"
packages { packages {
pf: pf:
"https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br", "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br",
} }
imports [pf.Stdout] imports [pf.Stdout]
provides [main] to pf provides [main] to pf

2
crates/compiler/test_syntax/tests/snapshots/pass/newline_in_packages.full.result-ast
View file

@ -24,7 +24,7 @@ Full {
Newline, Newline,
], ],
package_name: @31-145 PackageName( package_name: @31-145 PackageName(
"https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br", "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br",
), ),
}, },
[ [

2
crates/compiler/test_syntax/tests/snapshots/pass/newline_in_packages.full.roc
View file

@ -1,6 +1,6 @@
app "hello" app "hello"
packages { pf: packages { pf:
"https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br"
} }
imports [pf.Stdout] imports [pf.Stdout]
provides [main] to pf provides [main] to pf

3
crates/compiler/test_syntax/tests/test_fmt.rs
View file

@ -11,7 +11,8 @@ mod test_fmt {
use roc_parse::module::{self, module_defs}; use roc_parse::module::{self, module_defs};
use roc_parse::parser::Parser; use roc_parse::parser::Parser;
use roc_parse::state::State; use roc_parse::state::State;
use roc_test_utils::{assert_multiline_str_eq, workspace_root}; use roc_test_utils::assert_multiline_str_eq;
use roc_test_utils_dir::workspace_root;
use test_syntax::test_helpers::Input; use test_syntax::test_helpers::Input;
fn check_formatting(expected: &'_ str) -> impl Fn(Input) + '_ { fn check_formatting(expected: &'_ str) -> impl Fn(Input) + '_ {

1
crates/test_utils/Cargo.toml
View file

@ -9,6 +9,5 @@ version.workspace = true
[dependencies] [dependencies]
pretty_assertions.workspace = true pretty_assertions.workspace = true
remove_dir_all.workspace = true
[dev-dependencies] [dev-dependencies]

37
crates/test_utils/src/lib.rs
View file

@ -1,5 +1,4 @@
//! Provides testing utility functions for use throughout the Rust code base. //! Provides testing utility functions for use throughout the Rust code base.
use std::path::PathBuf;
#[doc(hidden)] #[doc(hidden)]
pub use pretty_assertions::assert_eq as _pretty_assert_eq; pub use pretty_assertions::assert_eq as _pretty_assert_eq;
@ -19,39 +18,3 @@ macro_rules! assert_multiline_str_eq {
$crate::_pretty_assert_eq!($crate::DebugAsDisplay($a), $crate::DebugAsDisplay($b)) $crate::_pretty_assert_eq!($crate::DebugAsDisplay($a), $crate::DebugAsDisplay($b))
}; };
} }
/**
* Creates a temporary empty directory that gets deleted when this goes out of scope.
*/
pub struct TmpDir {
path: std::path::PathBuf,
}
impl TmpDir {
pub fn new(dir: &str) -> TmpDir {
let path = std::path::Path::new(dir);
// ensure_empty_dir will fail if the dir doesn't already exist
std::fs::create_dir_all(path).unwrap();
remove_dir_all::ensure_empty_dir(path).unwrap();
let mut pathbuf = std::path::PathBuf::new();
pathbuf.push(path);
TmpDir { path: pathbuf }
}
pub fn path(&self) -> &std::path::Path {
self.path.as_path()
}
}
impl Drop for TmpDir {
fn drop(&mut self) {
// we "discard" the Result because there is no problem when a dir was already removed before we call remove_dir_all
let _ = remove_dir_all::remove_dir_all(&self.path);
}
}
pub fn workspace_root() -> PathBuf {
let root = std::env::var("ROC_WORKSPACE_DIR").expect("Can't find the ROC_WORKSPACE_DIR variable expected to be set in .cargo/config.toml. Are you running tests outside of cargo?");
PathBuf::from(root)
}

13
crates/test_utils_dir/Cargo.toml Normal file
View file

@ -0,0 +1,13 @@
[package]
name = "roc_test_utils_dir"
description = "Utility functions used all over the code base."
authors.workspace = true
edition.workspace = true
license.workspace = true
version.workspace = true
[dependencies]
remove_dir_all.workspace = true
[dev-dependencies]

36
crates/test_utils_dir/src/lib.rs Normal file
View file

@ -0,0 +1,36 @@
/**
* Creates a temporary empty directory that gets deleted when this goes out of scope.
*/
use std::path::PathBuf;
pub struct TmpDir {
path: std::path::PathBuf,
}
impl TmpDir {
pub fn new(dir: &str) -> TmpDir {
let path = std::path::Path::new(dir);
// ensure_empty_dir will fail if the dir doesn't already exist
std::fs::create_dir_all(path).unwrap();
remove_dir_all::ensure_empty_dir(path).unwrap();
let mut pathbuf = std::path::PathBuf::new();
pathbuf.push(path);
TmpDir { path: pathbuf }
}
pub fn path(&self) -> &std::path::Path {
self.path.as_path()
}
}
impl Drop for TmpDir {
fn drop(&mut self) {
// we "discard" the Result because there is no problem when a dir was already removed before we call remove_dir_all
let _ = remove_dir_all::remove_dir_all(&self.path);
}
}
pub fn workspace_root() -> PathBuf {
let root = std::env::var("ROC_WORKSPACE_DIR").expect("Can't find the ROC_WORKSPACE_DIR variable expected to be set in .cargo/config.toml. Are you running tests outside of cargo?");
PathBuf::from(root)
}

2
examples/cli/argsBROKEN.roc
View file

@ -1,5 +1,5 @@
app "args" app "args"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [pf.Stdout, pf.Arg, pf.Task.{ Task }] imports [pf.Stdout, pf.Arg, pf.Task.{ Task }]
provides [main] to pf provides [main] to pf

2
examples/cli/countdown.roc
View file

@ -1,5 +1,5 @@
app "countdown" app "countdown"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [pf.Stdin, pf.Stdout, pf.Task.{ await, loop }] imports [pf.Stdin, pf.Stdout, pf.Task.{ await, loop }]
provides [main] to pf provides [main] to pf

2
examples/cli/echo.roc
View file

@ -1,5 +1,5 @@
app "echo" app "echo"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [pf.Stdin, pf.Stdout, pf.Task.{ Task }] imports [pf.Stdin, pf.Stdout, pf.Task.{ Task }]
provides [main] to pf provides [main] to pf

2
examples/cli/env.roc
View file

@ -1,5 +1,5 @@
app "env" app "env"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [pf.Stdout, pf.Stderr, pf.Env, pf.Task.{ Task }] imports [pf.Stdout, pf.Stderr, pf.Env, pf.Task.{ Task }]
provides [main] to pf provides [main] to pf

2
examples/cli/fileBROKEN.roc
View file

@ -1,5 +1,5 @@
app "file-io" app "file-io"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [ imports [
pf.Stdout, pf.Stdout,
pf.Stderr, pf.Stderr,

2
examples/cli/form.roc
View file

@ -1,5 +1,5 @@
app "form" app "form"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [pf.Stdin, pf.Stdout, pf.Task.{ await, Task }] imports [pf.Stdin, pf.Stdout, pf.Task.{ await, Task }]
provides [main] to pf provides [main] to pf

10
examples/cli/http-get.roc
View file

@ -1,5 +1,5 @@
app "http-get" app "http-get"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [pf.Http, pf.Task.{ Task }, pf.Stdin, pf.Stdout] imports [pf.Http, pf.Task.{ Task }, pf.Stdin, pf.Stdout]
provides [main] to pf provides [main] to pf
@ -18,14 +18,14 @@ main =
method: Get, method: Get,
headers: [], headers: [],
url, url,
body: Http.emptyBody, mimeType: "",
body: [],
timeout: NoTimeout, timeout: NoTimeout,
} }
output <- Http.send request output <- Http.send request
|> Task.onErr \err -> err |> Task.await \resp -> resp |> Http.handleStringResponse |> Task.fromResult
|> Http.errorToString |> Task.onErr \err -> crash (Http.errorToString err)
|> Task.ok
|> Task.await |> Task.await
Stdout.line output Stdout.line output

2
examples/cli/ingested-file-bytes.roc
View file

@ -1,5 +1,5 @@
app "ingested-file-bytes" app "ingested-file-bytes"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [ imports [
pf.Stdout, pf.Stdout,
"../../LICENSE" as license : _, # A type hole can also be used here. "../../LICENSE" as license : _, # A type hole can also be used here.

2
examples/cli/ingested-file.roc
View file

@ -1,5 +1,5 @@
app "ingested-file" app "ingested-file"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [ imports [
pf.Stdout, pf.Stdout,
"ingested-file.roc" as ownCode : Str, "ingested-file.roc" as ownCode : Str,

2
examples/helloWorld.roc
View file

@ -1,5 +1,5 @@
app "helloWorld" app "helloWorld"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [pf.Stdout] imports [pf.Stdout]
provides [main] to pf provides [main] to pf

2
examples/inspect-logging.roc
View file

@ -2,7 +2,7 @@
# Shows how Roc values can be logged # Shows how Roc values can be logged
# #
app "inspect-logging" app "inspect-logging"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [ imports [
pf.Stdout, pf.Stdout,
Community, Community,

2
examples/parser/letter-counts.roc
View file

@ -1,6 +1,6 @@
app "example" app "example"
packages { packages {
cli: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br", cli: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br",
parser: "https://github.com/lukewilliamboswell/roc-parser/releases/download/0.5.2/9VrPjwfQQ1QeSL3CfmWr2Pr9DESdDIXy97pwpuq84Ck.tar.br", parser: "https://github.com/lukewilliamboswell/roc-parser/releases/download/0.5.2/9VrPjwfQQ1QeSL3CfmWr2Pr9DESdDIXy97pwpuq84Ck.tar.br",
} }
imports [ imports [

2
examples/parser/parse-movies-csv.roc
View file

@ -1,6 +1,6 @@
app "example" app "example"
packages { packages {
pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br", pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br",
parser: "https://github.com/lukewilliamboswell/roc-parser/releases/download/0.5.2/9VrPjwfQQ1QeSL3CfmWr2Pr9DESdDIXy97pwpuq84Ck.tar.br", parser: "https://github.com/lukewilliamboswell/roc-parser/releases/download/0.5.2/9VrPjwfQQ1QeSL3CfmWr2Pr9DESdDIXy97pwpuq84Ck.tar.br",
} }
imports [ imports [

2
www/content/platforms.md
View file

@ -8,7 +8,7 @@ Here is a Roc application that prints `"Hello, World!"` to the command line:
```roc ```roc
app "hello" app "hello"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [pf.Stdout] imports [pf.Stdout]
provides [main] to pf provides [main] to pf

12
www/content/tutorial.md
View file

@ -164,7 +164,7 @@ Make a file named `main.roc` and put this in it:
```roc ```roc
app "hello" app "hello"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [pf.Stdout] imports [pf.Stdout]
provides [main] to pf provides [main] to pf
@ -1436,7 +1436,7 @@ Let's take a closer look at the part of `main.roc` above the `main` def:
```roc ```roc
app "hello" app "hello"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [pf.Stdout] imports [pf.Stdout]
provides [main] to pf provides [main] to pf
``` ```
@ -1448,7 +1448,7 @@ The line `app "hello"` shows that this module is a Roc application. The "hello"
The remaining lines all involve the [platform](https://github.com/roc-lang/roc/wiki/Roc-concepts-explained#platform) this application is built on: The remaining lines all involve the [platform](https://github.com/roc-lang/roc/wiki/Roc-concepts-explained#platform) this application is built on:
```roc ```roc
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [pf.Stdout] imports [pf.Stdout]
provides [main] to pf provides [main] to pf
``` ```
@ -1547,7 +1547,7 @@ Let's start with a basic "Hello World" program.
```roc ```roc
app "cli-tutorial" app "cli-tutorial"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [pf.Stdout] imports [pf.Stdout]
provides [main] to pf provides [main] to pf
@ -1581,7 +1581,7 @@ Let's change `main` to read a line from `stdin`, and then print what we got:
```roc ```roc
app "cli-tutorial" app "cli-tutorial"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [pf.Stdout, pf.Stdin, pf.Task] imports [pf.Stdout, pf.Stdin, pf.Task]
provides [main] to pf provides [main] to pf
@ -1626,7 +1626,7 @@ This works, but we can make it a little nicer to read. Let's change it to the fo
```roc ```roc
app "cli-tutorial" app "cli-tutorial"
packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.8.1/x8URkvfyi9I0QhmVG98roKBUs_AZRkLFwFJVJ3942YA.tar.br" } packages { pf: "https://github.com/roc-lang/basic-cli/releases/download/0.9.0/oKWkaruh2zXxin_xfsYsCJobH1tO8_JvNkFzDwwzNUQ.tar.br" }
imports [pf.Stdout, pf.Stdin, pf.Task.{ await }] imports [pf.Stdout, pf.Stdin, pf.Task.{ await }]
provides [main] to pf provides [main] to pf