debugger compiles again

This commit is contained in:
Araq 2012-09-13 00:12:14 +02:00
commit eb72c7c0a0
3 changed files with 8 additions and 4 deletions

View file

@ -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, "(")