Changeset 3654 in Sophya for trunk/SophyaExt/XephemAstroLib/bdl.c

Timestamp:

Jul 16, 2009, 12:34:39 PM (16 years ago)

Author:

cmv

Message:

mise a niveau Xephem 3.7.4, cmv 16/07/2009

File:

• trunk/SophyaExt/XephemAstroLib/bdl.c (modified) (2 diffs)

trunk/SophyaExt/XephemAstroLib/bdl.c

@@ -115 +115 @@
         char *bp;
 
-        if (buf && width != (int)fread (buf, 1, width, fp)) {
-            if (ferror(fp)) strcpy (ynot, "IO error");
-            else if (feof(fp)) strcpy (ynot, "unexpected EOF");
-            else strcpy (ynot, "short file");
+        if (width > sizeof(buf)-1) {
+            sprintf (ynot, "BDL Field width %d > %d", width, (int)sizeof(buf));
+            return (-1);
+        }
+        if (width != (int)fread (buf, 1, width, fp)) {
+            if (ferror(fp)) strcpy (ynot, "BDL IO error");
+            else if (feof(fp)) strcpy (ynot, "BDL unexpected EOF");
+            else strcpy (ynot, "BDL short file");
             return (-1);
         }
@@ -232 +236 @@
 
 /* For RCS Only -- Do Not Edit */
-static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: bdl.c,v $ $Date: 2008-03-25 17:45:11 $ $Revision: 1.5 $ $Name: not supported by cvs2svn $"};
+static char *rcsid[2] = {(char *)rcsid, "@(#) $RCSfile: bdl.c,v $ $Date: 2009-07-16 10:34:36 $ $Revision: 1.6 $ $Name: not supported by cvs2svn $"};