renumber exceptions since Parrot lost one
[kakapo:kakapo.git] / src / Internals / kakapo_top.pir_tmpl
1 .namespace []
2
3 .loadlib 'debug_ops'
4 .loadlib 'io_ops'
5 .loadlib 'math_ops'
6
7 .include 'iglobals.pasm'
8 .include 'interpinfo.pasm'
9 .include 'sysinfo.pasm'
10
11 # By virtue of appearing first in the library, this function runs before all other :init or :load
12 # subs. Call one of the Kakapo _pre_initload hooks to set up those modules that absolutely
13 # must be done first.
14
15 .sub '_kakapo_top_pre_initload' :load :init
16
17         $P0 = get_hll_global ['Kakapo'], '_pre_initload'
18         unless null $P0 goto call_sub
19
20         die "Could not locate Kakapo::_pre_initload. Is your library file corrupted?"
21
22 call_sub:
23         $P0()
24 .end