DLL generation of the stdlib for unix

This commit is contained in:
Andreas Rumpf 2010-08-04 07:57:51 +02:00
commit c9e011e36c
9 changed files with 101 additions and 111 deletions

View file

@ -28,15 +28,15 @@ type
of nkList: sons: seq[PCaseNode]
else: unused: seq[string]
TIdObj* = object of TObject
id*: int # unique id; use this for comparisons and not the pointers
PIdObj* = ref TIdObj
PIdent* = ref TIdent
TIdent*{.acyclic.} = object of TIdObj
s*: string
next*: PIdent # for hash-table chaining
h*: int # hash value of s
TIdObj* = object of TObject
id*: int # unique id; use this for comparisons and not the pointers
PIdObj* = ref TIdObj
PIdent* = ref TIdent
TIdent*{.acyclic.} = object of TIdObj
s*: string
next*: PIdent # for hash-table chaining
h*: int # hash value of s
var
flip: int
@ -145,8 +145,8 @@ proc buildBTree(father: var TBNode) =
setSons(father)
proc getIdent(identifier: cstring, length: int, h: int): PIdent =
new(result)
result.h = h
new(result)
result.h = h
result.s = newString(length)
proc main() =