[pure-lang-svn] SF.net SVN: pure-lang: [71] pure/trunk/lexer.ll

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

Revision: 71
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=71&view=rev
Author:   agraef
Date:     2008-05-10 12:37:36 -0700 (Sat, 10 May 2008)

Log Message:
-----------
Fix check for small int values, plug a related memleak in the lexer.

Modified Paths:
--------------
    pure/trunk/lexer.ll

Modified: pure/trunk/lexer.ll
===================================================================
--- pure/trunk/lexer.ll	2008-05-10 19:34:15 UTC (rev 70)
+++ pure/trunk/lexer.ll	2008-05-10 19:37:36 UTC (rev 71)
@@ -594,9 +594,9 @@
   mpz_t *z = (mpz_t*)malloc(sizeof(mpz_t));
   mpz_init(*z);
   mpz_set_str(*z, yytext, 0);
-  if (mpz_fits_slong_p(*z)) {
-    long n = mpz_get_si(*z);
-    free(z);
+  if (mpz_fits_sint_p(*z)) {
+    int n = mpz_get_si(*z);
+    mpz_clear(*z); free(z);
     yylval->ival = n;
     return token::INT;
   } else {


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