Changeset 30650 in project


Ignore:
Timestamp:
04/05/14 19:59:31 (7 years ago)
Author:
sjamaan
Message:

postgresql: fix strange brainfart

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/postgresql/trunk/postgresql.scm

    r30640 r30650  
    11221122  (let-location ((err bool))
    11231123    (let* ((strlen (string-length str))
    1124            (buflen (make-string (add1 (* strlen 2))))
    1125            (buffer buflen)
     1124           (buflen (add1 (* strlen 2)))
     1125           (buffer (make-string buflen))
    11261126           (size (%escape-string-conn (pg-connection-ptr conn) buffer str strlen (location err))))
    11271127      (cond (err (postgresql-error 'internal 'escape-string
Note: See TracChangeset for help on using the changeset viewer.