cvs commit: embperl epdom.c

[richter]

richter     00/12/13 04:56:04

  Modified:    .        Tag: Embperl2c epdom.c
  Log:
  Embperl 2
  
  Revision  Changes    Path
  No                   revision
  
  
  No                   revision
  
  
  1.4.2.15  +5 -0      embperl/Attic/epdom.c
  
  Index: epdom.c
  ===================================================================
  RCS file: /home/cvs/embperl/Attic/epdom.c,v
  retrieving revision 1.4.2.14
  retrieving revision 1.4.2.15
  diff -u -r1.4.2.14 -r1.4.2.15
  --- epdom.c   2000/12/13 07:54:06     1.4.2.14
  +++ epdom.c   2000/12/13 12:56:02     1.4.2.15
  @@ -1366,6 +1366,8 @@
       xNewNode         = ArrayAdd (&pDomTree -> pLookup, 1) ;
       pDomTree -> pLookup[xNewNode]    = pNew ;
       pNew -> xNdx     = xNewNode ;
  +    pNew -> bFlags      &= ~nflgModified ;
  +    pNew -> xDomTree    = pDomTree -> xNdx ;
   
       if (pNew -> nText)
        NdxStringRefcntInc (pNew -> nText) ;
  @@ -1446,6 +1448,9 @@
       numNodes++ ;
       
       memcpy (pNew, pNode, len) ;
  +
  +    pNew -> bFlags      &= ~nflgModified ;
  +    pNew -> xDomTree    = pDomTree -> xNdx ;
   
       if (pNew -> nText)
        NdxStringRefcntInc (pNew -> nText) ;
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]