Kaynağa Gözat

* fixed some compiler warnings in linux

master
bergmann 9 yıl önce
committed by Bergmann89
ebeveyn
işleme
8ede4f46a1
1 değiştirilmiş dosya ile 5 ekleme ve 5 silme
  1. +5
    -5
      uutlCommon.pas

+ 5
- 5
uutlCommon.pas Dosyayı Görüntüle

@@ -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;


Yükleniyor…
İptal
Kaydet