From 67cd67f1818d715e625cbdf0ac8b115d65e9327f Mon Sep 17 00:00:00 2001 From: geby Date: Thu, 11 Apr 2013 11:39:39 +0000 Subject: [PATCH] synaser.pas - FPC FreeBSD patch (bug: 3608998) git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@183 7c85be65-684b-0410-a082-b2ed4fbef004 --- synaser.pas | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/synaser.pas b/synaser.pas index 2ccf03c..c1818ab 100644 --- a/synaser.pas +++ b/synaser.pas @@ -1,9 +1,9 @@ {==============================================================================| -| Project : Ararat Synapse | 007.005.004 | +| Project : Ararat Synapse | 007.005.005 | |==============================================================================| | Content: Serial port support | |==============================================================================| -| Copyright (c)2001-2012, Lukas Gebauer | +| Copyright (c)2001-2013, 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)2001-2012. | +| Portions created by Lukas Gebauer are Copyright (c)2001-2013. | | All Rights Reserved. | |==============================================================================| | Contributor(s): | @@ -245,7 +245,7 @@ const ); {$ENDIF} -{$IFDEF DARWIN} +{$IFDEF BSD} const // From fcntl.h O_SYNC = $0080; { synchronous writes } {$ENDIF} @@ -1944,7 +1944,7 @@ begin {$IFDEF DARWIN} SerialCheck(fpioctl(FHandle, TCIOflush, TCIOFLUSH)); {$ELSE} - SerialCheck(fpioctl(FHandle, TCFLSH, Pointer(PtrInt(TCIOFLUSH)))); + SerialCheck(fpioctl(FHandle, {$IFDEF FreeBSD}TCIOFLUSH{$ELSE}TCFLSH{$ENDIF}, Pointer(PtrInt(TCIOFLUSH)))); {$ENDIF} {$ENDIF} FBuffer := ''; @@ -2333,4 +2333,4 @@ begin end; {$ENDIF} -end. +end. \ No newline at end of file