diff options
author | 2009-06-23 15:56:04 -0400 | |
---|---|---|
committer | 2009-06-23 15:56:04 -0400 | |
commit | 32b2d196fc02ca4f9f87574e6da1ffa6c1ea12ab (patch) | |
tree | 5c08087fd98403edb3500ac4399ddece25c667ad /src/compiler.sml | |
parent | 1109a4e1c8b10a8f524c1406a4db98eff55b435c (diff) |
Initial implementation of protocols in Settings
Diffstat (limited to 'src/compiler.sml')
-rw-r--r-- | src/compiler.sml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index c7c2f65e..6126a1a2 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -883,14 +883,13 @@ val toSqlify = transform sqlify "sqlify" o toMono_opt2 fun compileC {cname, oname, ename, libs, profile, debug, link = link'} = let + val proto = Settings.currentProtocol () val urweb_o = clibFile "urweb.o" - val request_o = clibFile "request.o" - val driver_o = clibFile "driver.o" val compile = "gcc " ^ Config.gccArgs ^ " -Wstrict-prototypes -Werror -O3 -I " ^ Config.includ ^ " -c " ^ cname ^ " -o " ^ oname val link = "gcc -Werror -O3 -lm -lmhash -pthread " ^ libs ^ " " ^ urweb_o ^ " " ^ oname - ^ " " ^ request_o ^ " " ^ driver_o ^ " -o " ^ ename + ^ " " ^ #link proto ^ " -o " ^ ename val (compile, link) = if profile then |