Skip to content

Instantly share code, notes, and snippets.

@ismaele
Created August 28, 2012 14:41
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ismaele/3498602 to your computer and use it in GitHub Desktop.
Save ismaele/3498602 to your computer and use it in GitHub Desktop.
C:\rakudo\bin>perl6 --target=PIR -e "print \"\nhello\n\"";"
.include 'cclass.pasm'
.include 'except_severity.pasm'
.include 'except_types.pasm'
.include 'iglobals.pasm'
.include 'interpinfo.pasm'
.include 'iterator.pasm'
.include 'sysinfo.pasm'
.include 'stat.pasm'
.include 'datatypes.pasm'
.HLL "perl6"
.namespace []
.sub "_block1000" :anon :subid("11_1346164754.25")
.annotate 'file', "-e"
.annotate 'line', 0
.const 'Sub' $P1003 = "10_1346164754.25"
capture_lex $P1003
.annotate 'line', 1
.const 'Sub' $P1003 = "10_1346164754.25"
capture_lex $P1003
$P103 = $P1003()
.return ($P103)
.const 'Sub' $P1018 = "12_1346164754.25"
.return ($P1018)
.end
.HLL "perl6"
.loadlib "nqp_group"
.loadlib "nqp_ops"
.loadlib "perl6_group"
.loadlib "perl6_ops"
.loadlib "bit_ops"
.loadlib "math_ops"
.loadlib "trans_ops"
.loadlib "io_ops"
.loadlib "obscure_ops"
.loadlib "os"
.loadlib "file"
.loadlib "sys_ops"
.loadlib "nqp_bigint_ops"
.loadlib "nqp_dyncall_ops"
.namespace []
.sub "_block1002" :anon :subid("10_1346164754.25") :outer("11_1346164754.25")
.annotate 'file', "-e"
.annotate 'line', 1
.lex "GLOBALish", $P1004
.lex "EXPORT", $P1005
.lex "$?PACKAGE", $P1006
.lex "::?PACKAGE", $P1007
.lex "$_", $P1008
.lex "$/", $P1009
.lex "$!", $P1010
.lex "$=pod", $P1011
.lex "!UNIT_MARKER", $P1012
$P0 = find_dynamic_lex "$*CTXSAVE"
if null $P0 goto ctxsave_done
$I0 = can $P0, "ctxsave"
unless $I0 goto ctxsave_done
$P0."ctxsave"()
ctxsave_done:
nqp_get_sc_object $P100, "34A9D2F61B0C3C199AAABB52098C4E8FB2613D76", 5
nqp_get_sc_object $P101, "34A9D2F61B0C3C199AAABB52098C4E8FB2613D76", 4
$P102 = "&print"($P101)
.return ($P102)
.end
.HLL "perl6"
.namespace []
.sub "" :load :init :subid("post13") :outer("10_1346164754.25")
.annotate 'file', "-e"
.annotate 'line', 1
.const 'Sub' $P1003 = "10_1346164754.25"
.local pmc block
set block, $P1003
load_bytecode "ModuleLoader.pbc"
get_root_namespace $P101
set $P103, $P101["nqp"]
set $P104, $P103["ModuleLoader"]
set $P105, $P104[1]
$P105."load_module"("Perl6::ModuleLoader")
.const '' $P1013 = "11_1346164754.25"
get_hll_global $P101, "ModuleLoader"
$P103 = $P101."load_setting"("CORE")
$P1013."set_outer_ctx"($P103)
.const 'LexInfo' $P1014 = "10_1346164754.25"
nqp_get_sc_object $P101, "34A9D2F61B0C3C199AAABB52098C4E8FB2613D76", 2
$P1014."set_static_lexpad"($P101)
.const '' $P1015 = "10_1346164754.25"
nqp_get_sc_object $P101, "34A9D2F61B0C3C199AAABB52098C4E8FB2613D76", 3
nqp_get_sc_object $P103, "0998FDF7BD0AE8D092279D9A27E6EA757967AA3E-1343504980.937", 20
repr_bind_attr_obj $P101, $P103, "$!do", 0, $P1015
.const '' $P1016 = "10_1346164754.25"
nqp_get_sc_object $P104, "34A9D2F61B0C3C199AAABB52098C4E8FB2613D76", 3
perl6_associate_sub_code_object $P1016, $P104
nqp_get_sc_object $P101, "34A9D2F61B0C3C199AAABB52098C4E8FB2613D76", 0
set_hll_global "GLOBAL", $P101
.end
.HLL "perl6"
.namespace []
.sub "_block1017" :load :anon :subid("12_1346164754.25")
.annotate 'file', "-e"
.annotate 'line', 1
.const '' $P1019 = "11_1346164754.25"
$P104 = $P1019()
.return ($P104)
.end
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment