patch 9.0.1837: Vim9: class_member_type() can be optimized

Commit: 
https://github.com/vim/vim/commit/456ae556b43f277c65ceb518d58034b11cd58cfb
Author: Ernie Rael <err...@raelity.com>
Date:   Fri Sep 1 18:54:54 2023 +0200

    patch 9.0.1837: Vim9: class_member_type() can be optimized
    
    Problem:  Vim9: class_member_type() can be optimized
    Solution: class_member_type() provides more information;
              safe an additional alloc()/free()
    
    closes: #12989
    
    Signed-off-by: Christian Brabandt <c...@256bit.org>
    Co-authored-by: Ernie Rael <err...@raelity.com>

diff --git a/src/proto/vim9class.pro b/src/proto/vim9class.pro
index df0ed35f3..47bfa9d1f 100644
--- a/src/proto/vim9class.pro
+++ b/src/proto/vim9class.pro
@@ -1,7 +1,7 @@
 /* vim9class.c */
 int object_index_from_itf_index(class_T *itf, int is_method, int idx, class_T 
*cl);
 void ex_class(exarg_T *eap);
-type_T *class_member_type(class_T *cl, char_u *name, char_u *name_end, int 
*member_idx, omacc_T *access);
+type_T *class_member_type(class_T *cl, char_u *name, char_u *name_end, int 
*member_idx, ocmember_T **m);
 void ex_enum(exarg_T *eap);
 void ex_type(exarg_T *eap);
 int class_object_index(char_u **arg, typval_T *rettv, evalarg_T *evalarg, int 
verbose);
diff --git a/src/version.c b/src/version.c
index b31207dce..d6c8ed14f 100644
--- a/src/version.c
+++ b/src/version.c
@@ -699,6 +699,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    1837,
 /**/
     1836,
 /**/
diff --git a/src/vim9class.c b/src/vim9class.c
index 79780c0c8..0e780fafa 100644
--- a/src/vim9class.c
+++ b/src/vim9class.c
@@ -1554,6 +1554,7 @@ cleanup:
  * Find member "name" in class "cl", set "member_idx" to the member index and
  * return its type.
  * When not found "member_idx" is set to -1 and t_any is returned.
+ * Set *p_m ocmmember_T if not NULL
  */
     type_T *
 class_member_type(
@@ -1561,7 +1562,7 @@ class_member_type(
     char_u     *name,
     char_u     *name_end,
     int                *member_idx,
-    omacc_T    *access)
+    ocmember_T **p_m)
 {
     *member_idx = -1;  // not found (yet)
     size_t len = name_end - name;
@@ -1572,7 +1573,8 @@ class_member_type(
        if (STRNCMP(m->ocm_name, name, len) == 0 && m->ocm_name[len] == NUL)
        {
            *member_idx = i;
-           *access = m->ocm_access;
+           if (p_m != NULL)
+               *p_m = m;
            return m->ocm_type;
        }
     }
diff --git a/src/vim9compile.c b/src/vim9compile.c
index 0d2de9953..cc5a302a5 100644
--- a/src/vim9compile.c
+++ b/src/vim9compile.c
@@ -1866,27 +1866,21 @@ compile_lhs(
        {
            // for an object or class member get the type of the member
            class_T     *cl = lhs->lhs_type->tt_class;
-           omacc_T     access;
+           ocmember_T  *m;
 
            lhs->lhs_member_type = class_member_type(cl, after + 1,
-                                       lhs->lhs_end, &lhs->lhs_member_idx,
-                                       &access);
+                                   lhs->lhs_end, &lhs->lhs_member_idx, &m);
            if (lhs->lhs_member_idx < 0)
                return FAIL;
 
            // If it is private member variable, then accessing it outside the
            // class is not allowed.
-           if ((access != VIM_ACCESS_ALL) && !inside_class(cctx, cl))
+           if ((m->ocm_access != VIM_ACCESS_ALL) && !inside_class(cctx, cl))
            {
-               char_u  *m_name;
-               char    *msg;
-
-               m_name = vim_strnsave(after + 1, lhs->lhs_end - after - 1);
-               msg = (access == VIM_ACCESS_PRIVATE)
+               char *msg = (m->ocm_access == VIM_ACCESS_PRIVATE)
                                ? e_cannot_access_private_member_str
                                : e_cannot_change_readonly_variable_str;
-               semsg(_(msg), m_name);
-               vim_free(m_name);
+               semsg(_(msg), m->ocm_name);
                return FAIL;
            }
        }
@@ -2097,10 +2091,9 @@ compile_load_lhs_with_index(lhs_T *lhs, char_u 
*var_start, cctx_T *cctx)
           return FAIL;
 
        class_T *cl = lhs->lhs_type->tt_class;
-       omacc_T access;
        type_T  *type = class_member_type(cl, dot + 1,
                                           lhs->lhs_end, &lhs->lhs_member_idx,
-                                          &access);
+                                          NULL);
        if (lhs->lhs_member_idx < 0)
            return FAIL;
 

-- 
-- 
You received this message from the "vim_dev" maillist.
Do not top-post! Type your reply below the text you are replying to.
For more information, visit http://www.vim.org/maillist.php

--- 
You received this message because you are subscribed to the Google Groups 
"vim_dev" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to vim_dev+unsubscr...@googlegroups.com.
To view this discussion on the web visit 
https://groups.google.com/d/msgid/vim_dev/E1qc7VD-00AqX0-19%40256bit.org.

Raspunde prin e-mail lui