Changeset 5c8eae0 in git


Ignore:
Timestamp:
Mar 16, 1998, 5:21:55 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '4188d308699580d975efd0f6cca8dcb41c396f70')
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:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/iplib.cc

    rf92fa13 r5c8eae0  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iplib.cc,v 1.11 1998-03-06 11:50:37 krueger Exp $ */
     4/* $Id: iplib.cc,v 1.12 1998-03-16 16:21:55 Singular Exp $ */
    55/*
    66* ABSTRACT: interpreter: LIB and help
     
    2323
    2424procinfo *iiInitSingularProcinfo(procinfo *pi, char *libname, char *procname,
    25                                 int line, long pos, BOOLEAN pstatic=FALSE);
     25                                int line, long pos, BOOLEAN pstatic=FALSE);
    2626char *iiConvName(char *p);
    2727#ifdef HAVE_LIBPARSER
     
    249249  si_echo=old_echo;
    250250  //Print("PEnd <<%s>>\n",IDID(pn));
    251  
     251
    252252  return err;
    253253}
     
    498498  if(yylp_errno) {
    499499    Werror("Library %s: ERROR occured: in line %d, %d.", newlib, yylplineno,
    500         current_pos(0));
     500        current_pos(0));
    501501    Werror(yylp_errlist[yylp_errno], yylplineno);
    502502    Werror("Cannot load library,... aborting.");
     
    505505    FreeL((ADDRESS)newlib);
    506506    return TRUE;
    507   } 
     507  }
    508508  reinit_yylp();
    509509  fclose( yylpin );
     
    511511    libstackv ls;
    512512    for(ls = library_stack; (ls != NULL) && (ls != ls_start); ) {
    513       if(ls->to_be_done) { 
    514         //Print("// Processing id %d LIB:%s\n", ls->cnt, ls->get());
    515         ls->to_be_done=FALSE;
    516         iiLibCmd(ls->get());
    517         ls = ls->pop(newlib);
    518         //Print("Done\n");
     513      if(ls->to_be_done) {
     514        //Print("// Processing id %d LIB:%s\n", ls->cnt, ls->get());
     515        ls->to_be_done=FALSE;
     516        iiLibCmd(ls->get());
     517        ls = ls->pop(newlib);
     518        //Print("Done\n");
    519519      }
    520520    }
     
    597597#if 0
    598598          if(strcmp(proc, "_init")==0)
    599           {
     599          {
    600600            char *p =  iiConvName(newlib);
    601601            Print("Init found:%s;\n", p);
     
    639639        {
    640640          if(inBlock==IN_HEADER)
    641           {
     641          {
    642642            IDPROC(h)->data.s.body_start = pos;
    643643            IDPROC(h)->data.s.body_lineno = lines-offset;
     
    680680
    681681procinfo *iiInitSingularProcinfo(procinfov pi, char *libname, char *procname,
    682                                  int line, long pos, BOOLEAN pstatic=FALSE)
     682                                 int line, long pos, BOOLEAN pstatic)
    683683{
    684684  pi->libname = mstrdup(libname);
     
    784784      if(this != NULL) ls->cnt = this->cnt+1; else ls->cnt = 0;
    785785      library_stack = ls;
    786     } 
     786    }
    787787  }
    788788}
Note: See TracChangeset for help on using the changeset viewer.