diff options
Diffstat (limited to 'src/runtime/rt.zc')
| -rw-r--r-- | src/runtime/rt.zc | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/runtime/rt.zc b/src/runtime/rt.zc index 099ca2e..3d448b0 100644 --- a/src/runtime/rt.zc +++ b/src/runtime/rt.zc @@ -1627,7 +1627,9 @@ int memreport() { if (site_p[i]) { p = site_p[i] ^ MAGIC; if (isobj(p)) { - put_s("leak: line "); put_n(site_line[i]); put_s(" "); put_n(paylen(p)); put_s(" words\n"); // n, the words new asked for + put_s("leak: line "); put_n(site_line[i]); put_s(" "); put_n(paylen(p)); put_s(" words"); // n, the words new asked for + if ((p[-4] & (F_HASDROP | F_DROPPED)) == F_HASDROP) put_s(" (drop)"); // a leaked resource: its drop never ran + put_c(10); n++; } } |