[Swig-cvs] SWIG/Lib/perl5 typemaps.i,1.4,1.5

[William F. <wsf...@us...>]

Update of /cvsroot/swig/SWIG/Lib/perl5
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32575/Lib/perl5

Modified Files:
	typemaps.i 
Log Message:
Patch from Ikegami Tsutomu to fix long long *OUTPUT and unsigned long long *OUTPUT typemaps


Index: typemaps.i
===================================================================
RCS file: /cvsroot/swig/SWIG/Lib/perl5/typemaps.i,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** typemaps.i	10 Mar 2003 19:50:14 -0000	1.4
--- typemaps.i	26 Aug 2004 21:15:41 -0000	1.5
***************
*** 207,211 ****
  	EXTEND(sp,1);
      }
!     sprintf(temp,"%lld", $1);
      $result = sv_newmortal();
      sv_setpv($result,temp);
--- 207,211 ----
  	EXTEND(sp,1);
      }
!     sprintf(temp,"%lld", *($1));
      $result = sv_newmortal();
      sv_setpv($result,temp);
***************
*** 218,222 ****
  	EXTEND(sp,1);
      }
!     sprintf(temp,"%llu", $1);
      $result = sv_newmortal();
      sv_setpv($result,temp);
--- 218,222 ----
  	EXTEND(sp,1);
      }
!     sprintf(temp,"%llu", *($1));
      $result = sv_newmortal();
      sv_setpv($result,temp);