Changeset 337 for Network/synapse/synadbg.pas

Timestamp:

Feb 27, 2012, 11:48:10 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Compilation error in synapse package.

File:

• Network/synapse/synadbg.pas (modified) (2 diffs)

Network/synapse/synadbg.pas

@@ -127 +127 @@
     s := '-unknown-';
   end;
-  s := inttohex(integer(Sender), 8) + s + ': ' + value + CRLF;
+  s := inttohex(integer(Pointer(Sender)), 8) + s + ': ' + value + CRLF;
   AppendToLog(s);
 end;
@@ -141 +141 @@
   else
     d := '<- ';
-  s :=inttohex(integer(Sender), 8) + d + s + CRLF;
+  s :=inttohex(integer(Pointer(Sender)), 8) + d + s + CRLF;
   AppendToLog(s);
 end;