ports/comms/cqrlog/files/patch-src_synaser.pas
Stephen Hurd e43afe1281 QRLOG is an advanced ham radio logger based on MySQL database. It provides
radio control based on hamlib libraries, DX cluster connection, band map,
QRZ.com/HamQTH.com callbook (XML access), IOTA support, a grayliner,
propagation indicator, xplanet support (maps in azimuthal projection centered
in your QTH), OK1RR free QSL manager database etc.

Reviewed by:	db, skreuzer
Approved by:	db, skreuzer (mentors)
Differential Revision:	https://phabric.freebsd.org/D313
2014-07-07 18:43:59 +00:00

65 lines
1.9 KiB
ObjectPascal

--- src/synaser.pas.orig 2014-06-30 22:04:41.000000000 -0700
+++ src/synaser.pas 2014-06-30 22:21:53.000000000 -0700
@@ -302,7 +302,7 @@
procedure DcbToTermios(const dcb: TDCB; var term: termios); virtual;
procedure TermiosToDcb(const term: termios; var dcb: TDCB); virtual;
{$ENDIF}
-{$IFDEF LINUX}
+{$IFDEF UNIX}
function ReadLockfile: integer; virtual;
function LockfileName: String; virtual;
procedure CreateLockfile(PidNr: integer); virtual;
@@ -591,7 +591,7 @@
{:Raise Synaser error with ErrNumber code. Usually used by internal routines.}
procedure RaiseSynaError(ErrNumber: integer); virtual;
-{$IFDEF LINUX}
+{$IFDEF UNIX}
function cpomComportAccessible: boolean; virtual;{HGJ}
procedure cpomReleaseComport; virtual; {HGJ}
{$ENDIF}
@@ -766,7 +766,7 @@
end;
if InstanceActive then
begin
- {$IFDEF LINUX}
+ {$IFDEF UNIX}
if FLinuxLock then
cpomReleaseComport;
{$ENDIF}
@@ -917,7 +917,7 @@
FHandle := THandle(fpOpen(FDevice, O_RDWR or O_SYNC));
{$ENDIF}
SerialCheck(integer(FHandle));
- {$IFDEF LINUX}
+ {$IFDEF UNIX}
if FLastError <> sOK then
if FLinuxLock then
cpomReleaseComport;
@@ -949,7 +949,7 @@
begin
SetSynaError(ErrNoDeviceAnswer);
FileClose(integer(FHandle)); {HGJ}
- {$IFDEF LINUX}
+ {$IFDEF UNIX}
if FLinuxLock then
cpomReleaseComport; {HGJ}
{$ENDIF} {HGJ}
@@ -1899,7 +1899,7 @@
{$IFNDEF FPC}
SerialCheck(ioctl(integer(FHandle), TCFLSH, TCIOFLUSH));
{$ELSE}
- SerialCheck(fpioctl(integer(FHandle), TCFLSH, Pointer(PtrInt(TCIOFLUSH))));
+ SerialCheck(TCFlush(integer(FHandle), TCIOFLUSH));
//SerialCheck(fpioctl(integer(FHandle), TCFLSH, TCIOFLUSH));
{$ENDIF}
FBuffer := '';
@@ -2136,7 +2136,7 @@
Ownership Manager.
}
-{$IFDEF LINUX}
+{$IFDEF UNIX}
function TBlockSerial.LockfileName: String;
var