Changeset 5c8eae0 in git

Timestamp:

Mar 16, 1998, 5:21:55 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

399efbe1493f787ca072ee4e9b85f144549f7bbc

Parents:

f92fa13cf36544466ec5258d02a47f4fcc8aa607

Message:

* hannes: fixed init bug in iiInitSingularProcinfo (iplib.cc)


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

File:

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

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.11 1998-03-06 11:50:37 krueger Exp $ */
+/* $Id: iplib.cc,v 1.12 1998-03-16 16:21:55 Singular Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -23 +23 @@
 
 procinfo *iiInitSingularProcinfo(procinfo *pi, char *libname, char *procname,
-                                 int line, long pos, BOOLEAN pstatic=FALSE);
+                                 int line, long pos, BOOLEAN pstatic=FALSE);
 char *iiConvName(char *p);
 #ifdef HAVE_LIBPARSER
@@ -249 +249 @@
   si_echo=old_echo;
   //Print("PEnd <<%s>>\n",IDID(pn));
- 
+
   return err;
 }
@@ -498 +498 @@
   if(yylp_errno) {
     Werror("Library %s: ERROR occured: in line %d, %d.", newlib, yylplineno,
-         current_pos(0));
+         current_pos(0));
     Werror(yylp_errlist[yylp_errno], yylplineno);
     Werror("Cannot load library,... aborting.");
@@ -505 +505 @@
     FreeL((ADDRESS)newlib);
     return TRUE;
-  } 
+  }
   reinit_yylp();
   fclose( yylpin );
@@ -511 +511 @@
     libstackv ls;
     for(ls = library_stack; (ls != NULL) && (ls != ls_start); ) {
-      if(ls->to_be_done) { 
-        //Print("// Processing id %d LIB:%s\n", ls->cnt, ls->get());
-        ls->to_be_done=FALSE;
-        iiLibCmd(ls->get());
-        ls = ls->pop(newlib);
-        //Print("Done\n");
+      if(ls->to_be_done) {
+        //Print("// Processing id %d LIB:%s\n", ls->cnt, ls->get());
+        ls->to_be_done=FALSE;
+        iiLibCmd(ls->get());
+        ls = ls->pop(newlib);
+        //Print("Done\n");
       }
     }
@@ -597 +597 @@
 #if 0
           if(strcmp(proc, "_init")==0)
-          {
+          {
             char *p =  iiConvName(newlib);
             Print("Init found:%s;\n", p);
@@ -639 +639 @@
         {
           if(inBlock==IN_HEADER)
-          {
+          {
             IDPROC(h)->data.s.body_start = pos;
             IDPROC(h)->data.s.body_lineno = lines-offset;
@@ -680 +680 @@
 
 procinfo *iiInitSingularProcinfo(procinfov pi, char *libname, char *procname,
-                                 int line, long pos, BOOLEAN pstatic=FALSE)
+                                 int line, long pos, BOOLEAN pstatic)
 {
   pi->libname = mstrdup(libname);
@@ -784 +784 @@
       if(this != NULL) ls->cnt = this->cnt+1; else ls->cnt = 0;
       library_stack = ls;
-    } 
+    }
   }
 }