From 2e5bd1b547ea9910961cb3bd235a1b4688c629ad Mon Sep 17 00:00:00 2001 From: bringert Date: Thu, 2 Dec 2004 16:13:16 +0000 Subject: Made GFC parser strict. Generated GFC lexer with alex -g. In total, this drops the memory residency after loading a large gfc file by about 40%. --- src/GF/Canon/ParGFC.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/GF/Canon/ParGFC.hs') diff --git a/src/GF/Canon/ParGFC.hs b/src/GF/Canon/ParGFC.hs index a88f17ed9..ed3bab271 100644 --- a/src/GF/Canon/ParGFC.hs +++ b/src/GF/Canon/ParGFC.hs @@ -1739,7 +1739,7 @@ happyReturn1 = \a tks -> (returnM) a pCanon tks = happyThen (happyParse 0# tks) (\x -> happyReturn (happyOut7 x)) -happySeq = happyDontSeq +happySeq = happyDoSeq -- H returnM :: a -> Err a returnM = return @@ -1753,7 +1753,7 @@ happyError ts = myLexer = tokens {-# LINE 1 "GenericTemplate.hs" #-} --- $Id: ParGFC.hs,v 1.4 2004/09/23 15:41:45 aarne Exp $ +-- $Id: ParGFC.hs,v 1.5 2004/12/02 17:13:17 bringert Exp $ -- cgit v1.2.3