Changeset 12678 for src/Pugs/Eval

Timestamp:

08/25/06 03:32:36 (2 years ago)

Author:

audreyt

Message:

* Eval.Var: Simple array/hash variables as function arguments

should gets their size in lvalue, not rvalue, context, such
that huge array/hash sizes won't cause heap overflow.
Reported by: cmarcelo++

Files:

• src/Pugs/Eval/Var.hs (modified) (1 diff)

src/Pugs/Eval/Var.hs

@@ -284 +284 @@
     argSlurpLen (Val val) = valSlurpLen val
     argSlurpLen (Var name) = do
-        val <- evalExp (Var name)
+        val <- enterLValue $ evalExp (Var name)
         valSlurpLen val
     argSlurpLen (Syn "," list) =  return $ length list