packages: vim/vim.spec, vim/7.3.055 (NEW), vim/7.3.056 (NEW), vim/7.3.057 (...

glen glen at pld-linux.org
Thu Nov 25 10:14:03 CET 2010


Author: glen                         Date: Thu Nov 25 09:14:03 2010 GMT
Module: packages                      Tag: HEAD
---- Log message:
- up to 7.3.069

---- Files affected:
packages/vim:
   vim.spec (1.533 -> 1.534) , 7.3.055 (NONE -> 1.1)  (NEW), 7.3.056 (NONE -> 1.1)  (NEW), 7.3.057 (NONE -> 1.1)  (NEW), 7.3.058 (NONE -> 1.1)  (NEW), 7.3.059 (NONE -> 1.1)  (NEW), 7.3.060 (NONE -> 1.1)  (NEW), 7.3.061 (NONE -> 1.1)  (NEW), 7.3.062 (NONE -> 1.1)  (NEW), 7.3.063 (NONE -> 1.1)  (NEW), 7.3.064 (NONE -> 1.1)  (NEW), 7.3.065 (NONE -> 1.1)  (NEW), 7.3.066 (NONE -> 1.1)  (NEW), 7.3.067 (NONE -> 1.1)  (NEW), 7.3.068 (NONE -> 1.1)  (NEW), 7.3.069 (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: packages/vim/vim.spec
diff -u packages/vim/vim.spec:1.533 packages/vim/vim.spec:1.534
--- packages/vim/vim.spec:1.533	Thu Nov 11 15:18:35 2010
+++ packages/vim/vim.spec	Thu Nov 25 10:13:56 2010
@@ -28,7 +28,7 @@
 # curl -s ftp://ftp.vim.org/pub/editors/vim/patches/7.3/MD5SUMS | grep -vF .gz | tail -n1 | awk '{print $2}'
 
 %define		ver		7.3
-%define		patchlevel	055
+%define		patchlevel	069
 %define		rel			1
 Summary:	Vi IMproved - a Vi clone
 Summary(de.UTF-8):	VIsual editor iMproved
@@ -1380,6 +1380,9 @@
 All persons listed below can be reached at <cvs_login>@pld-linux.org
 
 $Log$
+Revision 1.534  2010/11/25 09:13:56  glen
+- up to 7.3.069
+
 Revision 1.533  2010/11/11 14:18:35  glen
 - up to 7.3.055
 

================================================================
Index: packages/vim/7.3.055
diff -u /dev/null packages/vim/7.3.055:1.1
--- /dev/null	Thu Nov 25 10:14:03 2010
+++ packages/vim/7.3.055	Thu Nov 25 10:13:56 2010
@@ -0,0 +1,359 @@
+To: vim_dev at googlegroups.com
+Subject: Patch 7.3.055
+Fcc: outbox
+From: Bram Moolenaar <Bram at moolenaar.net>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+------------
+
+Patch 7.3.055
+Problem:    Recursively nested lists and dictionaries cause a near-endless
+	    loop when comparing them with a copy. (ZyX)
+Solution:   Limit recursiveness in a way that non-recursive structures can
+	    still be nested very deep.
+Files:	    src/eval.c, src/testdir/test55.in, src/testdir/test55.ok
+
+
+*** ../vim-7.3.054/src/eval.c	2010-10-20 21:22:17.000000000 +0200
+--- src/eval.c	2010-11-10 20:02:57.000000000 +0100
+***************
+*** 434,442 ****
+  static void listitem_free __ARGS((listitem_T *item));
+  static void listitem_remove __ARGS((list_T *l, listitem_T *item));
+  static long list_len __ARGS((list_T *l));
+! static int list_equal __ARGS((list_T *l1, list_T *l2, int ic));
+! static int dict_equal __ARGS((dict_T *d1, dict_T *d2, int ic));
+! static int tv_equal __ARGS((typval_T *tv1, typval_T *tv2, int ic));
+  static listitem_T *list_find __ARGS((list_T *l, long n));
+  static long list_find_nr __ARGS((list_T *l, long idx, int *errorp));
+  static long list_idx_of_item __ARGS((list_T *l, listitem_T *item));
+--- 434,442 ----
+  static void listitem_free __ARGS((listitem_T *item));
+  static void listitem_remove __ARGS((list_T *l, listitem_T *item));
+  static long list_len __ARGS((list_T *l));
+! static int list_equal __ARGS((list_T *l1, list_T *l2, int ic, int recursive));
+! static int dict_equal __ARGS((dict_T *d1, dict_T *d2, int ic, int recursive));
+! static int tv_equal __ARGS((typval_T *tv1, typval_T *tv2, int ic, int recursive));
+  static listitem_T *list_find __ARGS((list_T *l, long n));
+  static long list_find_nr __ARGS((list_T *l, long idx, int *errorp));
+  static long list_idx_of_item __ARGS((list_T *l, listitem_T *item));
+***************
+*** 4350,4356 ****
+  		else
+  		{
+  		    /* Compare two Lists for being equal or unequal. */
+! 		    n1 = list_equal(rettv->vval.v_list, var2.vval.v_list, ic);
+  		    if (type == TYPE_NEQUAL)
+  			n1 = !n1;
+  		}
+--- 4350,4357 ----
+  		else
+  		{
+  		    /* Compare two Lists for being equal or unequal. */
+! 		    n1 = list_equal(rettv->vval.v_list, var2.vval.v_list,
+! 								   ic, FALSE);
+  		    if (type == TYPE_NEQUAL)
+  			n1 = !n1;
+  		}
+***************
+*** 4379,4385 ****
+  		else
+  		{
+  		    /* Compare two Dictionaries for being equal or unequal. */
+! 		    n1 = dict_equal(rettv->vval.v_dict, var2.vval.v_dict, ic);
+  		    if (type == TYPE_NEQUAL)
+  			n1 = !n1;
+  		}
+--- 4380,4387 ----
+  		else
+  		{
+  		    /* Compare two Dictionaries for being equal or unequal. */
+! 		    n1 = dict_equal(rettv->vval.v_dict, var2.vval.v_dict,
+! 								   ic, FALSE);
+  		    if (type == TYPE_NEQUAL)
+  			n1 = !n1;
+  		}
+***************
+*** 5914,5923 ****
+   * Return TRUE when two lists have exactly the same values.
+   */
+      static int
+! list_equal(l1, l2, ic)
+      list_T	*l1;
+      list_T	*l2;
+      int		ic;	/* ignore case for strings */
+  {
+      listitem_T	*item1, *item2;
+  
+--- 5916,5926 ----
+   * Return TRUE when two lists have exactly the same values.
+   */
+      static int
+! list_equal(l1, l2, ic, recursive)
+      list_T	*l1;
+      list_T	*l2;
+      int		ic;	/* ignore case for strings */
++     int		recursive;  /* TRUE when used recursively */
+  {
+      listitem_T	*item1, *item2;
+  
+***************
+*** 5931,5937 ****
+      for (item1 = l1->lv_first, item2 = l2->lv_first;
+  	    item1 != NULL && item2 != NULL;
+  			       item1 = item1->li_next, item2 = item2->li_next)
+! 	if (!tv_equal(&item1->li_tv, &item2->li_tv, ic))
+  	    return FALSE;
+      return item1 == NULL && item2 == NULL;
+  }
+--- 5934,5940 ----
+      for (item1 = l1->lv_first, item2 = l2->lv_first;
+  	    item1 != NULL && item2 != NULL;
+  			       item1 = item1->li_next, item2 = item2->li_next)
+! 	if (!tv_equal(&item1->li_tv, &item2->li_tv, ic, recursive))
+  	    return FALSE;
+      return item1 == NULL && item2 == NULL;
+  }
+***************
+*** 5953,5962 ****
+   * Return TRUE when two dictionaries have exactly the same key/values.
+   */
+      static int
+! dict_equal(d1, d2, ic)
+      dict_T	*d1;
+      dict_T	*d2;
+      int		ic;	/* ignore case for strings */
+  {
+      hashitem_T	*hi;
+      dictitem_T	*item2;
+--- 5956,5966 ----
+   * Return TRUE when two dictionaries have exactly the same key/values.
+   */
+      static int
+! dict_equal(d1, d2, ic, recursive)
+      dict_T	*d1;
+      dict_T	*d2;
+      int		ic;	/* ignore case for strings */
++     int		recursive; /* TRUE when used recursively */
+  {
+      hashitem_T	*hi;
+      dictitem_T	*item2;
+***************
+*** 5977,5983 ****
+  	    item2 = dict_find(d2, hi->hi_key, -1);
+  	    if (item2 == NULL)
+  		return FALSE;
+! 	    if (!tv_equal(&HI2DI(hi)->di_tv, &item2->di_tv, ic))
+  		return FALSE;
+  	    --todo;
+  	}
+--- 5981,5987 ----
+  	    item2 = dict_find(d2, hi->hi_key, -1);
+  	    if (item2 == NULL)
+  		return FALSE;
+! 	    if (!tv_equal(&HI2DI(hi)->di_tv, &item2->di_tv, ic, recursive))
+  		return FALSE;
+  	    --todo;
+  	}
+***************
+*** 5985,6025 ****
+      return TRUE;
+  }
+  
+  /*
+   * Return TRUE if "tv1" and "tv2" have the same value.
+   * Compares the items just like "==" would compare them, but strings and
+   * numbers are different.  Floats and numbers are also different.
+   */
+      static int
+! tv_equal(tv1, tv2, ic)
+      typval_T *tv1;
+      typval_T *tv2;
+!     int	    ic;	    /* ignore case */
+  {
+      char_u	buf1[NUMBUFLEN], buf2[NUMBUFLEN];
+      char_u	*s1, *s2;
+!     static int  recursive = 0;	    /* cach recursive loops */
+      int		r;
+  
+      if (tv1->v_type != tv2->v_type)
+  	return FALSE;
+      /* Catch lists and dicts that have an endless loop by limiting
+!      * recursiveness to 1000.  We guess they are equal then. */
+!     if (recursive >= 1000)
+  	return TRUE;
+  
+      switch (tv1->v_type)
+      {
+  	case VAR_LIST:
+! 	    ++recursive;
+! 	    r = list_equal(tv1->vval.v_list, tv2->vval.v_list, ic);
+! 	    --recursive;
+  	    return r;
+  
+  	case VAR_DICT:
+! 	    ++recursive;
+! 	    r = dict_equal(tv1->vval.v_dict, tv2->vval.v_dict, ic);
+! 	    --recursive;
+  	    return r;
+  
+  	case VAR_FUNC:
+--- 5989,6042 ----
+      return TRUE;
+  }
+  
++ static int tv_equal_recurse_limit;
++ 
+  /*
+   * Return TRUE if "tv1" and "tv2" have the same value.
+   * Compares the items just like "==" would compare them, but strings and
+   * numbers are different.  Floats and numbers are also different.
+   */
+      static int
+! tv_equal(tv1, tv2, ic, recursive)
+      typval_T *tv1;
+      typval_T *tv2;
+!     int	     ic;	    /* ignore case */
+!     int	     recursive;	    /* TRUE when used recursively */
+  {
+      char_u	buf1[NUMBUFLEN], buf2[NUMBUFLEN];
+      char_u	*s1, *s2;
+!     static int  recursive_cnt = 0;	    /* catch recursive loops */
+      int		r;
+  
+      if (tv1->v_type != tv2->v_type)
+  	return FALSE;
++ 
+      /* Catch lists and dicts that have an endless loop by limiting
+!      * recursiveness to a limit.  We guess they are equal then.
+!      * A fixed limit has the problem of still taking an awful long time.
+!      * Reduce the limit every time running into it. That should work fine for
+!      * deeply linked structures that are not recursively linked and catch
+!      * recursiveness quickly. */
+!     if (!recursive)
+! 	tv_equal_recurse_limit = 1000;
+!     if (recursive_cnt >= tv_equal_recurse_limit)
+!     {
+! 	--tv_equal_recurse_limit;
+  	return TRUE;
++     }
+  
+      switch (tv1->v_type)
+      {
+  	case VAR_LIST:
+! 	    ++recursive_cnt;
+! 	    r = list_equal(tv1->vval.v_list, tv2->vval.v_list, ic, TRUE);
+! 	    --recursive_cnt;
+  	    return r;
+  
+  	case VAR_DICT:
+! 	    ++recursive_cnt;
+! 	    r = dict_equal(tv1->vval.v_dict, tv2->vval.v_dict, ic, TRUE);
+! 	    --recursive_cnt;
+  	    return r;
+  
+  	case VAR_FUNC:
+***************
+*** 9391,9397 ****
+  	    }
+  
+  	    for ( ; li != NULL; li = li->li_next)
+! 		if (tv_equal(&li->li_tv, &argvars[1], ic))
+  		    ++n;
+  	}
+      }
+--- 9408,9414 ----
+  	    }
+  
+  	    for ( ; li != NULL; li = li->li_next)
+! 		if (tv_equal(&li->li_tv, &argvars[1], ic, FALSE))
+  		    ++n;
+  	}
+      }
+***************
+*** 9418,9424 ****
+  		if (!HASHITEM_EMPTY(hi))
+  		{
+  		    --todo;
+! 		    if (tv_equal(&HI2DI(hi)->di_tv, &argvars[1], ic))
+  			++n;
+  		}
+  	    }
+--- 9435,9441 ----
+  		if (!HASHITEM_EMPTY(hi))
+  		{
+  		    --todo;
+! 		    if (tv_equal(&HI2DI(hi)->di_tv, &argvars[1], ic, FALSE))
+  			++n;
+  		}
+  	    }
+***************
+*** 12574,12580 ****
+  	}
+  
+  	for ( ; item != NULL; item = item->li_next, ++idx)
+! 	    if (tv_equal(&item->li_tv, &argvars[1], ic))
+  	    {
+  		rettv->vval.v_number = idx;
+  		break;
+--- 12591,12597 ----
+  	}
+  
+  	for ( ; item != NULL; item = item->li_next, ++idx)
+! 	    if (tv_equal(&item->li_tv, &argvars[1], ic, FALSE))
+  	    {
+  		rettv->vval.v_number = idx;
+  		break;
+*** ../vim-7.3.054/src/testdir/test55.in	2010-08-15 21:57:29.000000000 +0200
+--- src/testdir/test55.in	2010-11-10 20:15:27.000000000 +0100
+***************
+*** 342,348 ****
+--- 342,359 ----
+  :$put =(d == d)
+  :$put =(l != deepcopy(l))
+  :$put =(d != deepcopy(d))
++ :"
++ :" compare complex recursively linked list and dict
++ :let l = []
++ :call add(l, l)
++ :let dict4 = {"l": l}
++ :call add(dict4.l, dict4)
++ :let lcopy = deepcopy(l)
++ :let dict4copy = deepcopy(dict4)
++ :$put =(l == lcopy)
++ :$put =(dict4 == dict4copy)
+  :endfun
++ :"
+  :call Test(1, 2, [3, 4], {5: 6})  " This may take a while
+  :"
+  :delfunc Test
+*** ../vim-7.3.054/src/testdir/test55.ok	2010-08-15 21:57:29.000000000 +0200
+--- src/testdir/test55.ok	2010-11-10 20:16:37.000000000 +0100
+***************
+*** 109,111 ****
+--- 109,113 ----
+  1
+  0
+  0
++ 1
++ 1
+*** ../vim-7.3.054/src/version.c	2010-11-10 18:59:50.000000000 +0100
+--- src/version.c	2010-11-10 20:10:51.000000000 +0100
+***************
+*** 716,717 ****
+--- 716,719 ----
+  {   /* Add new patch number below this line */
++ /**/
++     55,
+  /**/
+
+-- 
+A special law prohibits unmarried women from parachuting on Sunday or she
+shall risk arrest, fine, and/or jailing.
+		[real standing law in Florida, United States of America]
+
+ /// Bram Moolenaar -- Bram at Moolenaar.net -- http://www.Moolenaar.net   \\\
+///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
+\\\        download, build and distribute -- http://www.A-A-P.org        ///
+ \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///

================================================================
Index: packages/vim/7.3.056
diff -u /dev/null packages/vim/7.3.056:1.1
--- /dev/null	Thu Nov 25 10:14:03 2010
+++ packages/vim/7.3.056	Thu Nov 25 10:13:56 2010
@@ -0,0 +1,542 @@
+To: vim_dev at googlegroups.com
+Subject: Patch 7.3.056
+Fcc: outbox
+From: Bram Moolenaar <Bram at moolenaar.net>
+Mime-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+------------
+
+Patch 7.3.056
+Problem:    "getline" argument in do_cmdline() shadows global.
+Solution:   Rename the argument.
+Files:	    src/ex_docmd.c
+
+
+*** ../vim-7.3.055/src/ex_docmd.c	2010-11-10 18:59:50.000000000 +0100
+--- src/ex_docmd.c	2010-11-16 11:24:40.000000000 +0100
+***************
+*** 733,739 ****
+   * do_cmdline(): execute one Ex command line
+   *
+   * 1. Execute "cmdline" when it is not NULL.
+!  *    If "cmdline" is NULL, or more lines are needed, getline() is used.
+   * 2. Split up in parts separated with '|'.
+   *
+   * This function can be called recursively!
+--- 733,739 ----
+   * do_cmdline(): execute one Ex command line
+   *
+   * 1. Execute "cmdline" when it is not NULL.
+!  *    If "cmdline" is NULL, or more lines are needed, fgetline() is used.
+   * 2. Split up in parts separated with '|'.
+   *
+   * This function can be called recursively!
+***************
+*** 741,747 ****
+   * flags:
+   * DOCMD_VERBOSE  - The command will be included in the error message.
+   * DOCMD_NOWAIT   - Don't call wait_return() and friends.
+!  * DOCMD_REPEAT   - Repeat execution until getline() returns NULL.
+   * DOCMD_KEYTYPED - Don't reset KeyTyped.
+   * DOCMD_EXCRESET - Reset the exception environment (used for debugging).
+   * DOCMD_KEEPLINE - Store first typed line (for repeating with ".").
+--- 741,747 ----
+   * flags:
+   * DOCMD_VERBOSE  - The command will be included in the error message.
+   * DOCMD_NOWAIT   - Don't call wait_return() and friends.
+!  * DOCMD_REPEAT   - Repeat execution until fgetline() returns NULL.
+   * DOCMD_KEYTYPED - Don't reset KeyTyped.
+   * DOCMD_EXCRESET - Reset the exception environment (used for debugging).
+   * DOCMD_KEEPLINE - Store first typed line (for repeating with ".").
+***************
+*** 749,763 ****
+   * return FAIL if cmdline could not be executed, OK otherwise
+   */
+      int
+! do_cmdline(cmdline, getline, cookie, flags)
+      char_u	*cmdline;
+!     char_u	*(*getline) __ARGS((int, void *, int));
+!     void	*cookie;		/* argument for getline() */
+      int		flags;
+  {
+      char_u	*next_cmdline;		/* next cmd to execute */
+      char_u	*cmdline_copy = NULL;	/* copy of cmd line */
+!     int		used_getline = FALSE;	/* used "getline" to obtain command */
+      static int	recursive = 0;		/* recursive depth */
+      int		msg_didout_before_start = 0;
+      int		count = 0;		/* line number count */
+--- 749,763 ----
+   * return FAIL if cmdline could not be executed, OK otherwise
+   */
+      int
+! do_cmdline(cmdline, fgetline, cookie, flags)
+      char_u	*cmdline;
+!     char_u	*(*fgetline) __ARGS((int, void *, int));
+!     void	*cookie;		/* argument for fgetline() */
+      int		flags;
+  {
+      char_u	*next_cmdline;		/* next cmd to execute */
+      char_u	*cmdline_copy = NULL;	/* copy of cmd line */
+!     int		used_getline = FALSE;	/* used "fgetline" to obtain command */
+      static int	recursive = 0;		/* recursive depth */
+      int		msg_didout_before_start = 0;
+      int		count = 0;		/* line number count */
+***************
+*** 775,788 ****
+      struct msglist	**saved_msg_list = NULL;
+      struct msglist	*private_msg_list;
+  
+!     /* "getline" and "cookie" passed to do_one_cmd() */
+      char_u	*(*cmd_getline) __ARGS((int, void *, int));
+      void	*cmd_cookie;
+      struct loop_cookie cmd_loop_cookie;
+      void	*real_cookie;
+      int		getline_is_func;
+  #else
+! # define cmd_getline getline
+  # define cmd_cookie cookie
+  #endif
+      static int	call_depth = 0;		/* recursiveness */
+--- 775,788 ----
+      struct msglist	**saved_msg_list = NULL;
+      struct msglist	*private_msg_list;
+  
+!     /* "fgetline" and "cookie" passed to do_one_cmd() */
+      char_u	*(*cmd_getline) __ARGS((int, void *, int));
+      void	*cmd_cookie;
+      struct loop_cookie cmd_loop_cookie;
+      void	*real_cookie;
+      int		getline_is_func;
+  #else
+! # define cmd_getline fgetline
+  # define cmd_cookie cookie
+  #endif
+      static int	call_depth = 0;		/* recursiveness */
+***************
+*** 822,831 ****
+      cstack.cs_lflags = 0;
+      ga_init2(&lines_ga, (int)sizeof(wcmd_T), 10);
+  
+!     real_cookie = getline_cookie(getline, cookie);
+  
+      /* Inside a function use a higher nesting level. */
+!     getline_is_func = getline_equal(getline, cookie, get_func_line);
+      if (getline_is_func && ex_nesting_level == func_level(real_cookie))
+  	++ex_nesting_level;
+  
+--- 822,831 ----
+      cstack.cs_lflags = 0;
+      ga_init2(&lines_ga, (int)sizeof(wcmd_T), 10);
+  
+!     real_cookie = getline_cookie(fgetline, cookie);
+  
+      /* Inside a function use a higher nesting level. */
+!     getline_is_func = getline_equal(fgetline, cookie, get_func_line);
+      if (getline_is_func && ex_nesting_level == func_level(real_cookie))
+  	++ex_nesting_level;
+  
+***************
+*** 837,843 ****
+  	breakpoint = func_breakpoint(real_cookie);
+  	dbg_tick = func_dbg_tick(real_cookie);
+      }
+!     else if (getline_equal(getline, cookie, getsourceline))
+      {
+  	fname = sourcing_name;
+  	breakpoint = source_breakpoint(real_cookie);
+--- 837,843 ----
+  	breakpoint = func_breakpoint(real_cookie);
+  	dbg_tick = func_dbg_tick(real_cookie);
+      }
+!     else if (getline_equal(fgetline, cookie, getsourceline))
+      {
+  	fname = sourcing_name;
+  	breakpoint = source_breakpoint(real_cookie);
+***************
+*** 881,887 ****
+       * KeyTyped is only set when calling vgetc().  Reset it here when not
+       * calling vgetc() (sourced command lines).
+       */
+!     if (!(flags & DOCMD_KEYTYPED) && !getline_equal(getline, cookie, getexline))
+  	KeyTyped = FALSE;
+  
+      /*
+--- 881,888 ----
+       * KeyTyped is only set when calling vgetc().  Reset it here when not
+       * calling vgetc() (sourced command lines).
+       */
+!     if (!(flags & DOCMD_KEYTYPED)
+! 			       && !getline_equal(fgetline, cookie, getexline))
+  	KeyTyped = FALSE;
+  
+      /*
+***************
+*** 894,900 ****
+      do
+      {
+  #ifdef FEAT_EVAL
+! 	getline_is_func = getline_equal(getline, cookie, get_func_line);
+  #endif
+  
+  	/* stop skipping cmds for an error msg after all endif/while/for */
+--- 895,901 ----
+      do
+      {
+  #ifdef FEAT_EVAL
+! 	getline_is_func = getline_equal(fgetline, cookie, get_func_line);
+  #endif
+  
+  	/* stop skipping cmds for an error msg after all endif/while/for */
+***************
+*** 909,915 ****
+  
+  	/*
+  	 * 1. If repeating a line in a loop, get a line from lines_ga.
+! 	 * 2. If no line given: Get an allocated line with getline().
+  	 * 3. If a line is given: Make a copy, so we can mess with it.
+  	 */
+  
+--- 910,916 ----
+  
+  	/*
<<Diff was trimmed, longer than 597 lines>>

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/packages/vim/vim.spec?r1=1.533&r2=1.534&f=u



More information about the pld-cvs-commit mailing list