mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 17:47:50 +02:00
8a95a04e16
in the system unit for easier debugging)
* disabled a bunch more feature flags by default for the JVM target
* incorporate modified version of inc/systemh.inc (split into two parts:
jsystemh_types.inc and jsystemh.inc, because some of the types are
required for the declaration of the shortstring/ansistring/set/...
classes, which in turn are required for the routine declarations) and
inc/system.inc (as jsystem.inc)
o moved some routines around from old to new locations based on where
they appear in the common files
o added a number of defines that allow skipping more common implementations
in case a platform-specific one is already available
* all base classes (AnsistringClass etc) are now descendants of
JLObject rather than TObject, because their declaration is now parsed
before TObject is known (and there's no need for them to inherit from
TObject)
* incorporate modified version of inc/system.inc
* use the common version of generic.inc, currh.inc, gencurr.inc and
genmath.inc (with small modification to those files)
+ addition of quite a bit of system unit functionality (halt, runerror,
random, round, str() for integer types, abs, odd, endian swapping helpers,
bit scanning, trigonometric functions, ln, exp, ...)
o round()/trunc() for comp-types has been renamed trunc_comp() on the
JVM target because their JVM signature conflicts with trunc(currency)
o the unsigned versions of swapendian() and other endian helpers are not
available on the JVM target because of JVM signature conflicts
git-svn-id: branches/jvmbackend@18746 -
58 lines
1.8 KiB
PHP
58 lines
1.8 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1999-2000 by the Free Pascal development team
|
|
|
|
This file contains some helper routines for qword
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
{$Q- no overflow checking }
|
|
{$R- no range checking }
|
|
|
|
{$ifndef FPC_SYSTEM_HAS_DIV_QWORD}
|
|
{$define FPC_SYSTEM_HAS_DIV_QWORD}
|
|
function fpc_div_qword(n,z : qword) : qword; compilerproc;
|
|
var
|
|
signmask, tmpz: qword;
|
|
tmpq, rest: int64;
|
|
begin
|
|
{ emulate unsigned division using signed division, see
|
|
http://hackers-delight.org.ua/060.htm }
|
|
signmask:=qword(not(SarInt64(int64(n),63)));
|
|
tmpz:=z and signmask;
|
|
tmpq:=(int64(tmpz shr 1) div int64(n)) * 2;
|
|
rest:=z-tmpq*n;
|
|
fpc_div_qword:=tmpq+ord(rest>=n);
|
|
end;
|
|
{$endif FPC_SYSTEM_HAS_DIV_QWORD}
|
|
|
|
|
|
{$ifndef FPC_SYSTEM_HAS_MOD_QWORD}
|
|
{$define FPC_SYSTEM_HAS_MOD_QWORD}
|
|
function fpc_mod_qword(n,z : qword) : qword; compilerproc;
|
|
var
|
|
signmask, tmpz: qword;
|
|
tmpq: int64;
|
|
begin
|
|
{ emulate unsigned division using signed division, see
|
|
http://hackers-delight.org.ua/060.htm }
|
|
signmask:=qword(not(SarInt64(int64(n),63)));
|
|
tmpz:=z and signmask;
|
|
tmpq:=(int64(tmpz shr 1) div int64(n)) * 2;
|
|
fpc_mod_qword:=z-tmpq*n;
|
|
if fpc_mod_qword>=n then
|
|
dec(fpc_mod_qword,n);
|
|
end;
|
|
{$endif FPC_SYSTEM_HAS_MOD_QWORD}
|
|
|
|
|
|
{ lie to prevent two overloads for sqr(jlong) }
|
|
{$define FPC_SYSTEM_HAS_SQR_QWORD}
|
|
|