Idris2/tests/idris2/reg042/expected
Tim Engler 05f28724ed
[ fix #1579 ] Nat hack for comparison operators (#1580)
Co-authored-by: Guillaume ALLAIS <guillaume.allais@ens-lyon.org>
2021-06-28 16:48:08 +01:00

68 lines
2.3 KiB
Plaintext

1/1: Building NatOpts (NatOpts.idr)
Main> Main.doPlus ==> [{arg:0}, {arg:1}];
Compile time tree: [0] (Prelude.Types.plus {arg:0}[0] {arg:1}[1])
Run time tree: Error: ""
RigW
Erasable args: []
Detaggable arg types: []
Specialise args: []
Inferrable args: []
Compiled: [{arg:0}, {arg:1}]: (+Integer [!{arg:0}, !{arg:1}])
Refers to: [Prelude.Types.plus]
Refers to (runtime): []
Flags: [covering]
Size change: Prelude.Types.plus: [Just (0, Same), Just (1, Same)]
Main> Main.doMinus ==> [{arg:0}, {arg:1}];
Compile time tree: [0] (Prelude.Types.minus {arg:0}[0] {arg:1}[1])
Run time tree: Error: ""
RigW
Erasable args: []
Detaggable arg types: []
Specialise args: []
Inferrable args: []
Compiled: [{arg:0}, {arg:1}]: (Prelude.Types.prim__integerToNat [(-Integer [!{arg:0}, !{arg:1}])])
Refers to: [Prelude.Types.minus]
Refers to (runtime): [Prelude.Types.prim__integerToNat]
Flags: [covering]
Size change: Prelude.Types.minus: [Just (0, Same), Just (1, Same)]
Main> Main.doMult ==> [{arg:0}, {arg:1}];
Compile time tree: [0] (Prelude.Types.mult {arg:0}[0] {arg:1}[1])
Run time tree: Error: ""
RigW
Erasable args: []
Detaggable arg types: []
Specialise args: []
Inferrable args: []
Compiled: [{arg:0}, {arg:1}]: (*Integer [!{arg:0}, !{arg:1}])
Refers to: [Prelude.Types.mult]
Refers to (runtime): []
Flags: [covering]
Size change: Prelude.Types.mult: [Just (0, Same), Just (1, Same)]
Main> Main.doCompare ==> [{arg:0}, {arg:1}];
Compile time tree: [0] (Prelude.Types.compareNat {arg:0}[0] {arg:1}[1])
Run time tree: Error: ""
RigW
Erasable args: []
Detaggable arg types: []
Specialise args: []
Inferrable args: []
Compiled: [{arg:0}, {arg:1}]: (Prelude.EqOrd.compareInteger [!{arg:0}, !{arg:1}])
Refers to: [Prelude.Types.compareNat]
Refers to (runtime): [Prelude.EqOrd.compareInteger]
Flags: [covering]
Size change: Prelude.Types.compareNat: [Just (0, Same), Just (1, Same)]
Main> Main.doEqual ==> [{arg:0}, {arg:1}];
Compile time tree: [0] (Prelude.Types.equalNat {arg:0}[0] {arg:1}[1])
Run time tree: Error: ""
RigW
Erasable args: []
Detaggable arg types: []
Specialise args: []
Inferrable args: []
Compiled: [{arg:0}, {arg:1}]: (==Integer [!{arg:0}, !{arg:1}])
Refers to: [Prelude.Types.equalNat]
Refers to (runtime): []
Flags: [covering]
Size change: Prelude.Types.equalNat: [Just (0, Same), Just (1, Same)]
Main> Bye for now!