attempt to fix DLL generation

This commit is contained in:
Araq 2012-07-18 00:02:53 +02:00
commit 83deb233ee
6 changed files with 21 additions and 22 deletions

View file

@ -67,12 +67,13 @@ proc hash*(x: Pointer): THash {.inline.} =
else:
result = (cast[THash](x)) shr 3 # skip the alignment
proc hash*[T: proc](x: T): THash {.inline.} =
## efficient hashing of proc vars; closures are supported too.
when T is "closure":
result = hash(rawProc(x)) !& hash(rawEnv(x))
else:
result = hash(pointer(x))
when not defined(booting):
proc hash*[T: proc](x: T): THash {.inline.} =
## efficient hashing of proc vars; closures are supported too.
when T is "closure":
result = hash(rawProc(x)) !& hash(rawEnv(x))
else:
result = hash(pointer(x))
proc hash*(x: int): THash {.inline.} =
## efficient hashing of integers