- -- These are names of bindings usually generated by the compiler. For some
- -- reason these are not marked as system, probably because the name itself
- -- is not made up by the compiler, just this particular binding is.
- compiler_names = ["fromInteger"]
- builtin_names = [ "!", "replace", "head", "last", "tail", "take", "drop"
- , "select", "+>", "<+", "++", "map", "zipWith", "foldl"
- , "foldr", "zip", "unzip", "shiftl", "shiftr", "rotl"
- , "rotr", "concat", "reverse", "iteraten", "iterate"
- , "generaten", "generate", "empty", "singleton", "copyn"
- , "copy", "lengthT", "null", "hwxor", "hwand", "hwor"
- , "hwnot", "not", "+", "*", "-", "fromSizedWord"
- , "resizeWord", "resizeInt", "fst", "snd", "blockRAM"
- , "split", "==", "/="
- ]
-
- -- , (ltId , (2, genOperator2 (AST.:<:) ) )
- -- , (lteqId , (2, genOperator2 (AST.:<=:) ) )
- -- , (gtId , (2, genOperator2 (AST.:>:) ) )
- -- , (gteqId , (2, genOperator2 (AST.:>=:) ) )
- -- , (boolOrId , (2, genOperator2 AST.Or ) )
- -- , (boolAndId , (2, genOperator2 AST.And ) )
- -- , (negateId , (1, genNegation ) )
- -- , (sizedIntId , (1, genSizedInt ) )
- -- , (smallIntegerId , (1, genFromInteger ) )