Changeset ce21e4a in git for Singular/iplib.cc

Timestamp:

Oct 11, 2005, 1:31:08 PM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

e58457487e948d2c9bb6e042ce39476badcd4b68

Parents:

6fa3af1b1ad0c52cf237ae95277efe4490be51ba

Message:

*hannes: fclose missing in iiGetLibProcBuffer


git-svn-id: file:///usr/local/Singular/svn/trunk@8705 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/iplib.cc (modified) (4 diffs)

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.117 2005-09-24 15:02:07 Singular Exp $ */
+/* $Id: iplib.cc,v 1.118 2005-10-11 11:31:08 Singular Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -197 +197 @@
     procbuflen = pi->data.s.help_end - pi->data.s.help_start;
     if (procbuflen<5)
+    {
+      fclose(fp);
       return NULL; // help part does not exist
+    }
     //Print("Help=%ld-%ld=%d\n", pi->data.s.body_start,
     //    pi->data.s.proc_start, procbuflen);
@@ -205 +208 @@
     fseek(fp, pi->data.s.help_start, SEEK_SET);
     myfread(s+head+1, procbuflen, 1, fp);
+    fclose(fp);
     s[procbuflen+head+1] = '\n';
     s[procbuflen+head+2] = '\0';
@@ -244 +248 @@
     strcpy(pi->data.s.body,argstr);
     myfread( pi->data.s.body+strlen(argstr), procbuflen, 1, fp);
+    fclose( fp );
     procbuflen+=strlen(argstr);
     omFree(argstr);
     omFree(ss);
-    fclose( fp );
     pi->data.s.body[procbuflen] = '\0';
     strcat( pi->data.s.body+procbuflen, "\n;return();\n\n" );