bugfix: init of temps

This commit is contained in:
Araq
2010-08-24 00:19:16 +02:00
parent b1ca3ab7c5
commit e439c6b02e
15 changed files with 107 additions and 76 deletions

View File

@@ -7,9 +7,35 @@
# distribution, for details about the copyright.
#
when defined(gcc) or defined(llvm_gcc):
proc sync_add_and_fetch(p: var int, val: int): int {.
importc: "__sync_add_and_fetch", nodecl.}
proc sync_sub_and_fetch(p: var int, val: int): int {.
importc: "__sync_sub_and_fetch", nodecl.}
elif defined(vcc):
proc sync_add_and_fetch(p: var int, val: int): int {.
importc: "NimXadd", nodecl.}
const
isMultiThreaded* = true
maxThreads = 256
proc atomicInc(memLoc: var int, x: int): int =
when isMultiThreaded:
result = sync_add_and_fetch(memLoc, x)
else:
inc(memLoc, x)
result = memLoc
proc atomicDec(memLoc: var int, x: int): int =
when isMultiThreaded:
when defined(sync_sub_and_fetch):
result = sync_sub_and_fetch(memLoc, x)
else:
result = sync_add_and_fetch(memLoc, -x)
else:
dec(memLoc, x)
result = memLoc
type
TThread* {.final, pure.} = object