/*
* (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
*
- * $Id: setBuffering.c,v 1.6 1999/11/25 16:54:15 simonmar Exp $
+ * $Id: setBuffering.c,v 1.8 2000/04/14 16:19:43 rrt Exp $
*
* hSetBuffering Runtime Support
*/
#define SB_BB (-2)
StgInt
-setBuffering(ptr, size)
-StgForeignPtr ptr;
-StgInt size;
+setBuffering(StgForeignPtr ptr, StgInt size)
{
IOFileObject* fo = (IOFileObject*)ptr;
int flags, rc=0;
fo->buf = malloc(size*sizeof(char));
if (fo->buf == NULL) {
return -1;
- }
- fo->bufSize = size;
+ }
}
+ fo->bufSize = size;
#ifndef mingw32_TARGET_OS
if (isaterm) {