paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 09:29:13 +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}
begin
i := i or (1 shl j);
i := i or (cardinal(1) shl j);
end;
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;
{$else}
htonl:=THostAddr(host)[4];
htonl:=htonl or ( (THostAddr(host)[3]) shl 8);
htonl:=htonl or ( (THostAddr(host)[2]) shl 16);
htonl:=htonl or ( (THostAddr(host)[1]) shl 24);
htonl:=htonl or longint( (THostAddr(host)[3]) shl 8);
htonl:=htonl or longint( (THostAddr(host)[2]) shl 16);
htonl:=htonl or longint( (THostAddr(host)[1]) shl 24);
{$endif}
end;
@ -248,9 +248,9 @@ begin
ntohl:=net;
{$else}
ntohl:=THostAddr(Net)[4];
ntohl:=ntohl or ( (THostAddr(Net)[3]) shl 8);
ntohl:=ntohl or ( (THostAddr(Net)[2]) shl 16);
ntohl:=ntohl or ( (THostAddr(Net)[1]) shl 24);
ntohl:=ntohl or longint( (THostAddr(Net)[3]) shl 8);
ntohl:=ntohl or longint( (THostAddr(Net)[2]) shl 16);
ntohl:=ntohl or longint( (THostAddr(Net)[1]) shl 24);
{$endif}
end;

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

@ -167,7 +167,7 @@ var
begin
n := bit shr BITSHIFT;
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;
end;
@ -223,7 +223,7 @@ end;
procedure TBits.notbits(bitset : TBits);
var
n : longint;
jj : longint;
jj : cardinal;
loop : longint;
begin
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 AnsiEndsText(const ASubText, AText: string): Boolean;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;
{ ---------------------------------------------------------------------
@ -42,7 +42,7 @@ Function AnsiContainsStr(const AText, ASubText: string): Boolean;inline;
Function AnsiStartsStr(const ASubText, AText: string): Boolean;inline;
Function AnsiEndsStr(const ASubText, AText: string): Boolean;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;
{ ---------------------------------------------------------------------
@ -260,7 +260,7 @@ begin
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
Result:=(AnsiIndexText(AText,AValues)<>-1)
end;
@ -308,7 +308,7 @@ Result := StringReplace(AText,AFromText,AToText,[rfReplaceAll]);
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
Result:=AnsiIndexStr(AText,Avalues)<>-1;
end;

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

@ -758,7 +758,7 @@ begin
else
begin
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;
{$else unix}
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;
var
i,p1 : longint;
p1 : longint;
s : searchrec;
newdir : pathstr;
begin

4
rtl/win/keyboard.pp
View File

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

4
rtl/wince/dos.pp
View File

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