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

bug concerning constant evaluation fixed

Browse source
This commit is contained in:
Andreas Rumpf 2009-11-26 00:32:07 +01:00
commit 196ef92c86
14 changed files with 296 additions and 245 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/system/profiler.nim
View file

@ -41,10 +41,10 @@ proc writeProfile() {.noconv.} =
var i = 0
var f: TFile
var j = 1
while openFile(f, filename & $j & ".txt"):
closeFile(f)
while open(f, filename & $j & ".txt"):
close(f)
inc(j)
if openFile(f, filename & $j & ".txt", fmWrite):
if open(f, filename & $j & ".txt", fmWrite):
var N = 0
# we have to compute the actual length of the array:
while profileData[N].procname != nil: inc(N)
@ -56,6 +56,6 @@ proc writeProfile() {.noconv.} =
write(f, ": ")
writeln(f, profileData[i].total)
inc(i)
closeFile(f)
close(f)
addQuitProc(writeProfile)