13 lines
481 B
Nim
13 lines
481 B
Nim
# 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]
|