Hi,

I think I may have found a bug. The attached file should compile fine, but
results in the error :

Reading file "Bug.hs":
Compiling          
ERROR "Bug.hs": Compiled code too complex

I am using :
Hugs 1.4 January 1998
On Unix (Solaris 7)


I have tried increasing the heap size, which has no effect.

Is there some limit that prevents the code from compiling ?

Chris.
-- Trying to load this into Hugs results in :
-- Reading file "Bugs.hs":
-- Compiling
-- ERROR "Bug.hs": Compiled code too Complex
--
-- Removeing some of the cases (different number, depending
-- on which ones are chossen) seems to make it compile OK.

data AST =
        List [AST] |
        Error String |
        Null |
        LitInt Int |
        LitFloat Float |
        LitString String |
        Ident String |
        IdentSy String |
        Blank String |
        DocText String |
        Add AST AST |
        And [AST] |
        Assert AST |
        Declare AST AST |
        Apply [AST] |
        Assign AST AST |
        Break AST |
        Builtin AST |
        Do AST |
        Documented AST AST |
        CoerceTo AST AST |
        Collect AST [AST] |
        Comma [AST] |
        Default AST |
        Define AST AST |
        DDefine AST |
        Except AST AST |
        Exit AST AST |
        Export AST AST AST |
        Extend AST |
        Fix AST |
        Fluid [AST] |
        For AST AST AST |
        Foreign AST AST |
        Free [AST] |
        Generate AST AST |
        Goto AST |
        Has AST AST |
        Hide AST |
        Hook AST |
        If AST AST AST |
        Import AST AST |
        Inline AST AST |
        Iterate AST |
        Label AST AST |
        Lambda AST AST AST |
        Let AST AST |
        Local [AST] |
        Macro AST |
        MDefine AST AST |
        MLambda AST AST |
        Never |
        Not AST |
        ABNothing |
        Or [AST] |
        Paren AST |
        PLambda AST AST AST |
        PretendTo AST AST |
        Qualify AST AST |
        Raise AST |
        Repeat AST [AST] |
        RestrictTo AST AST |
        RetractTo AST AST |
        Return AST |
        Sequence [AST] |
        Test AST |
        Try AST AST AST AST |
        Where AST AST |
        While AST |
        With AST AST |
        Yield AST
        deriving Eq

Reply via email to