home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / patches / 6.1.103 < prev    next >
Encoding:
Internet Message Format  |  2002-06-22  |  3.9 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 6.1.103
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. MIME-Version: 1.0
  6. Content-Type: text/plain; charset=ISO-8859-1
  7. Content-Transfer-Encoding: 8bit
  8. ------------
  9.  
  10. Patch 6.1.103
  11. Problem:    A function returning from a while loop, with 'verbose' set to 12
  12.         or higher, doesn't mention the return value.  A function with the
  13.         'abort' attribute may return -1 while the verbose message says
  14.         something else.
  15. Solution:   Move the verbose message about returning from a function to
  16.         call_func(). (Servatius Brandt)
  17. Files:        src/eval.c
  18.  
  19.  
  20. *** ../vim61.102/src/eval.c    Tue Jun 18 21:33:22 2002
  21. --- src/eval.c    Tue Jun 18 19:32:53 2002
  22. ***************
  23. *** 8241,8246 ****
  24. --- 8247,8277 ----
  25.                        DOCMD_NOWAIT|DOCMD_VERBOSE|DOCMD_REPEAT);
  26.   
  27.       --RedrawingDisabled;
  28. + 
  29. +     /* when the function was aborted because of an error, return -1 */
  30. +     if ((did_emsg && (fp->flags & FC_ABORT)) || retvar->var_type == VAR_UNKNOWN)
  31. +     {
  32. +     clear_var(retvar);
  33. +     retvar->var_type = VAR_NUMBER;
  34. +     retvar->var_val.var_number = -1;
  35. +     }
  36. + 
  37. +     /* when being verbose, mention the return value */
  38. +     if (p_verbose >= 12)
  39. +     {
  40. +     ++no_wait_return;
  41. +     msg_scroll = TRUE;        /* always scroll up, don't overwrite */
  42. +     if (fc.retvar->var_type == VAR_NUMBER)
  43. +         smsg((char_u *)_("%s returning #%ld"), sourcing_name,
  44. +                        (long)fc.retvar->var_val.var_number);
  45. +     else if (fc.retvar->var_type == VAR_STRING)
  46. +         smsg((char_u *)_("%s returning \"%s\""), sourcing_name,
  47. +                          get_var_string(fc.retvar));
  48. +     msg_puts((char_u *)"\n");   /* don't overwrite this either */
  49. +     cmdline_row = msg_row;
  50. +     --no_wait_return;
  51. +     }
  52. + 
  53.       vim_free(sourcing_name);
  54.       sourcing_name = save_sourcing_name;
  55.       sourcing_lnum = save_sourcing_lnum;
  56. ***************
  57. *** 8256,8268 ****
  58.       --no_wait_return;
  59.       }
  60.   
  61. -     /* when the function was aborted because of an error, return -1 */
  62. -     if ((did_emsg && (fp->flags & FC_ABORT)) || retvar->var_type == VAR_UNKNOWN)
  63. -     {
  64. -     clear_var(retvar);
  65. -     retvar->var_type = VAR_NUMBER;
  66. -     retvar->var_val.var_number = -1;
  67. -     }
  68.       did_emsg |= save_did_emsg;
  69.       current_funccal = save_fcp;
  70.   
  71. --- 8287,8292 ----
  72. ***************
  73. *** 8375,8395 ****
  74.       {
  75.       retval = vim_strsave(((char_u **)(gap->ga_data))[fcp->linenr++]);
  76.       sourcing_lnum = fcp->linenr;
  77. -     }
  78. - 
  79. -     if (p_verbose >= 12 && retval == NULL)
  80. -     {
  81. -     ++no_wait_return;
  82. -     msg_scroll = TRUE;        /* always scroll up, don't overwrite */
  83. -     if (fcp->retvar->var_type == VAR_NUMBER)
  84. -         smsg((char_u *)_("%s returning #%ld"), sourcing_name,
  85. -                        (long)fcp->retvar->var_val.var_number);
  86. -     else if (fcp->retvar->var_type == VAR_STRING)
  87. -         smsg((char_u *)_("%s returning \"%s\""), sourcing_name,
  88. -                          get_var_string(fcp->retvar));
  89. -     msg_puts((char_u *)"\n");   /* don't overwrite this either */
  90. -     cmdline_row = msg_row;
  91. -     --no_wait_return;
  92.       }
  93.   
  94.       /* Did we encounter a breakpoint? */
  95. --- 8399,8404 ----
  96. *** ../vim61.102/src/version.c    Sun Jun 23 13:05:10 2002
  97. --- src/version.c    Sun Jun 23 13:07:11 2002
  98. ***************
  99. *** 608,609 ****
  100. --- 608,611 ----
  101.   {   /* Add new patch number below this line */
  102. + /**/
  103. +     103,
  104.   /**/
  105.  
  106. -- 
  107.        When danger reared its ugly head,
  108.        He bravely turned his tail and fled
  109.        Yes, Brave Sir Robin turned about
  110.        And gallantly he chickened out
  111.        Bravely taking to his feet
  112.        He beat a very brave retreat
  113.        Bravest of the brave Sir Robin
  114.        Petrified of being dead
  115.        Soiled his pants then brave Sir Robin
  116.        Turned away and fled.
  117.                  "Monty Python and the Holy Grail" PYTHON (MONTY) PICTURES LTD
  118.  
  119.  ///  Bram Moolenaar -- Bram@moolenaar.net -- http://www.moolenaar.net  \\\
  120. ///   Creator of Vim -- http://vim.sf.net -- ftp://ftp.vim.org/pub/vim   \\\
  121. \\\           Project leader for A-A-P -- http://www.a-a-p.org           ///
  122.  \\\  Help me helping AIDS orphans in Uganda - http://iccf-holland.org  ///
  123.