Fix generic forward declarations; fixes #4104; fixes #4908 (#5566)

This commit is contained in:
zah 2017-03-23 13:40:57 +02:00 • committed by Andreas Rumpf
commit be174fc3c7
5 changed files with 36 additions and 15 deletions

View file

@ -1,5 +1,6 @@
discard """
output: '''b()
720 120.0
720 120.0'''
"""
@ -16,13 +17,12 @@ proc fac[T](x: T): T =
echo fac(6), " ", fac(5.0)
when false:
# This still doesn't work...
# test recursive generic with forwarding:
proc fac2[T](x: T): T
# test recursive generic with forwarding:
proc fac2[T](x: T): T
echo fac2(6), " ", fac2(5.0)
echo fac2(6), " ", fac2(5.0)
proc fac2[T](x: T): T =
if x == 0: return 1
else: return fac2(x-1)*x
proc fac2[T](x: T): T =
if x == 0: return 1
else: return fac2(x-1)*x