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
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
