disassembler output

temp.pact

.pact pbc 0

.constants num
0 3.14
.end

.constants string
0 ascii "WhatIsThis"
1 ascii "src/temp.pir"
2 ascii "wit"
3 # null
4 ascii "parrot"
5 ascii "-"
6 ascii "file"
7 ascii "line"
8 ascii "bar"
9 ascii "main"
10 # null
11 ascii "foo"
12 ascii "baz"
13 ascii "quz"
14 ascii "hi"
15 ascii "multi"
.end

.constants pmc
0 FixedIntegerArray [ 2 ]
1 PACT;Packfile WhatIsThis
2 FixedIntegerArray [ 16 ]
3 FixedIntegerArray [ 17 ]
4 FixedIntegerArray [ 19 ]
5 FixedIntegerArray [  ]
6 Sub _sub6, sc9
7 Sub _sub7, sc11
8 FixedIntegerArray [ 1 ]
9 Sub _sub9, sc8
10 Sub _sub10, sc12
11 FixedIntegerArray [ 3 ]
12 Sub _sub12, sc13
13 Sub _sub13, sc15
.end

.sub 
_0:	newclass p0, sc0
_3:	set_returns pc0, p0
_6:	returncc
.end

.namespace sc4

.sub _sub6
.debug sc1
.annotate sc6, sc5
.annotate sc7, 1
_7:	set p1, pc1
_10:	new p5, p1
_13:	set_args pc5
_15:	set p0, pc7
_18:	invokecc p0
_20:	get_results pc5
_22:	set_args pc3, sc8
_25:	set p2, pc9
_28:	invokecc p2
_30:	get_results pc5
_32:	set_args pc2, 1
_35:	set p3, pc10
_38:	invokecc p3
_40:	get_results pc5
_42:	set_args pc4, fc0
_45:	set p4, pc12
_48:	invokecc p4
_50:	get_results pc5
_52:	set_returns pc5
_54:	returncc
.end

.sub _sub7
.debug sc1
.annotate sc6, sc5
.annotate sc7, 1
_55:	say sc11
_57:	set_returns pc5
_59:	returncc
.end

.sub _sub9
.debug sc1
.annotate sc6, sc5
.annotate sc7, 1
_60:	get_params pc8, s0
_63:	say s0
_65:	set_returns pc5
_67:	returncc
.end

.sub _sub10
.debug sc1
.annotate sc6, sc5
.annotate sc7, 1
_68:	say sc12
_70:	set_returns pc5
_72:	returncc
.end

.sub _sub12
.debug sc1
.annotate sc6, sc5
.annotate sc7, 1
_73:	get_params pc11, f0
_76:	say sc13
_78:	set_returns pc5
_80:	returncc
.end

.sub _sub13
.debug sc1
.annotate sc6, sc5
.annotate sc7, 1
_81:	get_params pc0, p0
_84:	say sc14
_86:	set_returns pc5
_88:	returncc
.end

temp.pir

.sub 'wit' :immediate
    $P0 = newclass 'WhatIsThis'
    .return ($P0)
.end

.sub 'main' :main
    .annotate 'file', '-'
    .annotate 'line', 1
    .const 'Sub' wit = 'wit'
    $P1 = new wit
    'foo'()
    'bar'('bar')
    'baz'(1)
    'quz'(3.14)
.end

.sub 'foo'
    say 'foo'
.end

.sub 'bar'
    .param string str
    say str
.end

.sub 'baz'
    say 'baz'
.end

.sub 'quz'
    .param num n
    say 'quz'
.end

.sub 'multi' :multi('WhatIsThis')
    .param pmc wit
    say 'hi'
.end