large object fix

bmomjian · bmomjian · commit 0f356be05466 · 1998-06-16T06:53:27.000Z
diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c
@@ -7,7 +7,7 @@
  *
  *
  * IDENTIFICATION
- *	  $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.26 1998/06/16 05:50:55 momjian Exp $
+ *	  $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.27 1998/06/16 06:53:27 momjian Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -821,7 +821,7 @@ Pg_lo_read(ClientData cData, Tcl_Interp *interp, int argc, char* argv[])
 	sprintf(interp->result,"%d",nbytes);
 	return TCL_OK;
     }
-    buf = ckalloc(sizeof(len+1));
+    buf = ckalloc(len+1);
 
     nbytes = lo_read(conn,fd,buf,len);
 

Original file line number	Diff line number	Diff line change
`@@ -7,7 +7,7 @@`
`7`	`7`	`*`
`8`	`8`	`*`
`9`	`9`	`* IDENTIFICATION`
`10`		`- * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.26 1998/06/16 05:50:55 momjian Exp $`
	`10`	`+ * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.27 1998/06/16 06:53:27 momjian Exp $`
`11`	`11`	`*`
`12`	`12`	`*-------------------------------------------------------------------------`
`13`	`13`	`*/`
`@@ -821,7 +821,7 @@ Pg_lo_read(ClientData cData, Tcl_Interp interp, int argc, char argv[])`
`821`	`821`	`sprintf(interp->result,"%d",nbytes);`
`822`	`822`	`return TCL_OK;`
`823`	`823`	`}`
`824`		`- buf = ckalloc(sizeof(len+1));`
	`824`	`+ buf = ckalloc(len+1);`
`825`	`825`
`826`	`826`	`nbytes = lo_read(conn,fd,buf,len);`
`827`	`827`