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

* made abs a compiler proc if it is generic

Browse Source
This commit is contained in:
florian 2002-07-28 21:39:28 +00:00
parent 37351a4590
commit 6d4e01d74f
4 changed files with 39 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/generic.inc
View File

@ -497,7 +497,7 @@ begin
RunError(220); RunError(220);
end; end;
{$endif ndef FPC_SYSTEM_HAS_FPC_CHECK_OBJECT_EXT} {$endif not FPC_SYSTEM_HAS_FPC_CHECK_OBJECT_EXT}
{**************************************************************************** {****************************************************************************
@ -945,7 +945,10 @@ end;
{ {
$Log$ $Log$
Revision 1.28 2002-07-28 20:43:47 florian Revision 1.29 2002-07-28 21:39:28 florian
* made abs a compiler proc if it is generic
Revision 1.28 2002/07/28 20:43:47 florian
* several fixes for linux/powerpc * several fixes for linux/powerpc
* several fixes to MT * several fixes to MT

13
rtl/inc/genmath.inc
View File

@ -268,14 +268,14 @@ Function float32_to_int32_round_to_zero( a: Float32 ): longint;
{$ifndef FPC_SYSTEM_HAS_ABS} {$ifndef FPC_SYSTEM_HAS_ABS}
function abs(d : Real) : Real;[internconst:in_const_abs]; function fpc_abs_real(d : Real) : Real; compilerproc;
begin begin
if( d < 0.0 ) then if( d < 0.0 ) then
abs := -d fpc_abs_real := -d
else else
abs := d ; fpc_abs_real := d ;
end; end;
{$endif} {$endif not FPC_SYSTEM_HAS_ABS}
function frexp(x:Real; var e:Integer ):Real; function frexp(x:Real; var e:Integer ):Real;
@ -1020,7 +1020,10 @@ Function float32_to_int32_round_to_zero( a: Float32 ): longint;
{ {
$Log$ $Log$
Revision 1.4 2002-07-28 20:43:48 florian Revision 1.5 2002-07-28 21:39:29 florian
* made abs a compiler proc if it is generic
Revision 1.4 2002/07/28 20:43:48 florian
* several fixes for linux/powerpc * several fixes for linux/powerpc
* several fixes to MT * several fixes to MT

11
rtl/powerpc/math.inc
View File

@ -27,7 +27,7 @@
end; end;
{ $define FPC_SYSTEM_HAS_ABS} { $define FPC_SYSTEM_HAS_ABS}
function abs(d : extended) : extended;[internproc:in_abs_extended]; // function abs(d : extended) : extended;[internproc:in_abs_extended];
{$define FPC_SYSTEM_HAS_SQR} {$define FPC_SYSTEM_HAS_SQR}
function sqr(d : extended) : extended;[internproc:in_sqr_extended]; function sqr(d : extended) : extended;[internproc:in_sqr_extended];
@ -68,11 +68,13 @@
end; end;
}
{$define FPC_SYSTEM_HAS_INT}
{$warning FIX ME}
function int(d : extended) : extended;[internconst:in_const_int]; function int(d : extended) : extended;[internconst:in_const_int];
begin begin
runerror(207); runerror(207);
end; end;
}
{$define FPC_SYSTEM_HAS_TRUNC} {$define FPC_SYSTEM_HAS_TRUNC}
{$warning FIX ME} {$warning FIX ME}
@ -265,7 +267,10 @@ end ['r0','r3','f0','f1','f2','f3'];
{ {
$Log$ $Log$
Revision 1.4 2002-07-28 20:43:49 florian Revision 1.5 2002-07-28 21:39:29 florian
* made abs a compiler proc if it is generic
Revision 1.4 2002/07/28 20:43:49 florian
* several fixes for linux/powerpc * several fixes for linux/powerpc
* several fixes to MT * several fixes to MT

27
rtl/powerpc/powerpc.inc
View File

@ -535,7 +535,7 @@ asm
end; end;
{$define FPC_SYSTEM_HAS_FPC_HELP_FAIL} {$define FPC_SYSTEM_HAS_FPC_HELP_FAIL}
procedure fpc_help_fail;assembler;[public,alias:'FPC_HELP_FAIL']; {$ifdef hascompilerproc} compilerproc; {$endif} procedure fpc_help_fail;assembler;[public,alias:'FPC_HELP_FAIL']; compilerproc;
assembler; assembler;
asm asm
{$warning FIX ME!} {$warning FIX ME!}
@ -550,7 +550,7 @@ procedure fpc_help_destructor;assembler;[public,alias:'FPC_HELP_DESTRUCTOR']; {$
*) *)
{$define FPC_SYSTEM_HAS_FPC_NEW_CLASS} {$define FPC_SYSTEM_HAS_FPC_NEW_CLASS}
procedure fpc_new_class;assembler;[public,alias:'FPC_NEW_CLASS']; {$ifdef hascompilerproc} compilerproc; {$endif} procedure fpc_new_class;assembler;[public,alias:'FPC_NEW_CLASS']; compilerproc;
assembler; assembler;
asm asm
{$warning FIX ME!} {$warning FIX ME!}
@ -559,7 +559,7 @@ end;
{$define FPC_SYSTEM_HAS_FPC_DISPOSE_CLASS} {$define FPC_SYSTEM_HAS_FPC_DISPOSE_CLASS}
procedure fpc_dispose_class;assembler;[public,alias:'FPC_DISPOSE_CLASS']; {$ifdef hascompilerproc} compilerproc; {$endif} procedure fpc_dispose_class;assembler;[public,alias:'FPC_DISPOSE_CLASS']; compilerproc;
assembler; assembler;
asm asm
{$warning FIX ME!} {$warning FIX ME!}
@ -578,18 +578,22 @@ end;
{define FPC_SYSTEM_HAS_FPC_CHECK_OBJECT} {$define FPC_SYSTEM_HAS_FPC_CHECK_OBJECT}
{ we want the stack for debugging !! PM } { use generic implementation for now }
(* { that's a problem currently, the generic has a another prototy than this defined in compproc.inc (FK) }
use generic implementation for now procedure fpc_check_object(obj : pointer);assembler; compilerproc;
procedure fpc_check_object(obj : pointer);[public,alias:'FPC_CHECK_OBJECT']; {$ifdef hascompilerproc} compilerproc; {$endif} asm
*) {$warning FIX ME!}
// !!!!!!!!!!!
end;
{ use generic implementation for now } { use generic implementation for now }
{ that's a problem currently, the generic has a another prototy than this defined in compproc.inc (FK) } { that's a problem currently, the generic has a another prototy than this defined in compproc.inc (FK) }
{$define FPC_SYSTEM_HAS_FPC_CHECK_OBJECT_EXT} {$define FPC_SYSTEM_HAS_FPC_CHECK_OBJECT_EXT}
procedure fpc_check_object_ext; compilerproc;assembler; procedure fpc_check_object_ext; compilerproc;assembler;
asm asm
{$warning FIX ME!}
// !!!!!!!!!!!
end; end;
{**************************************************************************** {****************************************************************************
@ -852,7 +856,10 @@ end ['r3','r10'];
{ {
$Log$ $Log$
Revision 1.9 2002-07-28 20:43:49 florian Revision 1.10 2002-07-28 21:39:29 florian
* made abs a compiler proc if it is generic
Revision 1.9 2002/07/28 20:43:49 florian
* several fixes for linux/powerpc * several fixes for linux/powerpc
* several fixes to MT * several fixes to MT