[Synalist] Compiling with 64-bit FPC 2.5.1

[Juha (gmail)]

The attached patch makes synapse compile with 64-bit FPC 2.5.1.
It is made against synapse trunk.

Juha Manninen

Index: synaser.pas
===================================================================
--- synaser.pas	(revision 137)
+++ synaser.pas	(working copy)
@@ -1938,7 +1938,7 @@
     {$IFDEF DARWIN}
     SerialCheck(fpioctl(FHandle, TCIOflush, TCIOFLUSH));
     {$ELSE}
-    SerialCheck(fpioctl(FHandle, TCFLSH, TCIOFLUSH));
+    SerialCheck(fpioctl(FHandle, TCFLSH, Pointer(PtrInt(TCIOFLUSH))));
     {$ENDIF}
   {$ENDIF}
   FBuffer := '';
@@ -2336,4 +2336,4 @@
 end;
 {$ENDIF}
 
-end.
+end.
Index: synadbg.pas
===================================================================
--- synadbg.pas	(revision 137)
+++ synadbg.pas	(working copy)
@@ -130,7 +130,7 @@
   else
     s := '-unknown-';
   end;
-  s := inttohex(integer(Sender), 8) + s + ': ' + value + CRLF;
+  s := inttohex(PtrInt(Sender), 8) + s + ': ' + value + CRLF;
   AppendToLog(s);
 end;
 
@@ -144,7 +144,7 @@
     d := '-> '
   else
     d := '<- ';
-  s :=inttohex(integer(Sender), 8) + d + s + CRLF;
+  s :=inttohex(PtrInt(Sender), 8) + d + s + CRLF;
   AppendToLog(s);
 end;
 
@@ -153,4 +153,4 @@
   Logfile := changefileext(paramstr(0), '.slog');
 end;
 
-end.
+end.

------------------------------------------------------------------------------
Create and publish websites with WebMatrix
Use the most popular FREE web apps or write code yourself; 
WebMatrix provides all the features you need to develop and 
publish your website. http://p.sf.net/sfu/ms-webmatrix-sf

_______________________________________________
synalist-public mailing list
synalist-public@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/synalist-public