# HG changeset patch
# User Bram Moolenaar <Bram@vim.org>
# Date 1567183503 -7200
# Node ID 48fd0712dad8455c306cf03db690fd6d79878051
# Parent  a7551a81103dbbde25e3e8f987b50e0b8e525361
patch 8.1.1946: memory error when profiling a function without a script ID

Commit: https://github.com/vim/vim/commit/163588005da3a240e49416093d0d0251951d60a1
Author: Bram Moolenaar <Bram@vim.org>
Date:   Fri Aug 30 18:37:26 2019 +0200

    patch 8.1.1946: memory error when profiling a function without a script ID

    Problem:    Memory error when profiling a function without a script ID.
    Solution:   Check for missing script ID.  (closes https://github.com/vim/vim/issues/4877)

diff --git a/src/profiler.c b/src/profiler.c
--- a/src/profiler.c
+++ b/src/profiler.c
@@ -690,13 +690,16 @@ func_dump_profile(FILE *fd)
 		    fprintf(fd, "FUNCTION  <SNR>%s()\n", fp->uf_name + 3);
 		else
 		    fprintf(fd, "FUNCTION  %s()\n", fp->uf_name);
-		p = home_replace_save(NULL,
-				     get_scriptname(fp->uf_script_ctx.sc_sid));
-		if (p != NULL)
+		if (fp->uf_script_ctx.sc_sid > 0)
 		{
-		    fprintf(fd, "    Defined: %s line %ld\n",
+		    p = home_replace_save(NULL,
+				     get_scriptname(fp->uf_script_ctx.sc_sid));
+		    if (p != NULL)
+		    {
+			fprintf(fd, "    Defined: %s line %ld\n",
 					   p, (long)fp->uf_script_ctx.sc_lnum);
-		    vim_free(p);
+			vim_free(p);
+		    }
 		}
 		if (fp->uf_tm_count == 1)
 		    fprintf(fd, "Called 1 time\n");
diff --git a/src/testdir/test_profile.vim b/src/testdir/test_profile.vim
--- a/src/testdir/test_profile.vim
+++ b/src/testdir/test_profile.vim
@@ -4,6 +4,7 @@ source check.vim
 CheckFeature profile
 
 source shared.vim
+source screendump.vim
 
 func Test_profile_func()
   let lines =<< trim [CODE]
@@ -522,3 +523,29 @@ func Test_profdel_star()
   call delete('Xprofile_file.vim')
   call delete('Xprofile_file.log')
 endfunc
+
+" When typing the function it won't have a script ID, test that this works.
+func Test_profile_typed_func()
+  CheckScreendump
+
+  let lines =<< trim END
+      profile start XprofileTypedFunc
+  END
+  call writefile(lines, 'XtestProfile')
+  let buf = RunVimInTerminal('-S XtestProfile', #{})
+
+  call term_sendkeys(buf, ":func DoSomething()\<CR>"
+	\ .. "echo 'hello'\<CR>"
+	\ .. "endfunc\<CR>")
+  call term_sendkeys(buf, ":profile func DoSomething\<CR>")
+  call term_sendkeys(buf, ":call DoSomething()\<CR>")
+  call term_wait(buf, 200)
+  call StopVimInTerminal(buf)
+  let lines = readfile('XprofileTypedFunc')
+  call assert_equal("FUNCTION  DoSomething()", lines[0])
+  call assert_equal("Called 1 time", lines[1])
+
+  " clean up
+  call delete('XprofileTypedFunc')
+  call delete('XtestProfile')
+endfunc
diff --git a/src/version.c b/src/version.c
--- a/src/version.c
+++ b/src/version.c
@@ -762,6 +762,8 @@ static char *(features[]) =
 static int included_patches[] =
 {   /* Add new patch number below this line */
 /**/
+    1946,
+/**/
     1945,
 /**/
     1944,