diff --git a/synadbg.pas b/synadbg.pas
index a8e7f26..6f60f4c 100644
--- a/synadbg.pas
+++ b/synadbg.pas
@@ -1,9 +1,9 @@
 {==============================================================================|
-| Project : Ararat Synapse                                       | 001.001.001 |
+| Project : Ararat Synapse                                       | 001.001.002 |
 |==============================================================================|
 | Content: Socket debug tools                                                  |
 |==============================================================================|
-| Copyright (c)2008-2010, Lukas Gebauer                                        |
+| Copyright (c)2008-2011, Lukas Gebauer                                        |
 | All rights reserved.                                                         |
 |                                                                              |
 | Redistribution and use in source and binary forms, with or without           |
@@ -33,7 +33,7 @@
 | DAMAGE.                                                                      |
 |==============================================================================|
 | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
-| Portions created by Lukas Gebauer are Copyright (c)2008-2010.                |
+| Portions created by Lukas Gebauer are Copyright (c)2008-2011.                |
 | All Rights Reserved.                                                         |
 |==============================================================================|
 | Contributor(s):                                                              |
@@ -57,7 +57,7 @@ unit synadbg;
 interface
 
 uses
-  blcksock, synsock, synautil, classes, sysutils;
+  blcksock, synsock, synautil, classes, sysutils, synafpc;
 
 type
   TSynaDebug = class(TObject)
@@ -130,7 +130,7 @@ begin
   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 @@ begin
     d := '-> '
   else
     d := '<- ';
-  s :=inttohex(integer(Sender), 8) + d + s + CRLF;
+  s :=inttohex(PtrInt(Sender), 8) + d + s + CRLF;
   AppendToLog(s);
 end;
 
diff --git a/synafpc.pas b/synafpc.pas
index cd39e70..04e8358 100644
--- a/synafpc.pas
+++ b/synafpc.pas
@@ -1,9 +1,9 @@
 {==============================================================================|
-| Project : Ararat Synapse                                       | 001.001.002 |
+| Project : Ararat Synapse                                       | 001.002.000 |
 |==============================================================================|
 | Content: Utils for FreePascal compatibility                                  |
 |==============================================================================|
-| Copyright (c)1999-2010, Lukas Gebauer                                        |
+| Copyright (c)1999-2011, Lukas Gebauer                                        |
 | All rights reserved.                                                         |
 |                                                                              |
 | Redistribution and use in source and binary forms, with or without           |
@@ -33,7 +33,7 @@
 | DAMAGE.                                                                      |
 |==============================================================================|
 | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).|
-| Portions created by Lukas Gebauer are Copyright (c)2003-2010.                |
+| Portions created by Lukas Gebauer are Copyright (c)2003-2011.                |
 | All Rights Reserved.                                                         |
 |==============================================================================|
 | Contributor(s):                                                              |
@@ -82,8 +82,12 @@ function GetModuleFileName(Module: TLibHandle; Buffer: PChar; BufLen: Integer):
 type
   {$IFDEF CIL}
   TLibHandle = Integer;
+  PtrInt = Integer;
   {$ELSE}
   TLibHandle = HModule;
+    {$IFNDEF WIN64}
+  PtrInt = Integer;
+    {$ENDIF}
   {$ENDIF}
   {$IFDEF VER100}
   LongWord = DWord;
diff --git a/synaser.pas b/synaser.pas
index f8ee6c8..3628a36 100644
--- a/synaser.pas
+++ b/synaser.pas
@@ -1,5 +1,5 @@
 {==============================================================================|
-| Project : Ararat Synapse                                       | 007.005.001 |
+| Project : Ararat Synapse                                       | 007.005.002 |
 |==============================================================================|
 | Content: Serial port support                                                 |
 |==============================================================================|
@@ -1938,7 +1938,7 @@ begin
     {$IFDEF DARWIN}
     SerialCheck(fpioctl(FHandle, TCIOflush, TCIOFLUSH));
     {$ELSE}
-    SerialCheck(fpioctl(FHandle, TCFLSH, TCIOFLUSH));
+    SerialCheck(fpioctl(FHandle, TCFLSH, Pointer(PtrInt(TCIOFLUSH))));
     {$ENDIF}
   {$ENDIF}
   FBuffer := '';