Changeset 113 for trunk/Packages/synapse/synadbg.pas
- Timestamp:
- Oct 16, 2015, 9:14:25 PM (9 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk
- Property svn:ignore
-
old new 6 6 ZdechovNET.lps 7 7 heaptrclog.trc 8 index.dbg
-
- Property svn:ignore
-
trunk/Packages/synapse/synadbg.pas
r84 r113 127 127 s := '-unknown-'; 128 128 end; 129 s := inttohex(integer( Sender), 8) + s + ': ' + value + CRLF;129 s := inttohex(integer(Pointer(Sender)), 8) + s + ': ' + value + CRLF; 130 130 AppendToLog(s); 131 131 end; … … 141 141 else 142 142 d := '<- '; 143 s :=inttohex(integer( Sender), 8) + d + s + CRLF;143 s :=inttohex(integer(Pointer(Sender)), 8) + d + s + CRLF; 144 144 AppendToLog(s); 145 145 end;
Note:
See TracChangeset
for help on using the changeset viewer.