Ticket #1078: never_ending_exception.pir

File never_ending_exception.pir, 340 bytes (added by dukeleto, 5 years ago)

Code that puts parrot into an infinite loop

Line 
1# Copyright (C) 2006-2009, Parrot Foundation.
2# $Id$
3
4.sub 'main' :main
5    .include 'test_more.pir'
6    $P0 = new 'ExceptionHandler'
7    set_addr $P0, _handler
8    push_eh $P0
9    throw $P0
10_handler:
11    getattribute $P5, $P0, 'foo'
12.end
13
14# Local Variables:
15#   mode: pir
16#   fill-column: 100
17# End:
18# vim: expandtab shiftwidth=4 ft=pir:
19