tests/i/multifile-try-catch/leaf.cps


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15


GLOBAL
    DECLARE Destroyed : INTEGER
ENDGLOBAL
CLASS Guard
    Id : INTEGER
    PROCEDURE DELETE()
        OUTPUT "destroy:", Id
        Destroyed <- Destroyed + 1
    ENDPROCEDURE
ENDCLASS
PROCEDURE Raise()
    DECLARE GuardTwo : Guard
    GuardTwo.Id <- 2
    THROW
ENDPROCEDURE