Skip to content

Instantly share code, notes, and snippets.

@bdw

bdw/trunc.nqp

Created November 17, 2018 14:43
Show Gist options
  • Save bdw/0dd3ece19d87710b6b08262fb7ce1216 to your computer and use it in GitHub Desktop.
Save bdw/0dd3ece19d87710b6b08262fb7ce1216 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
trunc.nqp
#!/usr/bin/env nqp
sub foo(int64 $x) {
my int16 $y := $x;
my int64 $z := $y;
return $z;
}
my int $i := 0;
while ($i++ < 100_000) {
if (foo(100_000) != -31072) {
nqp::die("ERROR");
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment