small "warning" issues

git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@230 7c85be65-684b-0410-a082-b2ed4fbef004
2021-06-23 14:35:01 +00:00
parent 6c49b09f77
commit 50da81cea8
2 changed files with 1 additions and 3 deletions
--- a/blcksock.pas
+++ b/blcksock.pas
@@ -102,9 +102,7 @@ interface

 uses
  SysUtils, Classes,
-{$IFDEF FPC}
  synafpc,
-{$ENDIF}
  synsock, synautil, synacode, synaip
 {$IFDEF CIL}
  ,System.Net
--- a/synaser.pas
+++ b/synaser.pas
@@ -2098,7 +2098,7 @@ begin
        break;
      if s = 'NO DIALTONE' then
        break;
-      if Pos('CONNECT', s) = 1 then
+      if Pos('CONNECT', {$IFDEF UNICODE} string {$ENDIF} (s)) = 1 then
      begin
        FAtResult := True;
        break;