diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-09-11 10:34:47 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-11 10:34:47 -0400 |
commit | 36e6a1d1da21ec426b2072aae9bb6abf5efa201b (patch) | |
tree | 82300d4591c781586a88321c3077210e324cd783 /src/compiler.sml | |
parent | b404fdb16497e263484383464234f3ddf1d62150 (diff) |
Fix memory bounds checks; specialization of multi-argument polymorphic function works
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 aad6bdf3..b2f5fc96 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -481,8 +481,8 @@ val toSqlify = transform sqlify "sqlify" o toMono_opt2 fun compileC {cname, oname, ename} = let - 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 + val compile = "gcc -Wstrict-prototypes -Werror -O3 -I include -c " ^ cname ^ " -o " ^ oname + val link = "gcc -Werror -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" |