jyapayne/Nim
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixes #292

Browse source
This commit is contained in:
Araq 2013-01-08 08:11:21 +01:00
commit 1bc5ff6dc9
2 changed files with 23 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
compiler/sempass2.nim
View file

@ -1,7 +1,7 @@
# #
# #
# The Nimrod Compiler # The Nimrod Compiler
# (c) Copyright 2012 Andreas Rumpf # (c) Copyright 2013 Andreas Rumpf
# #
# See the file "copying.txt", included in this # See the file "copying.txt", included in this
# distribution, for details about the copyright. # distribution, for details about the copyright.
@ -146,7 +146,10 @@ proc catches(tracked: PEffects, e: PType) =
dec L dec L
else: else:
inc i inc i
setLen(tracked.exc.sons, L) if not isNil(tracked.exc.sons):
setLen(tracked.exc.sons, L)
else:
assert L == 0
proc catchesAll(tracked: PEffects) = proc catchesAll(tracked: PEffects) =
if not isNil(tracked.exc.sons): if not isNil(tracked.exc.sons):

17
tests/compile/teffects1.nim Normal file
View file

@ -0,0 +1,17 @@
type
PMenu = ref object
PMenuItem = ref object
proc createMenuItem*(menu: PMenu, label: string,
action: proc (i: PMenuItem, p: pointer) {.cdecl.}) = nil
var s: PMenu
createMenuItem(s, "Go to definition...",
proc (i: PMenuItem, p: pointer) {.cdecl.} =
try:
echo(i.repr)
except EInvalidValue:
echo("blah")
)