make tests green again

This commit is contained in:
Andreas Rumpf
2017-02-08 22:21:01 +01:00
parent 3caf108425
commit d23eb79849
2 changed files with 5 additions and 4 deletions

View File

@@ -17,9 +17,12 @@
const
NilLibHandle: LibHandle = nil
proc c_fwrite(buf: pointer, size, n: csize, f: File): cint {.
importc: "fwrite", header: "<stdio.h>".}
proc rawWrite(f: File, s: string) =
# we cannot throw an exception here!
discard writeBuffer(f, cstring(s), s.len)
discard c_fwrite(cstring(s), 1, s.len, f)
proc nimLoadLibraryError(path: string) =
# carefully written to avoid memory allocation:
@@ -126,7 +129,7 @@ elif defined(windows) or defined(dos):
decorated[m] = '@'
for i in countup(0, 50):
var k = i * 4
if k div 100 == 0:
if k div 100 == 0:
if k div 10 == 0:
m = m + 1
else:

View File

@@ -48,8 +48,6 @@ proc c_ferror(f: File): cint {.
importc: "ferror", header: "<stdio.h>", tags: [].}
proc c_setvbuf(f: File, buf: pointer, mode: cint, size: csize): cint {.
importc: "setvbuf", header: "<stdio.h>", tags: [].}
proc c_fwrite(buf: pointer, size, n: csize, f: File): cint {.
importc: "fwrite", header: "<stdio.h>".}
proc raiseEIO(msg: string) {.noinline, noreturn.} =
sysFatal(IOError, msg)