From 8ede4f46a11273ba0171d06b704348e21a3dc2ea Mon Sep 17 00:00:00 2001 From: bergmann Date: Thu, 13 Apr 2017 00:58:59 +0200 Subject: [PATCH] * fixed some compiler warnings in linux --- uutlCommon.pas | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/uutlCommon.pas b/uutlCommon.pas index 0fe9dd1..ebdcad7 100644 --- a/uutlCommon.pas +++ b/uutlCommon.pas @@ -415,7 +415,7 @@ begin P:= PChar(Value); if fSkipDelims then begin while (P^<>#0) and (P^=Delimiter) do begin - P:= CharNext(P); + {$IFDEF LINUX}inc(P){$ELSE}P:= CharNext(P){$ENDIF}; end; end; while (P^<>#0) do begin @@ -424,19 +424,19 @@ begin end else begin P1:= P; while (P^<>#0) and (P^<>Delimiter) do begin - P:= CharNext(P); + {$IFDEF LINUX}inc(P){$ELSE}P:= CharNext(P){$ENDIF}; end; SetString(S, P1, P - P1); end; Add(S); while (P^<>#0) and (P^<>Delimiter) do begin - P:= CharNext(P); + {$IFDEF LINUX}inc(P){$ELSE}P:= CharNext(P){$ENDIF}; end; if (P^<>#0) then - P:= CharNext(P); + {$IFDEF LINUX}inc(P){$ELSE}P:= CharNext(P){$ENDIF}; if fSkipDelims then begin while (P^<>#0) and (P^=Delimiter) do begin - P:= CharNext(P); + {$IFDEF LINUX}inc(P){$ELSE}P:= CharNext(P){$ENDIF}; end; end; end;