bugfix: exception handling (still not correct)

This commit is contained in:
Andreas Rumpf 2010-06-04 00:45:46 +02:00
commit c441cdb64c
18 changed files with 145 additions and 39 deletions

View file

@ -0,0 +1,16 @@
type
ESomething = object of E_Base
ESomeOtherErr = object of E_Base
proc genErrors(s: string) =
if s == "error!":
raise newException(ESomething, "Test")
else:
raise newException(EsomeotherErr, "bla")
when True:
try:
genErrors("errssor!")
except ESomething:
echo("Error happened")