[pure-lang-svn] SF.net SVN: pure-lang: [308] pure/trunk/examples/poor.c

[<ag...@us...>]

Revision: 308
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=308&view=rev
Author:   agraef
Date:     2008-06-24 15:45:02 -0700 (Tue, 24 Jun 2008)

Log Message:
-----------
String returned by str() is malloc'ed, must free it.

Modified Paths:
--------------
    pure/trunk/examples/poor.c

Modified: pure/trunk/examples/poor.c
===================================================================
--- pure/trunk/examples/poor.c	2008-06-24 22:41:06 UTC (rev 307)
+++ pure/trunk/examples/poor.c	2008-06-24 22:45:02 UTC (rev 308)
@@ -33,8 +33,9 @@
   while (fgets(buf, sizeof(buf), stdin)) {
     pure_expr *x = eval(buf);
     if (x) {
-      printf("%s\n", str(x));
-      pure_freenew(x);
+      char *s = str(x);
+      printf("%s\n", s);
+      pure_freenew(x); free(s);
     } else if (lasterr())
       fputs(lasterr(), stderr);
     fputs("? ", stdout); fflush(stdout);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.