mirrors/Nim
1
0
Fork 0
mirror of https://github.com/nim-lang/Nim.git synced 2025-12-28 17:04:41 +00:00
Code Issues Packages Projects Releases Wiki Activity

fixes #1593

Browse Source
This commit is contained in:
Araq
2014-11-12 00:04:04 +01:00
parent aae180e26b
commit 2d43fcafe0
2 changed files with 46 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ccgexprs.nim
View File

@@ -11,6 +11,14 @@
# -------------------------- constant expressions ------------------------
proc int64Literal(i: BiggestInt): PRope =
if i > low(int64):
result = rfmt(nil, "IL64($1)", toRope(i))
else:
result = ~"(IL64(-9223372036854775807) - IL64(1))"
proc uint64Literal(i: uint64): PRope = toRope($i & "ULL")
proc intLiteral(i: BiggestInt): PRope =
if (i > low(int32)) and (i <= high(int32)):
result = toRope(i)
@@ -46,16 +54,18 @@ proc genLiteral(p: BProc, n: PNode, ty: PType): PRope =
case n.kind
of nkCharLit..nkUInt64Lit:
case skipTypes(ty, abstractVarRange).kind
of tyChar, tyInt64, tyNil:
of tyChar, tyNil:
result = intLiteral(n.intVal)
of tyInt:
if (n.intVal >= low(int32)) and (n.intVal <= high(int32)):
if n.intVal >= low(int32) and n.intVal <= high(int32):
result = int32Literal(int32(n.intVal))
else:
result = intLiteral(n.intVal)
of tyBool:
if n.intVal != 0: result = ~"NIM_TRUE"
else: result = ~"NIM_FALSE"
of tyInt64: result = int64Literal(n.intVal)
of tyUInt64: result = uint64Literal(uint64(n.intVal))
else:
result = ropef("(($1) $2)", [getTypeDesc(p.module,
skipTypes(ty, abstractVarRange)), intLiteral(n.intVal)])

34
tests/ccgbugs/tcvarargs.nim Normal file
View File

@@ -0,0 +1,34 @@
discard """
output: '''17
17
17
17
17
17
'''
"""
# bug #1593
{.emit: """
#include <stdarg.h>
void foo(int n, ...) {
NI64 k;
int i;
va_list argp;
va_start(argp, n);
for (i = 1; i <= n; i++) {
k = va_arg(argp, NI64);
printf("%lld\n", (long long)k);
}
va_end(argp);
}
""".}
proc foo(x: cint) {.importc, varargs, nodecl.}
proc main() =
const k = 17'i64
foo(6, k, k, k, k, k, k)
main()