small bugfixes; reactivated tests/compile

This commit is contained in:
Araq 2012-09-11 23:21:02 +02:00
commit d48d3d0bd1
5 changed files with 13 additions and 8 deletions

View file

@ -219,7 +219,7 @@ proc yesno(p: var TCfgParser, v: string): bool =
proc parseIniFile(c: var TConfigData) =
var
p: TCfgParser
section: string # current section
section = ""
var input = newFileStream(c.infile, fmRead)
if input != nil:
open(p, input, c.infile)