Ticket #3921: Broken_hsc_make.c

File Broken_hsc_make.c, 714 bytes (added by guest, 4 years ago)

The generated file

Line 
1#include "/usr/lib/ghc-6.12.1/template-hsc.h"
2#line 3 "Broken.hsc"
3#define hsc_alignment(t ) printf ( "%lu", (unsigned long)offsetof(struct {char x__; t (y__); }, y__)
4);
5
6int main (int argc, char *argv [])
7{
8#if __GLASGOW_HASKELL__ && __GLASGOW_HASKELL__ < 409
9    printf ("{-# OPTIONS -optc-D__GLASGOW_HASKELL__=%d #-}\n", __GLASGOW_HASKELL__);
10#endif
11    hsc_line (1, "Broken.hsc");
12    fputs ("module Main where\r\n"
13           "", stdout);
14    hsc_line (2, "Broken.hsc");
15    fputs ("\r\n"
16           "", stdout);
17    fputs ("\n"
18           "", stdout);
19    hsc_line (4, "Broken.hsc");
20    fputs ("\r\n"
21           "main :: IO ()\r\n"
22           "main = return ()\r\n"
23           "", stdout);
24    return 0;
25}