Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-12-22 07:30:54 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #46 from ksherlock/profile_flag_exit

Browse Source 
generate function exit cop with profiling / #pragma debug 4.
This commit is contained in:
Stephen Heumann 2017-12-07 20:31:45 -06:00 committed by GitHub
commit 89f4257742
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Gen.pas
View File

@ -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}