Mercurial > urweb
comparison src/postgres.sml @ 1144:bafb6a5a52a9
A litter more cautious about NULL applications; plug a memory leak in some Postgres functions
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 31 Jan 2010 15:28:50 -0500 |
parents | db52c32dbe42 |
children | 134da5110bf7 |
comparison
equal
deleted
inserted
replaced
1143:a9ba22d551f0 | 1144:bafb6a5a52a9 |
---|---|
409 newline, | 409 newline, |
410 string "return 1;", | 410 string "return 1;", |
411 newline], | 411 newline], |
412 string "}", | 412 string "}", |
413 newline, | 413 newline, |
414 string "PQclear(res);", | |
415 newline, | |
414 string "return 0;", | 416 string "return 0;", |
415 newline, | 417 newline, |
416 string "}", | 418 string "}", |
417 newline, | 419 newline, |
418 newline, | 420 newline, |
432 newline, | 434 newline, |
433 string "return 1;", | 435 string "return 1;", |
434 newline], | 436 newline], |
435 string "}", | 437 string "}", |
436 newline, | 438 newline, |
439 string "PQclear(res);", | |
440 newline, | |
437 string "return 0;", | 441 string "return 0;", |
438 newline, | 442 newline, |
439 string "}", | 443 string "}", |
440 newline, | 444 newline, |
441 newline, | 445 newline, |
454 box [string "PQclear(res);", | 458 box [string "PQclear(res);", |
455 newline, | 459 newline, |
456 string "return 1;", | 460 string "return 1;", |
457 newline], | 461 newline], |
458 string "}", | 462 string "}", |
463 newline, | |
464 string "PQclear(res);", | |
459 newline, | 465 newline, |
460 string "return 0;", | 466 string "return 0;", |
461 newline, | 467 newline, |
462 string "}", | 468 string "}", |
463 | 469 |