Changes between Initial Version and Version 1 of Ticket #1027

Show
Ignore:
Timestamp:
09/21/09 00:34:10 (12 years ago)
Author:
coke
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • Ticket #1027 – description

    initial v1  
    55{{{ 
    66.sub main :main 
    7   push_eh handler 
    8     test() 
    9   pop_eh 
    10   ## NB: This makes sure the sub call PC is sufficiently 
    11   ## different from the exception handler PC. 
    12   print "foo\n" 
    13   print "bar\n" 
    14   .return () 
     7push_eh handler 
     8test() 
     9## NB: This makes sure the sub call PC is sufficiently 
     10## different from the exception handler PC. 
     11print "foo\n" 
     12print "bar\n" 
     13.return () 
    1514handler: 
    16   pop_eh 
    17   .local pmc exception 
    18   .local string message 
    19   .get_results (exception, message) 
    20   print "Error: " 
    21   print message 
     15.local pmc exception 
     16.local string message 
     17.get_results (exception, message) 
     18print "Error: " 
     19print message 
    2220.end 
    2321 
    2422.sub test 
    25   ## Throw an exception. 
    26   $P0 = new 'Exception' 
    27   $P0 = 'oops' 
    28   throw $P0 
     23## Throw an exception. 
     24$P0 = new 'Exception' 
     25$P0 = 'oops' 
     26throw $P0 
    2927.end 
    3028}}}