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

* Fixed unreachable code warnings and removed not used variable.

Browse Source 
git-svn-id: trunk@9036 -
This commit is contained in:
yury 2007-11-01 13:28:08 +00:00
parent 53a67341e9
commit 2770652beb
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/generic.inc
View File

@ -168,8 +168,9 @@ begin
if Count>4*sizeof(ptruint)-1 then
begin
v:=(value shl 16) or value;
if sizeof(ptruint)=8 then
v:=(v shl 32) or v;
{$ifdef CPU64}
v:=(v shl 32) or v;
{$endif CPU64}
{ Align on native pointer size }
aligncount:=(PtrUInt(pdest) and (sizeof(PtrUInt)-1)) shr 1;
dec(count,aligncount);
@ -211,8 +212,9 @@ begin
if Count>4*sizeof(ptruint)-1 then
begin
v:=value;
if sizeof(ptruint)=8 then
v:=(v shl 32) or v;
{$ifdef CPU64}
v:=(v shl 32) or v;
{$endif CPU64}
{ Align on native pointer size }
aligncount:=(PtrUInt(pdest) and (sizeof(PtrUInt)-1)) shr 2;
dec(count,aligncount);
@ -617,7 +619,6 @@ end;
{$ifndef FPC_SYSTEM_HAS_COMPARECHAR0}
function CompareChar0(Const buf1,buf2;len:SizeInt):SizeInt;
var
aligncount : sizeint;
psrc,pdest,pend : pbyte;
b : ptrint;
begin