Used Bytes_val instead of String_val

mmottl · mmottl · commit 90f9fd0bd65f · 2020-07-30T14:23:22.000-04:00
diff --git a/src/postgresql_stubs.c b/src/postgresql_stubs.c
@@ -1329,8 +1329,7 @@ CAMLprim value PQgetline_stub_bc(
 CAMLprim intnat PQgetlineAsync_stub(
   value v_conn, value v_buf, intnat pos, intnat len)
 {
-  return PQgetlineAsync(
-    get_conn(v_conn), (char *) String_val(v_buf) + pos, len);
+  return PQgetlineAsync(get_conn(v_conn), (char *) Bytes_val(v_buf) + pos, len);
 }
 
 CAMLprim value PQgetlineAsync_stub_bc(

Original file line number	Diff line number	Diff line change
`@@ -1329,8 +1329,7 @@ CAMLprim value PQgetline_stub_bc(`
`1329`	`1329`	`CAMLprim intnat PQgetlineAsync_stub(`
`1330`	`1330`	`value v_conn, value v_buf, intnat pos, intnat len)`
`1331`	`1331`	`{`
`1332`		`- return PQgetlineAsync(`
`1333`		`- get_conn(v_conn), (char *) String_val(v_buf) + pos, len);`
	`1332`	`+ return PQgetlineAsync(get_conn(v_conn), (char *) Bytes_val(v_buf) + pos, len);`
`1334`	`1333`	`}`
`1335`	`1334`
`1336`	`1335`	`CAMLprim value PQgetlineAsync_stub_bc(`