swish/commit
Copied from upstream
| author | Jan Wielemaker |
|---|---|
| Fri Apr 8 10:53:03 2016 +0200 | |
| committer | Jan Wielemaker |
| Fri Apr 8 10:53:03 2016 +0200 | |
| commit | be40b7dbaaa68b8311011b8aeb82fd4664b7afba |
| tree | ffe91825f4c721b556d7ce2e34b6e426a6bc0e44 |
| parent | 513398d21dd19f2c93b9af99cb7802c8dec11b96 |
Diff style: patch stat
diff --git a/lib/swish/swish_debug.pl b/lib/swish/swish_debug.pl index da9d783..0e80797 100644 --- a/lib/swish/swish_debug.pl +++ b/lib/swish/swish_debug.pl @@ -276,7 +276,8 @@ get_stats(Wrap, Stats) :- :- if(current_predicate(mallinfo/1)). add_fordblks(Wrap, Stats0, Stats) :- ( Wrap = [true|_] - -> mallinfo(MallInfo), + -> member(G, [mallinfo(MallInfo)]), + call(G), % fool ClioPatria xref FordBlks = MallInfo.get(fordblks), b_setval(fordblks, FordBlks) ; nb_current(fordblks, FordBlks)