language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-10-26 19:16:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6
roc/crates/compiler/test_mono/generated/dbg_inside_string.txt
Norbert Hajagos f372e18600
update mono tests
2025-01-20 11:02:59 +01:00

294 lines
10 KiB
Text
Generated
Raw Blame History

procedure Bool.1 ():
let Bool.21 : Int1 = false;
ret Bool.21;
procedure Bool.9 (#Attr.2, #Attr.3):
let Bool.22 : Int1 = lowlevel Eq #Attr.2 #Attr.3;
ret Bool.22;
procedure Bool.9 (#Attr.2, #Attr.3):
let Bool.23 : Int1 = lowlevel Eq #Attr.2 #Attr.3;
ret Bool.23;
procedure Inspect.245 (Inspect.246, Inspect.244):
let Inspect.317 : Str = "\"";
let Inspect.316 : Str = CallByName Inspect.63 Inspect.246 Inspect.317;
dec Inspect.317;
let Inspect.312 : Str = CallByName Inspect.63 Inspect.316 Inspect.244;
let Inspect.313 : Str = "\"";
let Inspect.311 : Str = CallByName Inspect.63 Inspect.312 Inspect.313;
dec Inspect.313;
ret Inspect.311;
procedure Inspect.30 (Inspect.147):
ret Inspect.147;
procedure Inspect.33 (Inspect.152):
let Inspect.300 : Str = CallByName Inspect.5 Inspect.152;
let Inspect.299 : Str = CallByName Inspect.64 Inspect.300;
ret Inspect.299;
procedure Inspect.39 (Inspect.296):
let Inspect.306 : Str = "";
ret Inspect.306;
procedure Inspect.47 (Inspect.243):
let Inspect.327 : Str = "\u{feff}";
let Inspect.328 : Str = "\\u(feff)";
let Inspect.324 : Str = CallByName Str.45 Inspect.243 Inspect.327 Inspect.328;
dec Inspect.327;
dec Inspect.328;
let Inspect.325 : Str = "\u{200b}";
let Inspect.326 : Str = "\\u(200b)";
let Inspect.321 : Str = CallByName Str.45 Inspect.324 Inspect.325 Inspect.326;
dec Inspect.326;
dec Inspect.325;
let Inspect.322 : Str = "\u{200c}";
let Inspect.323 : Str = "\\u(200c)";
let Inspect.318 : Str = CallByName Str.45 Inspect.321 Inspect.322 Inspect.323;
dec Inspect.322;
dec Inspect.323;
let Inspect.319 : Str = "\u{200d}";
let Inspect.320 : Str = "\\u(200d)";
let Inspect.244 : Str = CallByName Str.45 Inspect.318 Inspect.319 Inspect.320;
dec Inspect.319;
dec Inspect.320;
let Inspect.308 : Str = CallByName Inspect.30 Inspect.244;
ret Inspect.308;
procedure Inspect.5 (Inspect.150):
let Inspect.307 : Str = CallByName Inspect.47 Inspect.150;
let Inspect.304 : {} = Struct {};
let Inspect.303 : Str = CallByName Inspect.39 Inspect.304;
let Inspect.302 : Str = CallByName Inspect.245 Inspect.303 Inspect.307;
dec Inspect.307;
ret Inspect.302;
procedure Inspect.63 (Inspect.295, Inspect.291):
let Inspect.315 : Str = CallByName Str.3 Inspect.295 Inspect.291;
ret Inspect.315;
procedure Inspect.64 (Inspect.297):
ret Inspect.297;
procedure Num.20 (#Attr.2, #Attr.3):
let Num.288 : U64 = lowlevel NumSub #Attr.2 #Attr.3;
ret Num.288;
procedure Num.22 (#Attr.2, #Attr.3):
let Num.290 : Int1 = lowlevel NumLt #Attr.2 #Attr.3;
ret Num.290;
procedure Num.23 (#Attr.2, #Attr.3):
let Num.292 : Int1 = lowlevel NumLte #Attr.2 #Attr.3;
ret Num.292;
procedure Num.25 (#Attr.2, #Attr.3):
let Num.289 : Int1 = lowlevel NumGte #Attr.2 #Attr.3;
ret Num.289;
procedure Num.51 (#Attr.2, #Attr.3):
let Num.286 : U64 = lowlevel NumAddWrap #Attr.2 #Attr.3;
ret Num.286;
procedure Num.53 (#Attr.2, #Attr.3):
let Num.291 : U64 = lowlevel NumAddSaturated #Attr.2 #Attr.3;
ret Num.291;
procedure Num.77 (#Attr.2, #Attr.3):
let Num.293 : U64 = lowlevel NumSubSaturated #Attr.2 #Attr.3;
ret Num.293;
procedure Str.20 (#Attr.2):
let Str.318 : Str = lowlevel StrWithCapacity #Attr.2;
ret Str.318;
procedure Str.3 (#Attr.2, #Attr.3):
let Str.250 : Str = lowlevel StrConcat #Attr.2 #Attr.3;
ret Str.250;
procedure Str.35 (#Attr.2, #Attr.3):
let Str.308 : U8 = lowlevel StrGetUnsafe #Attr.2 #Attr.3;
ret Str.308;
procedure Str.36 (#Attr.2):
let Str.270 : U64 = lowlevel StrCountUtf8Bytes #Attr.2;
ret Str.270;
procedure Str.37 (#Attr.2, #Attr.3, #Attr.4):
let Str.268 : Str = lowlevel StrSubstringUnsafe #Attr.2 #Attr.3 #Attr.4;
ret Str.268;
procedure Str.38 (Str.113, Str.114):
let Str.264 : [C , C U64] = CallByName Str.58 Str.113 Str.114;
let Str.277 : U8 = 1i64;
let Str.278 : U8 = GetTagId Str.264;
let Str.279 : Int1 = lowlevel Eq Str.277 Str.278;
if Str.279 then
let Str.115 : U64 = UnionAtIndex (Id 1) (Index 0) Str.264;
let Str.273 : U64 = CallByName Str.36 Str.113;
let Str.274 : U64 = CallByName Str.36 Str.114;
let Str.272 : U64 = CallByName Num.20 Str.273 Str.274;
let Str.116 : U64 = CallByName Num.20 Str.272 Str.115;
let Str.271 : U64 = 0i64;
inc Str.113;
let Str.117 : Str = CallByName Str.37 Str.113 Str.271 Str.115;
let Str.269 : U64 = CallByName Str.36 Str.114;
let Str.267 : U64 = CallByName Num.51 Str.115 Str.269;
let Str.118 : Str = CallByName Str.37 Str.113 Str.267 Str.116;
let Str.266 : {Str, Str} = Struct {Str.118, Str.117};
let Str.265 : [C {}, C {Str, Str}] = TagId(1) Str.266;
ret Str.265;
else
dec Str.113;
let Str.276 : {} = Struct {};
let Str.275 : [C {}, C {Str, Str}] = TagId(0) Str.276;
ret Str.275;
procedure Str.45 (Str.92, Str.93, Str.94):
inc Str.92;
let Str.346 : [C {}, C {Str, Str}] = CallByName Str.38 Str.92 Str.93;
let Str.354 : U8 = 1i64;
let Str.355 : U8 = GetTagId Str.346;
let Str.356 : Int1 = lowlevel Eq Str.354 Str.355;
if Str.356 then
let Str.353 : {Str, Str} = UnionAtIndex (Id 1) (Index 0) Str.346;
let Str.96 : Str = StructAtIndex 0 Str.353;
let Str.95 : Str = StructAtIndex 1 Str.353;
let Str.351 : U64 = CallByName Str.36 Str.92;
dec Str.92;
let Str.350 : Str = CallByName Str.20 Str.351;
let Str.349 : Str = CallByName Str.3 Str.350 Str.95;
dec Str.95;
let Str.348 : Str = CallByName Str.3 Str.349 Str.94;
let Str.347 : Str = CallByName Str.57 Str.348 Str.96 Str.93 Str.94;
ret Str.347;
else
dec Str.346;
ret Str.92;
procedure Str.57 (Bool.24, Bool.25, Bool.26, Bool.27):
joinpoint Str.254 Str.97 Str.98 Str.99 Str.100:
inc Str.98;
let Str.255 : [C {}, C {Str, Str}] = CallByName Str.38 Str.98 Str.99;
let Str.261 : U8 = 1i64;
let Str.262 : U8 = GetTagId Str.255;
let Str.263 : Int1 = lowlevel Eq Str.261 Str.262;
if Str.263 then
dec Str.98;
let Str.260 : {Str, Str} = UnionAtIndex (Id 1) (Index 0) Str.255;
let Str.102 : Str = StructAtIndex 0 Str.260;
let Str.101 : Str = StructAtIndex 1 Str.260;
let Str.258 : Str = CallByName Str.3 Str.97 Str.101;
dec Str.101;
let Str.257 : Str = CallByName Str.3 Str.258 Str.100;
jump Str.254 Str.257 Str.102 Str.99 Str.100;
else
dec Str.100;
dec Str.99;
dec Str.255;
let Str.259 : Str = CallByName Str.3 Str.97 Str.98;
dec Str.98;
ret Str.259;
in
inc Bool.26;
inc Bool.27;
jump Str.254 Bool.24 Bool.25 Bool.26 Bool.27;
procedure Str.58 (Str.122, Str.123):
let Str.124 : U64 = CallByName Str.36 Str.122;
let Str.125 : U64 = CallByName Str.36 Str.123;
let Str.126 : U64 = CallByName Num.77 Str.124 Str.125;
let Str.281 : U64 = 0i64;
let Str.280 : [C , C U64] = CallByName Str.59 Str.122 Str.123 Str.281 Str.126;
ret Str.280;
procedure Str.59 (Bool.28, Bool.29, Bool.30, Bool.31):
joinpoint Str.282 Str.127 Str.128 Str.129 Str.130:
let Str.284 : Int1 = CallByName Num.23 Str.129 Str.130;
if Str.284 then
let Str.288 : Int1 = CallByName Str.63 Str.127 Str.129 Str.128;
if Str.288 then
dec Str.127;
dec Str.128;
let Str.289 : [C , C U64] = TagId(1) Str.129;
ret Str.289;
else
let Str.287 : U64 = 1i64;
let Str.286 : U64 = CallByName Num.51 Str.129 Str.287;
jump Str.282 Str.127 Str.128 Str.286 Str.130;
else
dec Str.127;
dec Str.128;
let Str.283 : [C , C U64] = TagId(0) ;
ret Str.283;
in
inc Bool.29;
inc Bool.28;
jump Str.282 Bool.28 Bool.29 Bool.30 Bool.31;
procedure Str.62 (Str.153, Str.154):
let Str.313 : Int1 = CallByName Num.22 Str.153 Str.154;
if Str.313 then
ret Str.153;
else
ret Str.154;
procedure Str.63 (Str.155, Str.156, Str.157):
let Str.158 : U64 = CallByName Str.36 Str.155;
let Str.159 : U64 = CallByName Str.36 Str.157;
let Str.311 : U64 = CallByName Num.53 Str.156 Str.159;
let Str.160 : U64 = CallByName Str.62 Str.311 Str.158;
let Str.310 : U64 = 0i64;
inc Str.157;
inc Str.155;
let Str.291 : {U64, Str, U64, Str, U64, U64} = Struct {Str.160, Str.155, Str.156, Str.157, Str.310, Str.159};
let Str.290 : Int1 = CallByName Str.64 Str.291;
ret Str.290;
procedure Str.64 (Str.161):
let Str.167 : U64 = StructAtIndex 0 Str.161;
let Str.162 : Str = StructAtIndex 1 Str.161;
let Str.163 : U64 = StructAtIndex 2 Str.161;
let Str.164 : Str = StructAtIndex 3 Str.161;
let Str.165 : U64 = StructAtIndex 4 Str.161;
let Str.166 : U64 = StructAtIndex 5 Str.161;
let Str.168 : Int1 = CallByName Num.25 Str.163 Str.167;
if Str.168 then
dec Str.162;
dec Str.164;
let Str.169 : Int1 = CallByName Bool.9 Str.165 Str.166;
ret Str.169;
else
let Str.306 : U8 = CallByName Str.35 Str.162 Str.163;
let Str.307 : U8 = CallByName Str.35 Str.164 Str.165;
let Str.170 : Int1 = CallByName Bool.9 Str.306 Str.307;
let Str.296 : U64 = StructAtIndex 0 Str.161;
let Str.297 : Str = StructAtIndex 1 Str.161;
let Str.299 : Str = StructAtIndex 3 Str.161;
let Str.301 : U64 = StructAtIndex 5 Str.161;
let Str.305 : U64 = 1i64;
let Str.303 : U64 = CallByName Num.51 Str.165 Str.305;
let Str.304 : U64 = 1i64;
let Str.302 : U64 = CallByName Num.51 Str.163 Str.304;
let Str.295 : {U64, Str, U64, Str, U64, U64} = Struct {Str.296, Str.297, Str.302, Str.299, Str.303, Str.301};
let Str.171 : Int1 = CallByName Str.64 Str.295;
if Str.170 then
ret Str.171;
else
let Str.293 : Int1 = CallByName Bool.1;
ret Str.293;
procedure Test.0 ():
let Test.4 : Str = "Hello ";
let Test.1 : Str = "world";
inc Test.1;
let Test.2 : Str = CallByName Inspect.33 Test.1;
dbg Test.2;
dec Test.2;
let Test.7 : Str = "!";
let Test.5 : Str = CallByName Str.3 Test.1 Test.7;
dec Test.7;
let Test.3 : Str = CallByName Str.3 Test.4 Test.5;
dec Test.5;
ret Test.3;
Reference in a new issue View git blame Copy permalink