diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-09-07 13:29:01 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-07 13:29:01 -0400 |
| commit | 9f8b222f6667f4e7dec2105ea4f5c2abdfd29dc9 (patch) | |
| tree | 90104da9ab622189caffe5a38bddcb8bfe797233 /src/compiler.sml | |
| parent | 4a627a550cb54c18cb16cc0ad852e6a0bbc59c31 (diff) | |
pquery working with all four types of columns
Diffstat (limited to 'src/compiler.sml')
| -rw-r--r-- | src/compiler.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 09080809..1578da71 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -467,8 +467,8 @@ val toSqlify = transform sqlify "sqlify" o toMono_opt2 fun compileC {cname, oname, ename} = let - val compile = "gcc -s -O3 -I include -c " ^ cname ^ " -o " ^ oname - val link = "gcc -s -O3 -pthread -lpq clib/urweb.o " ^ oname ^ " clib/driver.o -o " ^ ename + val compile = "gcc -Wstrict-prototypes -Werror -s -O3 -I include -c " ^ cname ^ " -o " ^ oname + val link = "gcc -Werror -s -O3 -pthread -lpq clib/urweb.o " ^ oname ^ " clib/driver.o -o " ^ ename in if not (OS.Process.isSuccess (OS.Process.system compile)) then print "C compilation failed\n" |