updated for version 7.1-120

diff --git a/runtime/doc/eval.txt b/runtime/doc/eval.txt
index 95ef5372b2e0977aa8b1b1d30c7b232600508eea..6857ee51980e08f86088a164eb89fb585b499ea5 100644 (file)
--- a/runtime/doc/eval.txt
+++ b/runtime/doc/eval.txt
@@ -1,4 +1,4 @@
-*eval.txt*      For Vim version 7.1.  Last change: 2007 Jul 25
+*eval.txt*      For Vim version 7.1.  Last change: 2007 Sep 25
 
 
                  VIM REFERENCE MANUAL    by Bram Moolenaar
@@ -1603,7 +1603,7 @@ foldtext( )                       String  line displayed for closed fold
 foldtextresult( {lnum})                String  text for closed fold at {lnum}
 foreground( )                  Number  bring the Vim window to the foreground
 function( {name})              Funcref reference to function {name}
-garbagecollect()               none    free memory, breaking cyclic references
+garbagecollect( [at_exit])     none    free memory, breaking cyclic references
 get( {list}, {idx} [, {def}])  any     get item {idx} from {list} or {def}
 get( {dict}, {key} [, {def}])  any     get item {key} from {dict} or {def}
 getbufline( {expr}, {lnum} [, {end}])
@@ -2673,7 +2673,7 @@ function({name})                                  *function()* *E700*
                {name} can be a user defined function or an internal function.
 
 
-garbagecollect()                                       *garbagecollect()*
+garbagecollect([at_exit])                              *garbagecollect()*
                Cleanup unused |Lists| and |Dictionaries| that have circular
                references.  There is hardly ever a need to invoke this
                function, as it is automatically done when Vim runs out of
@@ -2683,6 +2683,9 @@ garbagecollect()                                  *garbagecollect()*
                This is useful if you have deleted a very big |List| and/or
                |Dictionary| with circular references in a script that runs
                for a long time.
+               When the optional "at_exit" argument is one, garbage
+               collection will also be done when exiting Vim, if it wasn't
+               done before.  This is useful when checking for memory leaks.
 
 get({list}, {idx} [, {default}])                       *get()*
                Get item {idx} from |List| {list}.  When this item is not

diff --git a/src/eval.c b/src/eval.c
index 26277fcf1938e09150f2ac848e5f43b204470bb7..61d7df4cfa4f170b766238241661a7287a832552 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -6128,6 +6128,7 @@ garbage_collect()
     /* Only do this once. */
     want_garbage_collect = FALSE;
     may_garbage_collect = FALSE;
+    garbage_collect_at_exit = FALSE;
 
     /*
      * 1. Go through all accessible variables and mark all lists and dicts
@@ -7110,7 +7111,7 @@ static struct fst
     {"foldtextresult", 1, 1, f_foldtextresult},
     {"foreground",     0, 0, f_foreground},
     {"function",       1, 1, f_function},
-    {"garbagecollect", 0, 0, f_garbagecollect},
+    {"garbagecollect", 0, 1, f_garbagecollect},
     {"get",            2, 3, f_get},
     {"getbufline",     2, 3, f_getbufline},
     {"getbufvar",      2, 2, f_getbufvar},
@@ -9719,6 +9720,9 @@ f_garbagecollect(argvars, rettv)
     /* This is postponed until we are back at the toplevel, because we may be
      * using Lists and Dicts internally.  E.g.: ":echo [garbagecollect()]". */
     want_garbage_collect = TRUE;
+
+    if (argvars[0].v_type != VAR_UNKNOWN && get_tv_number(&argvars[0]) == 1)
+       garbage_collect_at_exit = TRUE;
 }
 
 /*

diff --git a/src/globals.h b/src/globals.h
index ffb205043819349d5a9e64e7962a839c1228360d..ede2e2e36409a3d66b82ff9f9bb3c7453abc457b 100644 (file)
--- a/src/globals.h
+++ b/src/globals.h
@@ -301,13 +301,17 @@ EXTERN except_T *caught_stack INIT(= NULL);
 #endif
 
 #ifdef FEAT_EVAL
-/* Garbage collection can only take place when we are sure there are no Lists
+/*
+ * Garbage collection can only take place when we are sure there are no Lists
  * or Dictionaries being used internally.  This is flagged with
  * "may_garbage_collect" when we are at the toplevel.
  * "want_garbage_collect" is set by the garbagecollect() function, which means
- * we do garbage collection before waiting for a char at the toplevel. */
+ * we do garbage collection before waiting for a char at the toplevel.
+ * "garbage_collect_at_exit" indicates garbagecollect(1) was called.
+ */
 EXTERN int     may_garbage_collect INIT(= FALSE);
 EXTERN int     want_garbage_collect INIT(= FALSE);
+EXTERN int     garbage_collect_at_exit INIT(= FALSE);
 
 /* ID of script being sourced or was sourced to define the current function. */
 EXTERN scid_T  current_SID INIT(= 0);

diff --git a/src/main.c b/src/main.c
index 906d8bd5eedefc47cf2ddac156951e86774cf470..6bd9ff4a5d1608a14941c00c1294dc08159a6183 100644 (file)
--- a/src/main.c
+++ b/src/main.c
@@ -1334,6 +1334,10 @@ getout(exitval)
 #ifdef FEAT_CSCOPE
     cs_end();
 #endif
+#ifdef FEAT_EVAL
+    if (garbage_collect_at_exit)
+       garbage_collect();
+#endif
 
     mch_exit(exitval);
 }

diff --git a/src/testdir/Makefile b/src/testdir/Makefile
index 4053665f9ee54fddc881562f0daae19847be0490..89a0ca9c1829fe0756157223770598e9d132c8a5 100644 (file)
--- a/src/testdir/Makefile
+++ b/src/testdir/Makefile
@@ -6,7 +6,7 @@ VIMPROG = ../vim
 
 # Uncomment this line for using valgrind.
 # The output goes into a file "valgrind.$PID" (sorry, no test number).
-# VALGRIND = valgrind --tool=memcheck --num-callers=15 --logfile=valgrind
+# VALGRIND = valgrind --tool=memcheck --leak-check=yes --num-callers=15 --logfile=valgrind
 
 SCRIPTS = test1.out test2.out test3.out test4.out test5.out test6.out \
                test7.out test8.out test9.out test10.out test11.out \
@@ -39,7 +39,7 @@ gui:  nolog $(SCRIPTS) $(SCRIPTS_GUI)
 $(SCRIPTS) $(SCRIPTS_GUI): $(VIMPROG)
 
 clean:
-       -rm -rf *.out *.failed *.rej *.orig test.log tiny.vim small.vim mbyte.vim test.ok X* viminfo
+       -rm -rf *.out *.failed *.rej *.orig test.log tiny.vim small.vim mbyte.vim test.ok X* valgrind.pid* viminfo
 
 test1.out: test1.in
        -rm -f $*.failed tiny.vim small.vim mbyte.vim test.ok X* viminfo
@@ -66,5 +66,9 @@ test1.out: test1.in
                fi"
        -rm -rf X* test.ok viminfo
 
+test49.out: test49.vim
+
+test60.out: test60.vim
+
 nolog:
        -echo Test results: >test.log

diff --git a/src/testdir/test14.in b/src/testdir/test14.in
index 57fb9573fee8c85afa90c6cf9a3e3600ed417c55..05c80257b055c02a21bb2e819c219fdff1702b23 100644 (file)
--- a/src/testdir/test14.in
+++ b/src/testdir/test14.in
@@ -18,6 +18,7 @@ vaBiBD:?Bug?,/Piece/-2w! test.out
 : let tt = "o\<C-V>65\<C-V>x42\<C-V>o103 \<C-V>33a\<C-V>xfg\<C-V>o78\<Esc>"
 :endif
 :exe "normal " . tt
+:unlet tt
 :.w >>test.out
 :set vb
 /^Piece

diff --git a/src/testdir/test26.in b/src/testdir/test26.in
index df572c89733a58831bf500860a61af038317063e..e7cd7576610f10f9673dd9c25141bd66015ecde0 100644 (file)
--- a/src/testdir/test26.in
+++ b/src/testdir/test26.in
@@ -37,6 +37,7 @@ mt:let i = 0
 :    endif
 :  endif
 :endwhile
+:unlet i j
 :'t,$w! test.out
 :qa!
 ENDTEST

diff --git a/src/testdir/test34.in b/src/testdir/test34.in
index 4781fecee6313be5272aff01618687a0f49e71f3..5eef7150066eb8eb7b4091c586ff78b27e0d0ff2 100644 (file)
--- a/src/testdir/test34.in
+++ b/src/testdir/test34.in
@@ -52,7 +52,15 @@ XX+-XX
 ---*---
 (one
 (two
-[(one again\e:$-5,$wq! test.out
+[(one again\e:$-5,$w! test.out
+:delfunc Table
+:delfunc Compute
+:delfunc Expr1
+:delfunc Expr2
+:delfunc ListItem
+:delfunc ListReset
+:unlet retval counter
+:q!
 ENDTEST
 
 here

diff --git a/src/testdir/test45.in b/src/testdir/test45.in
index 58537f33dbe30646201ae67bee34ff1e03f125fc..cc991497767c561d7d37b22f67ab91c766746755 100644 (file)
--- a/src/testdir/test45.in
+++ b/src/testdir/test45.in
@@ -55,6 +55,7 @@ endfun
 /kk$
 :call append("$", foldlevel("."))
 :/^last/+1,$w! test.out
+:delfun Flvl
 :qa!
 ENDTEST
 

diff --git a/src/testdir/test47.in b/src/testdir/test47.in
index 35bb9f260534d7c55b135359abc40f86ca5003e8..d8384de785477aefa7b5b9ff737a55d607559627 100644 (file)
--- a/src/testdir/test47.in
+++ b/src/testdir/test47.in
@@ -34,6 +34,7 @@ j:let three = three . "-" . winline()
 :call append("$", two)
 :call append("$", three)
 :$-2,$w! test.out
+:unlet one two three
 :qa!
 ENDTEST
 

diff --git a/src/testdir/test49.in b/src/testdir/test49.in
index ec17d21341f7654d06c35decb15368c01df77a1f..22191b21a28bb313bb151d2824bb9cb5d2285698 100644 (file)
--- a/src/testdir/test49.in
+++ b/src/testdir/test49.in
@@ -1,13 +1,29 @@
 This is a test of the script language.
 
 If after adding a new test, the test output doesn't appear properly in
-test49.failed, try to add one ore more "G"s at the line before ENDTEST.
+test49.failed, try to add one ore more "G"s at the line ending in "test.out"
 
 STARTTEST
 :so small.vim
 :se nocp nomore viminfo+=nviminfo
 :so test49.vim
-GGGGGGGGGG"rp:.-,$wq! test.out
+GGGGGGGGGGGGGG"rp:.-,$w! test.out
+:"
+:" make valgrind happy
+:redir => funclist
+:silent func
+:redir END
+:for line in split(funclist, "\n")
+:  let name = matchstr(line, 'function \zs[A-Z]\w*\ze(')
+:  if name != ''
+:    exe "delfunc " . name
+:  endif
+:endfor
+:for v in keys(g:)
+:  silent! exe "unlet " . v
+:endfor
+:unlet v
+:qa!
 ENDTEST
 
 Results of test49.vim:

diff --git a/src/testdir/test55.in b/src/testdir/test55.in
index b20c6c4979271330e1663fde95ac16d4b47e4073..22437625ba8b78f27b14b922a9d8cc0026137a3f 100644 (file)
--- a/src/testdir/test55.in
+++ b/src/testdir/test55.in
@@ -345,6 +345,10 @@ let l = [0, 1, 2, 3]
 :endfun
 :call Test(1, 2, [3, 4], {5: 6})  " This may take a while
 :"
+:delfunc Test
+:unlet dict
+:call garbagecollect(1)
+:"
 :/^start:/,$wq! test.out
 ENDTEST
 

diff --git a/src/testdir/test56.in b/src/testdir/test56.in
index 67d66af46d8f16166ff80920b905aed9d5e14ac1..311a6004ca78a9539bd14f0c460b3c415cf74344 100644 (file)
--- a/src/testdir/test56.in
+++ b/src/testdir/test56.in
@@ -17,5 +17,5 @@ endfun
 fun s:DoNothing()
   call append(line('$'), "nothing line")
 endfun
-nnoremap <buffer> _x   :call <SID>DoNothing()<bar>call <SID>DoLast()<cr>
+nnoremap <buffer> _x   :call <SID>DoNothing()<bar>call <SID>DoLast()<bar>delfunc <SID>DoNothing<bar>delfunc <SID>DoLast<cr>
 end:

diff --git a/src/testdir/test58.in b/src/testdir/test58.in
index 467c7b5573685b558004959ab362979168fadadb..9600e83f817fd3d4a3c44940345366fa61f33458 100644 (file)
--- a/src/testdir/test58.in
+++ b/src/testdir/test58.in
@@ -86,6 +86,7 @@ gg:/^addstart/+1,/^addend/-1w! Xtest.latin1.add
 :$put =str
 `m]s:let [str, a] = spellbadword()
 :$put =str
+:unlet str a
 :"
 :" Postponed prefixes
 :call TestOne('2', '1')
@@ -100,6 +101,10 @@ gg:/^addstart/+1,/^addend/-1w! Xtest.latin1.add
 :" NOSLITSUGS
 :call TestOne('8', '8')
 :"
+:" clean up for valgrind
+:delfunc TestOne
+:set spl= enc=latin1
+:"
 gg:/^test output:/,$wq! test.out
 ENDTEST
 

diff --git a/src/testdir/test59.in b/src/testdir/test59.in
index bd63796835e1a7e7e23d13fb887cdb8d428cf9dd..dcdb62b283943d762e5c0ebfea646f93039e9d2e 100644 (file)
--- a/src/testdir/test59.in
+++ b/src/testdir/test59.in
@@ -90,6 +90,7 @@ gg:/^addstart/+1,/^addend/-1w! Xtest.utf-8.add
 :$put =str
 `m]s:let [str, a] = spellbadword()
 :$put =str
+:unlet str a
 :"
 :" Postponed prefixes
 :call TestOne('2', '1')
@@ -101,6 +102,10 @@ gg:/^addstart/+1,/^addend/-1w! Xtest.utf-8.add
 :call TestOne('6', '6')
 :call TestOne('7', '7')
 :"
+:" clean up for valgrind
+:delfunc TestOne
+:set spl= enc=latin1
+:"
 gg:/^test output:/,$wq! test.out
 ENDTEST
 

diff --git a/src/testdir/test60.in b/src/testdir/test60.in
index d5a0d7c28ca7405a971e957eebfc99f4554743f7..3a5b73ee6ed885d59b41c1f03b825239d51ec9ed 100644 (file)
--- a/src/testdir/test60.in
+++ b/src/testdir/test60.in
@@ -569,6 +569,9 @@ endfunction
     redir END
 endfunction
 :call TestExists()
+:delfunc TestExists
+:delfunc RunTest
+:delfunc TestFuncArg
 :edit! test.out
 :set ff=unix
 :w

diff --git a/src/testdir/test60.vim b/src/testdir/test60.vim
index 48eea4279e8e2c73e14709587f3f66d6d682424e..f1157f73f9fae52aabfd7ccdb4524508bd95fdce 100644 (file)
--- a/src/testdir/test60.vim
+++ b/src/testdir/test60.vim
@@ -94,4 +94,5 @@ if !exists('*s:my_script_func')
 else
     echo "FAILED"
 endif
+unlet str
 

diff --git a/src/testdir/test62.in b/src/testdir/test62.in
index e507c6a6b0cc5aa647bcd55313d76c21565b34f6..83def27c362fe069640d6a43fd40c114838b75c3 100644 (file)
--- a/src/testdir/test62.in
+++ b/src/testdir/test62.in
@@ -7,6 +7,7 @@ STARTTEST
 :let nr = tabpagenr()
 :q
 :call append(line('$'), 'tab page ' . nr)
+:unlet nr
 :"
 :" Open three tab pages and use ":tabdo"
 :0tabnew
@@ -23,6 +24,7 @@ STARTTEST
 :q!
 :call append(line('$'), line1)
 :call append(line('$'), line2)
+:unlet line1 line2
 :"
 :"
 :/^Results/,$w! test.out

diff --git a/src/testdir/test63.in b/src/testdir/test63.in
index 10956114c78d0f59b2d2c1e6dcb0e6262abbfdf9..74339c3e35281bad12de09aec14cb261e538a6f3 100644 (file)
--- a/src/testdir/test63.in
+++ b/src/testdir/test63.in
@@ -60,7 +60,7 @@ STARTTEST
 :else
 :  let @r .= "FAILED\n"
 :endif
-:" --- Check that "matchdelete()" returns 0 if succesfull and otherwise -1.
+:" --- Check that "matchdelete()" returns 0 if successful and otherwise -1.
 :let @r .= "*** Test 6: "
 :let m = matchadd("MyGroup1", "TODO")
 :let r1 = matchdelete(m)
@@ -117,7 +117,7 @@ STARTTEST
 :" --- Check that "setmatches()" will not add two matches with the same ID. The
 :" --- expected behaviour (for now) is to add the first match but not the
 :" --- second and to return 0 (even though it is a matter of debate whether
-:" --- this can be considered succesfull behaviour).
+:" --- this can be considered successful behaviour).
 :let @r .= "*** Test 9: "
 :let r1 = setmatches([{'group': 'MyGroup1', 'pattern': 'TODO', 'priority': 10, 'id': 1}, {'group': 'MyGroup2', 'pattern': 'FIXME', 'priority': 10, 'id': 1}])
 :if getmatches() == [{'group': 'MyGroup1', 'pattern': 'TODO', 'priority': 10, 'id': 1}] && r1 == 0
@@ -127,7 +127,7 @@ STARTTEST
 :endif
 :call clearmatches()
 :unlet r1
-:" --- Check that "setmatches()" returns 0 if succesfull and otherwise -1.
+:" --- Check that "setmatches()" returns 0 if successful and otherwise -1.
 :" --- (A range of valid and invalid input values are tried out to generate the
 :" --- return values.)
 :let @r .= "*** Test 10: "

diff --git a/src/testdir/test64.in b/src/testdir/test64.in
index aa931db645331ba1eb541826db69d25cf78d5e2e..6e953e0d1df6a86e13411f702b21cb023dc2ef69 100644 (file)
--- a/src/testdir/test64.in
+++ b/src/testdir/test64.in
@@ -44,8 +44,10 @@ STARTTEST
 :        $put ='ERROR: pat: \"' . t[0] . '\", text: \"' . t[1] . '\", submatch ' . i . ': \"' . l[i] . '\", expected: \"' . e . '\"'
 :      endif
 :    endfor
+:    unlet i
 :  endif
 :endfor
+:unlet t tl e l
 :/^Results/,$wq! test.out
 ENDTEST
 

diff --git a/src/version.c b/src/version.c
index 343ae3d03a79df7185bfc0e5256b7528d4e419ce..0f90b8b4f3d5ed090d1f76c84be4866431ee3c50 100644 (file)
--- a/src/version.c
+++ b/src/version.c
@@ -666,6 +666,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    120,
 /**/
     119,
 /**/