Work around a bug in the Watcom runtime library.
authorChris Hanson <org/chris-hanson/cph>
Thu, 6 Jan 2000 04:34:37 +0000 (04:34 +0000)
committerChris Hanson <org/chris-hanson/cph>
Thu, 6 Jan 2000 04:34:37 +0000 (04:34 +0000)
v7/src/microcode/option.c

index a582af0e4bc3915852656ca34bd3c86e261b2e81..c3c4ac57dd1b8c2c2c8bd3701e546c1ad3d31059 100644 (file)
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: option.c,v 1.50 2000/01/06 04:22:28 cph Exp $
+$Id: option.c,v 1.51 2000/01/06 04:34:37 cph Exp $
 
 Copyright (c) 1990-2000 Massachusetts Institute of Technology
 
@@ -1051,7 +1051,7 @@ DEFUN (read_band_header, (filename, header),
   FILE * stream = (fopen (filename, "r"));
   if (stream == 0)
     return (0);
-  if ((fread ((&header), (sizeof (SCHEME_OBJECT)), FASL_HEADER_LENGTH, stream))
+  if ((fread (header, (sizeof (SCHEME_OBJECT)), FASL_HEADER_LENGTH, stream))
       != FASL_HEADER_LENGTH)
     {
       fclose (stream);