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

* remove unused constants

Browse Source 
git-svn-id: trunk@43351 -
This commit is contained in:
florian 2019-11-01 18:39:17 +00:00
parent 701848889e
commit 828e961f3d
1 changed files with 6 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/inc/generic.inc
View File

@ -1572,7 +1572,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_MUL_BYTE}
function fpc_mul_byte(f1,f2 : byte) : byte;[public,alias: 'FPC_MUL_BYTE']; compilerproc;
var
_f1, bitpos : byte;
bitpos : byte;
b : byte;
begin
fpc_mul_byte := 0;
@ -1581,10 +1581,7 @@ end;
for b := 0 to 7 do
begin
if (f2 and bitpos) <> 0 then
begin
_f1 := fpc_mul_byte;
fpc_mul_byte := fpc_mul_byte + f1;
end;
fpc_mul_byte := fpc_mul_byte + f1;
f1 := f1 shl 1;
bitpos := bitpos shl 1;
end;
@ -1677,7 +1674,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_MUL_WORD}
function fpc_mul_word(f1,f2 : word) : word;[public,alias: 'FPC_MUL_WORD']; compilerproc;
var
_f1,bitpos : word;
bitpos : word;
b : byte;
begin
fpc_mul_word:=0;
@ -1686,10 +1683,7 @@ end;
for b:=0 to 15 do
begin
if (f2 and bitpos)<>0 then
begin
_f1:=fpc_mul_word;
fpc_mul_word:=fpc_mul_word+f1;
end;
fpc_mul_word:=fpc_mul_word+f1;
f1:=f1 shl 1;
bitpos:=bitpos shl 1;
end;
@ -1783,7 +1777,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_MUL_DWORD}
function fpc_mul_dword(f1,f2 : dword) : dword;[public,alias: 'FPC_MUL_DWORD']; compilerproc;
var
_f1,bitpos : dword;
bitpos : dword;
b : byte;
begin
fpc_mul_dword:=0;
@ -1792,10 +1786,7 @@ end;
for b:=0 to 31 do
begin
if (f2 and bitpos)<>0 then
begin
_f1:=fpc_mul_dword;
fpc_mul_dword:=fpc_mul_dword+f1;
end;
fpc_mul_dword:=fpc_mul_dword+f1;
f1:=f1 shl 1;
bitpos:=bitpos shl 1;
end;