hb_p_staticname support

harbour/source/compiler/hbfix.c

@@ -219,6 +219,18 @@ static HB_FIX_FUNC( hb_p_pushlocalnear )
    return (USHORT) 3;
 }
 
+static HB_FIX_FUNC( hb_p_staticname )
+{
+   ULONG ulStart = lPCodePos;
+
+   HB_SYMBOL_UNUSED( cargo );
+   lPCodePos += 3;
+   while( pFunc->pCode[ lPCodePos ] )
+      ++lPCodePos;
+
+   return (USHORT) (lPCodePos - ulStart + 1) ;
+}
+
 /* NOTE: The  order of functions have to match the order of opcodes
  *       mnemonics
  */
@@ -340,6 +352,7 @@ static HB_FIX_FUNC_PTR s_fixlocals_table[] =
    NULL,                       /* HB_P_SEQRECOVER,           */
    NULL,                       /* HB_P_SFRAME,               */
    NULL,                       /* HB_P_STATICS,              */
+   hb_p_staticname,            /* HB_P_STATICNAME,           */
    NULL,                       /* HB_P_SWAPALIAS,            */
    NULL,                       /* HB_P_TRUE,                 */
    NULL,                       /* HB_P_ZERO,                 */
@@ -355,4 +368,4 @@ void hb_compFixFuncPCode( PFUNCTION pFunc )
    assert( HB_P_LAST_PCODE == sizeof( s_fixlocals_table ) / sizeof( HB_FIX_FUNC_PTR ) );
 
    hb_compPCodeEval( pFunc, ( HB_PCODE_FUNC_PTR * ) s_fixlocals_table, ( void * ) &fix_info );
-}
+}