[BACK]Return to symtab_dispatch.c CVS log [TXT] [DIR] Up to [Coherent Logic Development] / freem / src

Diff for /freem/src/symtab_dispatch.c between versions 1.3 and 1.7

version 1.3, 2025/03/09 19:50:47 version 1.7, 2025/04/28 19:38:55
Line 24 Line 24
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.   *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *   *
  *   $Log$   *   $Log$
    *   Revision 1.7  2025/04/28 19:38:55  snw
    *   Add trace mode
    *
    *   Revision 1.6  2025/04/28 14:52:54  snw
    *   Temporarily revert global handler refactor and fix reference regression in xecline
    *
    *   Revision 1.5  2025/04/13 04:22:43  snw
    *   Fix snprintf calls
    *
    *   Revision 1.4  2025/03/27 03:27:35  snw
    *   Install init scripts to share/freem/examples/init and fix regression in method dispatch
    *
  *   Revision 1.3  2025/03/09 19:50:47  snw   *   Revision 1.3  2025/03/09 19:50:47  snw
  *   Second phase of REUSE compliance and header reformat   *   Second phase of REUSE compliance and header reformat
  *   *
Line 55  void symtab (short action, char *key, ch Line 67  void symtab (short action, char *key, ch
     mref_init (r, MREF_RT_LOCAL, "");      mref_init (r, MREF_RT_LOCAL, "");
     internal_to_mref (r, key);      internal_to_mref (r, key);
   
       /*
     res = obj_is_object (r->name);          res = obj_is_object (r->name);    
   
     if (res == TRUE) {      if (res == TRUE) {
Line 70  void symtab (short action, char *key, ch Line 83  void symtab (short action, char *key, ch
   
         if (r->subscript_count == 0 && action == kill_sym) {          if (r->subscript_count == 0 && action == kill_sym) {
                           
             if (destructor_ct < 10) {              if (destructor_ct < 10) {                
                 snprintf (destructors[destructor_ct++], 50, "DESTROY^%%SYSOOP(\"%s\",.%s)", t_cls, r->name);                  snprintf (destructors[destructor_ct++], OBJ_DSTRSIZE - 1, "DESTROY^%%SYSOOP(\"%s\",.%s)", t_cls, r->name);
             }              }
                           
             obj_destroy (key);              obj_destroy (key);
                           
         }          }
                   
     }          }
       */
           
     if (action != fra_order && action != fra_query) {      if (action != fra_order && action != fra_query) {
         for (i = 0; i < r->subscript_count; i++) {          for (i = 0; i < r->subscript_count; i++) {
Line 107  void symtab (short action, char *key, ch Line 121  void symtab (short action, char *key, ch
         }          }
   
     }      }
       
     symtab_bltin (action, key, data);      symtab_bltin (action, key, data);
           
 }  }
Removed from v.1.3  
changed lines
  Added in v.1.7

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>