[Gd-chatter] r11174 - trunk/fundev/sources/harp/gnu-outputter

[andreas at gwydiondylan.org]

Author: andreas
Date: Mon Feb 12 00:44:24 2007
New Revision: 11174

Modified:
   trunk/fundev/sources/harp/gnu-outputter/gnu-outputter.dylan
Log:
job: fd

Emit .size for function objects. This makes the dladdr() based stack walker
sort of work.


Modified: trunk/fundev/sources/harp/gnu-outputter/gnu-outputter.dylan
==============================================================================
--- trunk/fundev/sources/harp/gnu-outputter/gnu-outputter.dylan	(original)
+++ trunk/fundev/sources/harp/gnu-outputter/gnu-outputter.dylan	Mon Feb 12 00:44:24 2007
@@ -187,7 +187,11 @@
   write-element(stream, byte-for-newline);
 
   do-export(export?, outputter, name);
-  
+ 
+  write(stream, "\t.size "); write(stream, name); write(stream, ", ");
+  write(stream, integer-to-string(total-len)); 
+  write-element(stream, byte-for-newline);
+
   write(stream, name); write(stream, ":\n");
 
   let code-index = 0;