[Dotgnu-pnet-commits] CVS: pnet/include il_coder.h,1.35,1.36

[Rhys Weatherley <address@hidden>]

Update of /cvsroot/dotgnu-pnet/pnet/include
In directory subversions:/tmp/cvs-serv15561/include

Modified Files:
        il_coder.h 
Log Message:


Make sure that string constants are intern'ed at verification
time, so that they are already intern'ed before the method
executes (needed to fix problems with csc-compiled switch'es).


Index: il_coder.h
===================================================================
RCS file: /cvsroot/dotgnu-pnet/pnet/include/il_coder.h,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -r1.35 -r1.36
*** il_coder.h  27 Dec 2002 12:25:09 -0000      1.35
--- il_coder.h  30 Dec 2002 06:14:41 -0000      1.36
***************
*** 199,203 ****
         * Handle a string constant value.
         */
!       void (*stringConstant)(ILCoder *coder, ILToken token);
  
        /*
--- 199,203 ----
         * Handle a string constant value.
         */
!       void (*stringConstant)(ILCoder *coder, ILToken token, void *object);
  
        /*
***************
*** 728,733 ****
  #define       ILCoderConstant(coder,opcode,arg) \
                        ((*((coder)->classInfo->constant))((coder), (opcode), 
(arg)))
! #define       ILCoderStringConstant(coder,token) \
!                       ((*((coder)->classInfo->stringConstant))((coder), 
(token)))
  #define       ILCoderBinary(coder,opcode,type1,type2) \
                        ((*((coder)->classInfo->binary))((coder), (opcode), 
(type1), \
--- 728,734 ----
  #define       ILCoderConstant(coder,opcode,arg) \
                        ((*((coder)->classInfo->constant))((coder), (opcode), 
(arg)))
! #define       ILCoderStringConstant(coder,token,object) \
!                       ((*((coder)->classInfo->stringConstant))((coder), 
(token), \
!                                                                               
                         (object)))
  #define       ILCoderBinary(coder,opcode,type1,type2) \
                        ((*((coder)->classInfo->binary))((coder), (opcode), 
(type1), \