diff options
Diffstat (limited to 'tests/accept/compile/tarrindx.nim')
| -rw-r--r-- | tests/accept/compile/tarrindx.nim | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/accept/compile/tarrindx.nim b/tests/accept/compile/tarrindx.nim new file mode 100644 index 000000000..13919cc2c --- /dev/null +++ b/tests/accept/compile/tarrindx.nim @@ -0,0 +1,13 @@ +# test another strange bug ... (I hate this compiler; it is much too buggy!) + +proc putEnv(key, val: string) = + # XXX: we have to leak memory here, as we cannot + # free it before the program ends (says Borland's + # documentation) + var + env: ptr array[0..500000, char] + env = cast[ptr array[0..500000, char]](alloc(len(key) + len(val) + 2)) + for i in 0..len(key)-1: env[i] = key[i] + env[len(key)] = '=' + for i in 0..len(val)-1: + env[len(key)+1+i] = val[i] |