new VM: implemented constructors and jump optimizer

This commit is contained in:
Araq
2013-08-07 01:40:08 +02:00
parent ee9aee6c00
commit aefa0da8a6
7 changed files with 187 additions and 24 deletions

View File

@@ -30,7 +30,7 @@ proc open*(z: var TZipArchive, filename: string, mode: TFileMode = fmRead): bool
var err, flags: int32
case mode
of fmRead, fmReadWriteExisting, fmAppend: flags = 0
of fmWrite:
of fmWrite:
if existsFile(filename): removeFile(filename)
flags = ZIP_CREATE or ZIP_EXCL
of fmReadWrite: flags = ZIP_CREATE