lib: add warning to MemoryUsage for external objects

gap-system · Jan 13, 2017 · 1cb0208 · 1cb0208
1 parent 1674aec
commit 1cb0208
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/lib/memusage.gi b/lib/memusage.gi
@@ -123,6 +123,12 @@ InstallMethod( MemoryUsage, "generic fallback method",
                 mem := mem + MemoryUsage(s);
             fi;
         od;
+    elif TNUM_OBJ_INT(o) >= FIRST_EXTERNAL_TNUM then
+        # Since we are in the fallback method, clearly there is no
+        # MemoryUsage method installed for the given object.
+        Info(InfoWarning, 1, "No MemoryUsage method installed for ",
+                             TNUM_OBJ(o)[2],
+                             ", reported usage may be too low" );
     fi;
     MU_Finalize();
     return mem;