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

* fix headers of fpc_mul helpers

Browse Source 
git-svn-id: branches/avr@17029 -
This commit is contained in:
florian 2011-02-26 21:01:27 +00:00
parent acac3ce37c
commit 0bc3ec2b8a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/generic.inc
View File

@ -1335,7 +1335,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_MUL_WORD} {$ifndef FPC_SYSTEM_HAS_MUL_WORD}
function fpc_mul_word(f1,f2 : word;checkoverflow : boolean) : qword;[public,alias: 'FPC_MUL_WORD']; compilerproc; function fpc_mul_word(f1,f2 : word;checkoverflow : boolean) : word;[public,alias: 'FPC_MUL_WORD']; compilerproc;
var var
_f1,bitpos : word; _f1,bitpos : word;
b : byte; b : byte;
@ -1414,7 +1414,7 @@ end;
{ multiplies two dwords { multiplies two dwords
the longbool for checkoverflow avoids a misaligned stack the longbool for checkoverflow avoids a misaligned stack
} }
function fpc_mul_dword(f1,f2 : dword;checkoverflow : boolean) : qword;[public,alias: 'FPC_MUL_DWORD']; compilerproc; function fpc_mul_dword(f1,f2 : dword;checkoverflow : boolean) : dword;[public,alias: 'FPC_MUL_DWORD']; compilerproc;
var var
_f1,bitpos : dword; _f1,bitpos : dword;
b : byte; b : byte;