Mercurial > urweb
diff src/mysql.sml @ 933:6a284a3519ba
Fix some MySQL bugs
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sun, 13 Sep 2009 15:33:11 -0400 |
| parents | 034eeb099564 |
| children | 6b1d960e2616 |
line wrap: on
line diff
--- a/src/mysql.sml Sun Sep 13 13:25:09 2009 -0400 +++ b/src/mysql.sml Sun Sep 13 15:33:11 2009 -0400 @@ -1054,7 +1054,7 @@ newline, string "if (localtime_r(&arg", string (Int.toString (i + 1)), - string ", &tm) == NULL) uw_error(\"", + string ", &tms) == NULL) uw_error(ctx, FATAL, \"", string (ErrorMsg.spanToString loc), string ": error converting to MySQL time\");", newline, @@ -1073,6 +1073,8 @@ string "].buffer = &in_buffer", string (Int.toString i), string ";", + newline, + string "});", newline] end | Channel => box [string "in_buffer", @@ -1178,7 +1180,7 @@ newline, string "MYSQL_stmt *stmt = mysql_stmt_init(conn->conn);", newline, - string "if (stmt == NULL) uw_error(ctx, \"", + string "if (stmt == NULL) uw_error(ctx, FATAL, \"", string (ErrorMsg.spanToString loc), string ": can't allocate temporary prepared statement\");", newline, @@ -1333,7 +1335,7 @@ newline, string "if (localtime_r(&arg", string (Int.toString (i + 1)), - string ", &tm) == NULL) uw_error(\"", + string ", &tms) == NULL) uw_error(ctx, FATAL, \"", string (ErrorMsg.spanToString loc), string ": error converting to MySQL time\");", newline, @@ -1349,6 +1351,8 @@ string "].buffer = &in_buffer", string (Int.toString i), string ";", + newline, + string "});", newline] end | Channel => box [string "in_buffer",