tests repaired; serious typo in the allocator fixed; fixes #32

This commit is contained in:
Araq 2011-07-22 23:58:19 +02:00
commit 246b8d18a1
9 changed files with 380 additions and 324 deletions

File diff suppressed because it is too large Load diff

View file

@ -561,7 +561,7 @@ proc alloc(allocator: var TMemRegion, size: int): pointer =
result = cast[pointer](cast[TAddress](result) +% sizeof(TFreeCell)) result = cast[pointer](cast[TAddress](result) +% sizeof(TFreeCell))
proc alloc0(allocator: var TMemRegion, size: int): pointer = proc alloc0(allocator: var TMemRegion, size: int): pointer =
result = alloc(size) result = alloc(allocator, size)
zeroMem(result, size) zeroMem(result, size)
proc dealloc(allocator: var TMemRegion, p: pointer) = proc dealloc(allocator: var TMemRegion, p: pointer) =

View file

@ -4501,3 +4501,7 @@ proc G_TYPE_VALUE_ARRAY*(): GType =
proc G_TYPE_GSTRING*(): GType = proc G_TYPE_GSTRING*(): GType =
result = g_gstring_get_type() result = g_gstring_get_type()
proc g_thread_init*(vtable: pointer) {.
cdecl, dynlib: gobjectlib, importc: "g_thread_init".}

View file

@ -16872,6 +16872,9 @@ proc set_do_overwrite_confirmation*(chooser: PFileChooser,
proc get_realized*(w: PWidget): gboolean {.cdecl, dynlib: lib, proc get_realized*(w: PWidget): gboolean {.cdecl, dynlib: lib,
importc: "gtk_widget_get_realized".} importc: "gtk_widget_get_realized".}
proc set_skip_taskbar_hint*(window: PWindow, setting: gboolean){.cdecl,
dynlib: lib, importc: "gtk_window_set_skip_taskbar_hint".}
proc nimrod_init*() = proc nimrod_init*() =
var var
cmdLine{.importc: "cmdLine".}: array[0..255, cstring] cmdLine{.importc: "cmdLine".}: array[0..255, cstring]

View file

@ -6,7 +6,7 @@ proc walkDirTree(root: string) =
for k, f in walkDir(root): for k, f in walkDir(root):
case k case k
of pcFile, pcLinkToFile: echo(f) of pcFile, pcLinkToFile: echo(f)
of pcDirectory: walkDirTree(f) of pcDir: walkDirTree(f)
of pcLinkToDirectory: nil of pcLinkToDir: nil
walkDirTree(".") walkDirTree(".")

View file

@ -3,7 +3,7 @@ import os
proc rec_dir(dir: string): seq[string] = proc rec_dir(dir: string): seq[string] =
result = @[] result = @[]
for kind, path in walk_dir(dir): for kind, path in walk_dir(dir):
if kind == pcDirectory: if kind == pcDir:
add(result, rec_dir(path)) add(result, rec_dir(path))
else: else:
add(result, path) add(result, path)

View file

@ -7,7 +7,7 @@ proc main(filter: string) =
for filename in walkFiles(filter): for filename in walkFiles(filter):
writeln(stdout, filename) writeln(stdout, filename)
for key, val in iterOverEnvironment(): for key, val in envPairs():
writeln(stdout, key & '=' & val) writeln(stdout, key & '=' & val)
main("*.nim") main("*.nim")

View file

@ -2,7 +2,7 @@ discard """
file: "txmlgen.nim" file: "txmlgen.nim"
output: "<h1><a href=\"http://force7.de/nimrod\">Nimrod</a></h1>" output: "<h1><a href=\"http://force7.de/nimrod\">Nimrod</a></h1>"
""" """
import xmlgen import htmlgen
var nim = "Nimrod" var nim = "Nimrod"
echo h1(a(href="http://force7.de/nimrod", nim)) echo h1(a(href="http://force7.de/nimrod", nim))

View file

@ -32,7 +32,7 @@ srcdoc: "pure/complex;pure/times;pure/osproc;pure/pegs;pure/dynlib"
srcdoc: "pure/parseopt;pure/hashes;pure/strtabs;pure/lexbase" srcdoc: "pure/parseopt;pure/hashes;pure/strtabs;pure/lexbase"
srcdoc: "pure/parsecfg;pure/parsexml;pure/parsecsv;pure/parsesql" srcdoc: "pure/parsecfg;pure/parsexml;pure/parsecsv;pure/parsesql"
srcdoc: "pure/streams;pure/terminal;pure/cgi;impure/web;pure/unicode" srcdoc: "pure/streams;pure/terminal;pure/cgi;impure/web;pure/unicode"
srcdoc: "impure/zipfiles;pure/xmlgen;pure/parseutils;pure/browsers" srcdoc: "impure/zipfiles;pure/htmlgen;pure/parseutils;pure/browsers"
srcdoc: "impure/db_postgres;impure/db_mysql;impure/db_sqlite" srcdoc: "impure/db_postgres;impure/db_mysql;impure/db_sqlite"
srcdoc: "pure/httpserver;pure/httpclient;pure/smtp;impure/ssl" srcdoc: "pure/httpserver;pure/httpclient;pure/smtp;impure/ssl"
srcdoc: "pure/ropes;pure/unidecode/unidecode;pure/xmldom;pure/xmldomparser" srcdoc: "pure/ropes;pure/unidecode/unidecode;pure/xmldom;pure/xmldomparser"