Mercurial > urweb
diff src/compiler.sml @ 853:19fdeef40ada
Factor out common request functionality, in preparation for supporting different protocols
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Tue, 23 Jun 2009 14:05:12 -0400 |
| parents | 74e9e7642f08 |
| children | 28e42b22424d |
line wrap: on
line diff
--- a/src/compiler.sml Tue Jun 23 12:53:47 2009 -0400 +++ b/src/compiler.sml Tue Jun 23 14:05:12 2009 -0400 @@ -884,11 +884,13 @@ fun compileC {cname, oname, ename, libs, profile, debug, link = link'} = let 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 ^ " " ^ driver_o ^ " -o " ^ ename + val link = "gcc -Werror -O3 -lm -lmhash -pthread " ^ libs ^ " " ^ urweb_o ^ " " ^ oname + ^ " " ^ request_o ^ " " ^ driver_o ^ " -o " ^ ename val (compile, link) = if profile then