Changeset 113 for trunk/Packages/synapse


Ignore:
Timestamp:
Oct 16, 2015, 9:14:25 PM (9 years ago)
Author:
chronos
Message:
  • Fixed: Release build mode paths.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        66ZdechovNET.lps
        77heaptrclog.trc
         8index.dbg

  • trunk/Packages/synapse/synadbg.pas

    r84 r113  
    127127    s := '-unknown-';
    128128  end;
    129   s := inttohex(integer(Sender), 8) + s + ': ' + value + CRLF;
     129  s := inttohex(integer(Pointer(Sender)), 8) + s + ': ' + value + CRLF;
    130130  AppendToLog(s);
    131131end;
    … …  
    141141  else
    142142    d := '<- ';
    143   s :=inttohex(integer(Sender), 8) + d + s + CRLF;
     143  s :=inttohex(integer(Pointer(Sender)), 8) + d + s + CRLF;
    144144  AppendToLog(s);
    145145end;
Note: See TracChangeset for help on using the changeset viewer.