cvs commit: embperl/driver epxalan.cpp

[richter]

richter     02/03/05 03:30:38

  Modified:    driver   Tag: Embperl2c epxalan.cpp
  Log:
  sun fixes
  
  Revision  Changes    Path
  No                   revision
  
  
  No                   revision
  
  
  1.1.2.23  +6 -2      embperl/driver/Attic/epxalan.cpp
  
  Index: epxalan.cpp
  ===================================================================
  RCS file: /home/cvs/embperl/driver/Attic/epxalan.cpp,v
  retrieving revision 1.1.2.22
  retrieving revision 1.1.2.23
  diff -u -r1.1.2.22 -r1.1.2.23
  --- epxalan.cpp       5 Mar 2002 11:20:11 -0000       1.1.2.22
  +++ epxalan.cpp       5 Mar 2002 11:30:37 -0000       1.1.2.23
  @@ -10,7 +10,7 @@
   #   IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
   #   WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
   #
  -#   $Id: epxalan.cpp,v 1.1.2.22 2002/03/05 11:20:11 richter Exp $
  +#   $Id: epxalan.cpp,v 1.1.2.23 2002/03/05 11:30:37 richter Exp $
   #
   
###################################################################################*/
   
  @@ -888,7 +888,7 @@
       ((tProviderXalan *)pProvider) -> pParamHV = pParamHV ;
       if (pParamHV)
           {
  -        SV * pSV = ((tProviderXalan *)pProvider) -> pParamHV ;
  +        SV * pSV = (SV *)((tProviderXalan *)pProvider) -> pParamHV ;
           SvREFCNT_inc (pSV) ;
           }
   
  @@ -1014,7 +1014,11 @@
            }
   
           *pData = iowrite.pProvider -> pOutputSV ;
  +#ifdef SOLARIS
  +        ATOMIC_INC(SvREFCNT((*pData))) ;
  +#else
           SvREFCNT_inc((*pData)) ;
  +#endif
           }
   
       return ok ;
  
  
  

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