1 files changed, 53 insertions, 0 deletions
diff --git a/misc/logalloc b/misc/logalloc
new file mode 100755
index 0000000..83e9dad
--- /dev/null
+++ b/misc/logalloc
@@ -0,0 +1,53 @@
+#!/usr/bin/perl
+#
+# Reads a log file, containing lines of the four types
+#    <file> <line> malloc(<number>) returns <pointer>
+#    <file> <line> strdup(<number>) returns <pointer>
+#    <file> <line> calloc(<number>*<number>) returns <pointer>
+#    <file> <line> realloc(<pointer>,<number>) returns <pointer>
+#    <file> <line> free(<pointer>)
+#
+# with optional line on the front saying
+#    null pointer is <pointer>
+#
+# and produces a list of free()s and realloc()s of wrong pointers,
+# and also of malloc()s, calloc()s and realloc()s that never get free()d.
+
+$errors=0;
+
+while (<>) {
+  $in=$out="";
+  ($file, $line, $call, $in, $out)=($1,$2,$3,"",$4)
+      if /^(\S+) (\S+) (malloc|strdup)\(\S+\) returns (\S+)$/;
+  ($file, $line, $call, $in, $out)=($1,$2,"calloc","",$5)
+      if /^(\S+) (\S+) calloc\(\S+\*\S+\) returns (\S+)$/;
+  ($file, $line, $call, $in, $out)=($1,$2,"realloc",$3,$4)
+      if /^(\S+) (\S+) realloc\((\S+),\S+\) returns (\S+)$/;
+  ($file, $line, $call, $in, $out)=($1,$2,"free",$3,"")
+      if /^(\S+) (\S+) free\((\S+)\)$/;
+  $null = $1, next if /^null pointer is (\S+)$/;
+  if ($in ne "") {
+    $bad = &null($in) ? "null" : "bad";
+    $errors=1, print "($.) $file:$line: attempt to $call() $bad pointer\n"
+      if $record{$in} eq "";
+    $record{$in}="";
+  }
+  if ($out ne "" && !&null($out)) {
+    $errors=1, print "($.) $file:$line: $call() returned already ".
+      "allocated pointer\n" if $record{$out} ne "";
+    $record{$out}="($.) $file:$line: $call()";
+  }
+}
+
+foreach $i (keys %record) {
+  $errors=1, print "$record{$i} never got freed\n"
+      if $record{$i} ne "";
+}
+
+print "no problems\n" if !$errors;
+
+# determine if a string refers to a null pointer
+sub null {
+  local ($_) = @_;
+  $null ? $_ eq $null : /^((0x)?0+|\(nil\))$/;
+}