1. Description

Memory leaks when doing an EXECUTE.

2. Previous Release Behavior

0001     PROGRAM execute_test
0002     memory_results = ""
0003     number_of_iterations = 5000
0004
0005     FOR i = 1 TO number_of_iterations
0006         EXECUTE "memory_test" CAPTURING memory_usage
0007         memory_results<-1> = memory_usage
0008     NEXT i
0009
0010     starting_memory = memory_results<1>
0011     ending_memory = memory_results<DCOUNT(memory_results, @AM)>
0012     growth = ((ending_memory - starting_memory) / starting_memory) * 100
0013
0014     CRT "Number of EXECUTE iterations: " : number_of_iterations
0015     CRT "Starting memory: " : starting_memory "MR0,#10"
0016     CRT "Ending memory:   " : ending_memory "MR0,#10"
0017     CRT "Growth: " : growth : "%"

0001     PROGRAM memory_test
0002     big_variable = STR("x", PWR(2, 20))
0003     CRT SYSTEM(1013)<4> + SYSTEM(1013)<3>

Results:

Number of EXECUTE iterations: 5000
Starting memory:  1,454,898
Ending memory:   11,797,359
Growth: 710.87%

3. Current Release Behavior

Results:

Number of EXECUTE iterations: 5000
Starting memory:  1,447,859
Ending memory:    1,507,376
Growth: 4.11%