diff options
Diffstat (limited to 'lib/system/debugger.nim')
-rwxr-xr-x | lib/system/debugger.nim | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/system/debugger.nim b/lib/system/debugger.nim index ca60b0405..37995d919 100755 --- a/lib/system/debugger.nim +++ b/lib/system/debugger.nim @@ -99,10 +99,13 @@ proc findBreakpoint(name: TStaticStr): int = if name == dbgBP[i].name: return i return -1 +proc write(f: TFile, s: TStaticStr) = + write(f, cstring(s.data)) + proc ListBreakPoints() = write(stdout, "*** endb| Breakpoints:\n") for i in 0 .. dbgBPlen-1: - write(stdout, dbgBP[i].name.data) + write(stdout, dbgBP[i].name) write(stdout, ": ") write(stdout, abs(dbgBP[i].low)) write(stdout, "..") @@ -508,7 +511,7 @@ proc checkForBreakpoint() = let i = dbgBreakpointReached(framePtr.line) if i >= 0: write(stdout, "*** endb| reached ") - write(stdout, dbgBP[i].name.data) + write(stdout, dbgBP[i].name) write(stdout, " in ") write(stdout, framePtr.filename) write(stdout, "(") |