bugfix: exception handling (still not correct)

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

View File

@@ -0,0 +1,13 @@
import times, os
var e = epochTime()
var c = cpuTime()
os.sleep(1500)
e = epochTime() - e
c = cpuTime() - c
echo "epochTime: ", e, " cpuTime: ", c

0
tests/accept/compile/tdictdestruct.nim Normal file → Executable file
View File

0
tests/accept/compile/tgetstartmilsecs.nim Normal file → Executable file
View File

0
tests/accept/run/texplicitgeneric1.nim Normal file → Executable file
View File

0
tests/accept/run/texplicitgeneric2.nim Normal file → Executable file
View File

14
tests/accept/run/treraise.nim Normal file → Executable file
View File

@@ -8,10 +8,10 @@ proc genErrors(s: string) =
else:
raise newException(EsomeotherErr, "bla")
while True:
try:
genErrors("errssor!")
except ESomething:
echo("Error happened")
except:
raise
try:
genErrors("errssor!")
except ESomething:
echo("Error happened")
except:
raise

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")

0
tests/accept/run/tvariantasgn.nim Normal file → Executable file
View File

0
tests/accept/run/tvariantstack.nim Normal file → Executable file
View File

View File

@@ -0,0 +1,6 @@
try:
raise newException(EInvalidValue, "")
except EOverflow:
echo("Error caught")