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

rtl: remove unused variables

Browse Source 
git-svn-id: trunk@23275 -
This commit is contained in:
paul 2013-01-01 16:31:31 +00:00
parent 4d6471fef6
commit 431ce7afc8
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/generic.inc
View File

@ -2456,8 +2456,6 @@ const
PopCntData : array[0..15] of byte = (0,1,1,2,1,2,2,3,1,2,2,3,2,3,3,4);
function fpc_PopCnt_byte(AValue : Byte): Byte;[Public,Alias:'FPC_POPCNT_BYTE'];compilerproc;
var
i : SizeInt;
begin
Result:=PopCntData[AValue and $f]+PopCntData[(AValue shr 4) and $f];
end;
@ -2491,10 +2489,10 @@ function fpc_PopCnt_dword(AValue : DWord): DWord;[Public,Alias:'FPC_POPCNT_DWORD
{$ifndef FPC_SYSTEM_HAS_POPCNT_QWORD}
function fpc_PopCnt_qword(AValue : QWord): QWord;[Public,Alias:'FPC_POPCNT_QWORD'];compilerproc;
{$ifdef VER2_6}
var
i : SizeInt;
begin
{$ifdef VER2_6}
Result:=0;
for i:=0 to 15 do
begin
@ -2502,6 +2500,7 @@ function fpc_PopCnt_qword(AValue : QWord): QWord;[Public,Alias:'FPC_POPCNT_QWORD
AValue:=AValue shr 4;
end;
{$else VER2_6}
begin
Result:=PopCnt(lo(AValue))+PopCnt(hi(AValue))
{$endif VER2_6}
end;