Changeset 78 for trunk/Target


Ignore:
Timestamp:
Jan 1, 2017, 12:59:53 AM (8 years ago)
Author:
chronos
Message:
  • Modified: Show only really used memory.
  • Added: Check memory leaks in Debug build mode.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        55LazFuck
        66compiled
         7heaptrclog.trc

  • trunk/Target/UTargetInterpretter.pas

    r72 r78  
    228228  if MemoryPosition < MemorySize then Inc(MemoryPosition, FProgram[FProgramIndex].Parameter)
    229229    else raise Exception.Create(SProgramUpperLimit);
     230  if MemoryPosition > MemoryMaxUsed then
     231    MemoryMaxUsed := MemoryPosition;
    230232end;
    231233
    … …  
    253255  OutputPosition := 1;
    254256  MemoryPosition := 0;
     257  MemoryMaxUsed := 0;
    255258  //FillChar(Pointer(Memory)^, Length(Memory), 0);
    256259  for I := 0 to Length(Memory) - 1 do
Note: See TracChangeset for help on using the changeset viewer.