fix failed tests due to gcsafe

This commit is contained in:
Araq
2014-08-12 10:11:58 +02:00
parent d1300de5e6
commit 4d863ebb5e
7 changed files with 55 additions and 50 deletions

View File

@@ -38,11 +38,11 @@ proc chckRangeF(x, a, b: float): float {.inline, compilerproc, gcsafe.}
proc chckNil(p: pointer) {.noinline, compilerproc, gcsafe.}
var
framePtr {.rtlThreadVar.}: PFrame
excHandler {.rtlThreadVar.}: PSafePoint
framePtr {.threadvar.}: PFrame
excHandler {.threadvar.}: PSafePoint
# list of exception handlers
# a global variable for the root of all try blocks
currException {.rtlThreadVar.}: ref E_Base
currException {.threadvar.}: ref E_Base
proc popFrame {.compilerRtl, inl.} =
framePtr = framePtr.prev