[pure-lang-svn] SF.net SVN: pure-lang:[552] pure/trunk

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

Revision: 552
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=552&view=rev
Author:   agraef
Date:     2008-08-20 19:00:20 +0000 (Wed, 20 Aug 2008)

Log Message:
-----------
Bugfix in updates of temp levels of constants and global variables.

Modified Paths:
--------------
    pure/trunk/ChangeLog
    pure/trunk/expr.cc

Modified: pure/trunk/ChangeLog
===================================================================
--- pure/trunk/ChangeLog	2008-08-20 18:58:40 UTC (rev 551)
+++ pure/trunk/ChangeLog	2008-08-20 19:00:20 UTC (rev 552)
@@ -1,3 +1,9 @@
+2008-08-20  Albert Graef  <Dr....@t-...>
+
+	* expr.cc (env::operator=): Bugfix: Only set temporary level of a
+	constant or free variable if it wasn't defined previously at a
+	lower level.
+
 2008-08-19  Albert Graef  <Dr....@t-...>
 
 	* parser.yy, lexer.ll, printer.cc, etc.: Renamed the 'def' keyword

Modified: pure/trunk/expr.cc
===================================================================
--- pure/trunk/expr.cc	2008-08-20 18:58:40 UTC (rev 551)
+++ pure/trunk/expr.cc	2008-08-20 19:00:20 UTC (rev 552)
@@ -307,8 +307,9 @@
     if (m) delete m;
     break;
   }
+  if ((t != cvar && t != fvar) || temp > e.temp)
+    temp = e.temp;
   t = e.t;
-  temp = e.temp;
   switch (t) {
   case none:
     break;


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