[Perl-win32-gui-cvscommit] Win32-GUI TYPEMAP,1.4,1.5

[jw]

Update of /cvsroot/perl-win32-gui/Win32-GUI
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12256

Modified Files:
        TYPEMAP 
Log Message:
Removed a hash lookup, results in faster method calls

Index: TYPEMAP
===================================================================
RCS file: /cvsroot/perl-win32-gui/Win32-GUI/TYPEMAP,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** TYPEMAP     4 Apr 2004 18:01:34 -0000       1.4
--- TYPEMAP     3 Dec 2005 10:37:03 -0000       1.5
***************
*** 35,44 ****
  T_HANDLE
      if(SvROK($arg)) {
!         if(hv_fetch((HV*)SvRV($arg), \"-handle\", 7, 0) != NULL)
!             $var = ($type) SvIV(*(hv_fetch((HV*)SvRV($arg), \"-handle\", 7, 
0)));
          else
              $var = NULL;
      } else
!         $var = ($type) SvIV($arg);
  T_COLOR
      $var = SvCOLORREF(NOTXSCALL $arg);
--- 35,46 ----
  T_HANDLE
      if(SvROK($arg)) {
!         SV** out=hv_fetch((HV*)SvRV($arg), \"-handle\", 7, 0);
!         if(out != NULL)
!             $var = ($type) SvIV(*out);
          else
              $var = NULL;
      } else
!        $var = ($type) SvIV($arg);
! 
  T_COLOR
      $var = SvCOLORREF(NOTXSCALL $arg);