bugfixes for semantic checking; thread implementation pushed the compiler

This commit is contained in:
Araq 2011-06-04 02:56:55 +02:00
commit 5008b44467
8 changed files with 153 additions and 125 deletions

View file

@ -118,14 +118,16 @@ when not defined(useNimRtl):
proc initReprClosure(cl: var TReprClosure) =
# Important: cellsets does not lock the heap when doing allocations! We
# have to do it here ...
when hasThreadSupport and defined(heapLock): AquireSys(HeapLock)
when hasThreadSupport and hasSharedHeap and defined(heapLock):
AcquireSys(HeapLock)
Init(cl.marked)
cl.recdepth = -1 # default is to display everything!
cl.indent = 0
proc deinitReprClosure(cl: var TReprClosure) =
Deinit(cl.marked)
when hasThreadSupport and defined(heapLock): ReleaseSys(HeapLock)
when hasThreadSupport and hasSharedHeap and defined(heapLock):
ReleaseSys(HeapLock)
proc reprBreak(result: var string, cl: TReprClosure) =
add result, "\n"