paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed warnings. rtl is warnings and notes free for wince and win32 again.

Browse Source 
git-svn-id: trunk@10632 -
This commit is contained in:
yury 2008-04-12 13:34:26 +00:00
parent bc50a7fd6c
commit 62e616cae0
8 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/macpas.pp
View File

@ -293,7 +293,7 @@ end;
procedure BSet(var i: cardinal; j: cardinal); {$ifdef systeminline}inline;{$endif} procedure BSet(var i: cardinal; j: cardinal); {$ifdef systeminline}inline;{$endif}
begin begin
i := i or (1 shl j); i := i or (cardinal(1) shl j);
end; end;
procedure BSet(var i: int64; j: cardinal); {$ifdef systeminline}inline;{$endif} procedure BSet(var i: int64; j: cardinal); {$ifdef systeminline}inline;{$endif}

12
rtl/inc/sockets.inc
View File

@ -235,9 +235,9 @@ begin
htonl:=host; htonl:=host;
{$else} {$else}
htonl:=THostAddr(host)[4]; htonl:=THostAddr(host)[4];
htonl:=htonl or ( (THostAddr(host)[3]) shl 8); htonl:=htonl or longint( (THostAddr(host)[3]) shl 8);
htonl:=htonl or ( (THostAddr(host)[2]) shl 16); htonl:=htonl or longint( (THostAddr(host)[2]) shl 16);
htonl:=htonl or ( (THostAddr(host)[1]) shl 24); htonl:=htonl or longint( (THostAddr(host)[1]) shl 24);
{$endif} {$endif}
end; end;
@ -248,9 +248,9 @@ begin
ntohl:=net; ntohl:=net;
{$else} {$else}
ntohl:=THostAddr(Net)[4]; ntohl:=THostAddr(Net)[4];
ntohl:=ntohl or ( (THostAddr(Net)[3]) shl 8); ntohl:=ntohl or longint( (THostAddr(Net)[3]) shl 8);
ntohl:=ntohl or ( (THostAddr(Net)[2]) shl 16); ntohl:=ntohl or longint( (THostAddr(Net)[2]) shl 16);
ntohl:=ntohl or ( (THostAddr(Net)[1]) shl 24); ntohl:=ntohl or longint( (THostAddr(Net)[1]) shl 24);
{$endif} {$endif}
end; end;

4
rtl/objpas/classes/bits.inc
View File

@ -167,7 +167,7 @@ var
begin begin
n := bit shr BITSHIFT; n := bit shr BITSHIFT;
grow(bit); grow(bit);
FBits^[n] := FBits^[n] or (longint(1) shl (bit and MASK)); FBits^[n] := FBits^[n] or (cardinal(1) shl (bit and MASK));
if bit >= FBSize then FBSize := bit; if bit >= FBSize then FBSize := bit;
end; end;
@ -223,7 +223,7 @@ end;
procedure TBits.notbits(bitset : TBits); procedure TBits.notbits(bitset : TBits);
var var
n : longint; n : longint;
jj : longint; jj : cardinal;
loop : longint; loop : longint;
begin begin
if FSize < bitset.getFSize then if FSize < bitset.getFSize then

8
rtl/objpas/strutils.pp
View File

@ -31,7 +31,7 @@ Function AnsiContainsText(const AText, ASubText: string): Boolean;
Function AnsiStartsText(const ASubText, AText: string): Boolean;inline; Function AnsiStartsText(const ASubText, AText: string): Boolean;inline;
Function AnsiEndsText(const ASubText, AText: string): Boolean;inline; Function AnsiEndsText(const ASubText, AText: string): Boolean;inline;
Function AnsiReplaceText(const AText, AFromText, AToText: string): string;inline; Function AnsiReplaceText(const AText, AFromText, AToText: string): string;inline;
Function AnsiMatchText(const AText: string; const AValues: array of string): Boolean;inline; Function AnsiMatchText(const AText: string; const AValues: array of string): Boolean;
Function AnsiIndexText(const AText: string; const AValues: array of string): Integer; Function AnsiIndexText(const AText: string; const AValues: array of string): Integer;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
@ -42,7 +42,7 @@ Function AnsiContainsStr(const AText, ASubText: string): Boolean;inline;
Function AnsiStartsStr(const ASubText, AText: string): Boolean;inline; Function AnsiStartsStr(const ASubText, AText: string): Boolean;inline;
Function AnsiEndsStr(const ASubText, AText: string): Boolean;inline; Function AnsiEndsStr(const ASubText, AText: string): Boolean;inline;
Function AnsiReplaceStr(const AText, AFromText, AToText: string): string;inline; Function AnsiReplaceStr(const AText, AFromText, AToText: string): string;inline;
Function AnsiMatchStr(const AText: string; const AValues: array of string): Boolean;inline; Function AnsiMatchStr(const AText: string; const AValues: array of string): Boolean;
Function AnsiIndexStr(const AText: string; const AValues: array of string): Integer; Function AnsiIndexStr(const AText: string; const AValues: array of string): Integer;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
@ -260,7 +260,7 @@ begin
end; end;
Function AnsiMatchText(const AText: string; const AValues: array of string): Boolean;inline; Function AnsiMatchText(const AText: string; const AValues: array of string): Boolean;
begin begin
Result:=(AnsiIndexText(AText,AValues)<>-1) Result:=(AnsiIndexText(AText,AValues)<>-1)
end; end;
@ -308,7 +308,7 @@ Result := StringReplace(AText,AFromText,AToText,[rfReplaceAll]);
end; end;
Function AnsiMatchStr(const AText: string; const AValues: array of string): Boolean;inline; Function AnsiMatchStr(const AText: string; const AValues: array of string): Boolean;
begin begin
Result:=AnsiIndexStr(AText,Avalues)<>-1; Result:=AnsiIndexStr(AText,Avalues)<>-1;
end; end;

2
rtl/objpas/sysutils/dati.inc
View File

@ -758,7 +758,7 @@ begin
else else
begin begin
Result:=(s shr 1) or (m shl 5) or (h shl 11); Result:=(s shr 1) or (m shl 5) or (h shl 11);
Result:=Result or DD shl 16 or (MM shl 21) or ((YY-1980) shl 25); Result:=Result or longint(DD shl 16 or (MM shl 21) or (word(YY-1980) shl 25));
end; end;
{$else unix} {$else unix}
Result:=LocalToEpoch(yy,mm,dd,h,m,s); Result:=LocalToEpoch(yy,mm,dd,h,m,s);

2
rtl/win/dos.pp
View File

@ -536,7 +536,7 @@ function GetShortPathName(lpszLongPath:pchar; lpszShortPath:pchar; cchBuffer:DWO
Function FSearch(path: pathstr; dirlist: string): pathstr; Function FSearch(path: pathstr; dirlist: string): pathstr;
var var
i,p1 : longint; p1 : longint;
s : searchrec; s : searchrec;
newdir : pathstr; newdir : pathstr;
begin begin

4
rtl/win/keyboard.pp
View File

@ -750,7 +750,7 @@ begin
else else
b := DosTT[t.wVirtualScanCode].n; b := DosTT[t.wVirtualScanCode].n;
if b <> 0 then if b <> 0 then
key := (key and $FFFF00FF) or (longint (b) shl 8); key := (key and $FFFF00FF) or (cardinal (b) shl 8);
end; end;
{Alt-0 to Alt-9} {Alt-0 to Alt-9}
@ -770,7 +770,7 @@ begin
else else
b := DosTT09[t.wVirtualScanCode].n; b := DosTT09[t.wVirtualScanCode].n;
if b <> 0 then if b <> 0 then
key := (key and $FFFF0000) or (longint (b) shl 8); key := (key and $FFFF0000) or (cardinal (b) shl 8);
end; end;
TranslateKey := key; TranslateKey := key;

4
rtl/wince/dos.pp
View File

@ -114,8 +114,8 @@ begin
res:=FileTimeToLocalFileTime(@WTime, @lft) and FileTimeToSystemTime(@lft, @st); res:=FileTimeToLocalFileTime(@WTime, @lft) and FileTimeToSystemTime(@lft, @st);
if res then if res then
begin begin
FatDate:=st.wDay or (st.wMonth shl 5) or ((st.wYear - 1980) shl 9); FatDate:=st.wDay or (st.wMonth shl 5) or (word(st.wYear - 1980) shl 9);
FatTime:=(st.wSecond div 2) or (st.wMinute shl 5) or (st.wHour shl 11); FatTime:=word(st.wSecond div 2) or (st.wMinute shl 5) or (st.wHour shl 11);
Longrec(Dtime).Hi:=FatDate; Longrec(Dtime).Hi:=FatDate;
Longrec(Dtime).Lo:=FatTime; Longrec(Dtime).Lo:=FatTime;
end; end;