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

* Fixed warning and notes.

Browse Source 
git-svn-id: trunk@10899 -
This commit is contained in:
yury 2008-05-07 12:35:03 +00:00
parent e2634e0b8d
commit d1dd8bd928
3 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/generic.inc
View File

@ -1711,7 +1711,7 @@ function SwapEndian(const AValue: SmallInt): SmallInt;
{ is turned into "longint(AValue) shr 8", so if AValue < 0 then } { is turned into "longint(AValue) shr 8", so if AValue < 0 then }
{ the sign bits from the upper 16 bits are shifted in rather than } { the sign bits from the upper 16 bits are shifted in rather than }
{ zeroes. } { zeroes. }
Result := SmallInt((Word(AValue) shr 8) or (AValue shl 8)); Result := SmallInt((Word(AValue) shr 8) or (Word(AValue) shl 8));
end; end;

1
rtl/win32/system.pp
View File

@ -1014,7 +1014,6 @@ Function ErrorWrite(Var F: TextRec): Integer;
An error message should always end with #13#10#13#10 An error message should always end with #13#10#13#10
} }
var var
p : pchar;
i : longint; i : longint;
Begin Begin
while F.BufPos>0 do while F.BufPos>0 do

1
rtl/wince/system.pp
View File

@ -1674,7 +1674,6 @@ Function ErrorWrite(Var F: TextRec): Integer;
An error message should always end with #13#10#13#10 An error message should always end with #13#10#13#10
} }
var var
p : pchar;
i : longint; i : longint;
Begin Begin
while F.BufPos>0 do while F.BufPos>0 do