From dbfa542fba497fa0d5767f9bfb4cc6bea455291d Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Tue, 5 Dec 2017 21:07:10 -0500
Subject: [PATCH] generate function exit cop with profiling / pragma debug 4. 
 Expected by prizm.

---
 Gen.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Gen.pas b/Gen.pas
index 79d500f..3ac42f7 100644
--- a/Gen.pas
+++ b/Gen.pas
@@ -5061,8 +5061,8 @@ procedure GenTree {op: icptr};
    if namePushed then
       GenCall(2);
 
-   {generate an exit code for the debugger's benefit}
-   if debugFlag then
+   {generate an exit code for the debugger/profiler's benefit}
+   if debugFlag or profileFlag then
       GenNative(m_cop, immediate, 4, nil, 0);
 
    {if anything needs to be removed from the stack, move the return val}