Changeset 31a392 in git


Ignore:
Timestamp:
Sep 13, 2010, 12:21:06 PM (14 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38077648e7239f98078663eb941c3c979511150a')
Children:
66be3523e651b93f9a2772a25553fcc8d0bd24cd
Parents:
39225034bdb7abb20fa47cc850000a7379664506
Message:
pagelength (mostly) removed

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

Legend:

Unmodified
Added
Removed

  • Singular/ipassign.cc

    r3922503 r31a392  
    4545{
    4646  si_echo=(int)((long)(a->Data()));
    47   return FALSE;
    48 }
    49 static BOOLEAN jjPAGELENGTH(leftv res, leftv a)
    50 {
    51   pagelength=(int)((long)(a->Data()));
    5247  return FALSE;
    5348}

  • Singular/iplib.cc

    r3922503 r31a392  
    498498  {
    499499    if (currRing!=NULL)
    500     { 
     500    {
    501501      if (((iiRETURNEXPR[myynest+1].Typ()>BEGIN_RING)
    502502        && (iiRETURNEXPR[myynest+1].Typ()<END_RING))
    … …  
    788788}
    789789/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
    790 static void iiCleanProcs(idhdl root)
     790static void iiCleanProcs(idhdl &root)
    791791{
    792792  idhdl prev=NULL;
    … …  
    819819static void iiRunInit(package p)
    820820{
    821   idhdl h=p->idroot;
    822   idhdl prev=NULL;
    823   myynest++;
    824   loop
    825   {
    826     if (h==NULL) return;
    827     if (IDTYP(h)==PROC_CMD)
    828     {
    829       procinfo *pi=(procinfo*)IDDATA(h);
    830       if ((strcmp(IDID(h),"mod_init")==0)
    831       && (pi->language == LANG_SINGULAR))
    832       {
    833         //PrintS("mod_init found\n");
    834         iiMake_proc(h,p,NULL);
    835         idhdl hh=IDNEXT(h);
    836         killhdl(h);
    837         if (prev==NULL)
    838           p->idroot=hh;
    839       }
    840     }
    841     prev=h;
    842     h=IDNEXT(h);
    843   }
    844   myynest--;
     821  idhdl h=p->idroot->get("mod_init",0);
     822  if (h==NULL) return;
     823  if (IDTYP(h)==PROC_CMD)
     824  {
     825    int save=yylineno;
     826    myynest++;
     827    procinfo *pi=(procinfo*)IDDATA(h);
     828    //PrintS("mod_init found\n");
     829    iiMake_proc(h,p,NULL);
     830    myynest--;
     831    yylineno=save;
     832  }
    845833}
    846834/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
    … …  
    10461034  {
    10471035    SModulFunctions sModulFunctions;
    1048    
     1036
    10491037    package s=currPack;
    10501038    currPack=IDPACKAGE(pl);
    … …  
    10661054  load_modules_end:
    10671055  return RET;
    1068 #endif /*STATIC */ 
     1056#endif /*STATIC */
    10691057}
    10701058#endif /* HAVE_DYNAMIC_LOADING */
Note: See TracChangeset for help on using the changeset viewer.