[make jhc put some gcc annotations on certain functions
John Meacham <john@repetae.net>**20051027023434] hunk ./C/Gen.hs 300
+attributes CTypePointer {} = text "A_REGPARM" <+> text "A_MALLOC"
+attributes _ = text "A_REGPARM"
+
hunk ./C/Gen.hs 306
-prettyDecl (CFunc rt n args code) = text "static" <+> prettyType rt $$ text n <> text "(" <> prettyArgs args <> text ")" $+$
+prettyDecl (CFunc rt n args code) = text "static" <+> prettyType rt <+> attributes rt $$ text n <> text "(" <> prettyArgs args <> text ")" $+$
hunk ./C/Gen.hs 312
-prettyProto (CFunc rt n args _) = text "static" <+> prettyType rt <+> text n <> parens (prettyArgs args) <> semi
+prettyProto (CFunc rt n args _) = text "static" <+> prettyType rt <+> text n <> parens (prettyArgs args) <+> attributes rt <> semi
hunk ./data/jhc_rts.c 25
+#define A_MALLOC __attribute__ ((malloc))
hunk ./data/jhc_rts.c 31
+#define A_MALLOC
+#endif
+
+#if defined(__GNUC__) && defined(__i386__)
+#define A_REGPARM __attribute__ ((regparm(2)))
+#else
+#define A_REGPARM
hunk ./data/jhc_rts.c 43
-static void XAmain();
+static void XAmain(void) A_REGPARM;