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

* prt0.as exit code handling fixed

Browse Source 
* int64 mod int64 for negative numbers fixed
This commit is contained in:
florian 2004-04-24 17:14:09 +00:00
parent cfe5a5baea
commit d18f952c09
2 changed files with 21 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
rtl/inc/int64.inc
View File

@ -263,22 +263,19 @@
if n=0 then if n=0 then
HandleErrorFrame(200,get_frame); HandleErrorFrame(200,get_frame);
if n<0 then if n<0 then
begin nq:=-n
nq:=-n;
signed:=true;
end
else else
begin nq:=n;
signed:=false;
nq:=n;
end;
if z<0 then if z<0 then
begin begin
zq:=qword(-z); signed:=true;
signed:=not(signed); zq:=qword(-z)
end end
else else
zq:=z; begin
signed:=false;
zq:=z;
end;
r:=zq mod nq; r:=zq mod nq;
if signed then if signed then
fpc_mod_int64:=-int64(r) fpc_mod_int64:=-int64(r)
@ -562,7 +559,11 @@
{ {
$Log$ $Log$
Revision 1.23 2004-01-23 15:14:04 florian Revision 1.24 2004-04-24 17:14:09 florian
* prt0.as exit code handling fixed
* int64 mod int64 for negative numbers fixed
Revision 1.23 2004/01/23 15:14:04 florian
+ implemented software shl/shr for 64 bit ints + implemented software shl/shr for 64 bit ints
Revision 1.22 2003/09/14 11:34:13 peter Revision 1.22 2003/09/14 11:34:13 peter
@ -597,4 +598,4 @@
Revision 1.14 2002/07/01 16:29:05 peter Revision 1.14 2002/07/01 16:29:05 peter
* sLineBreak changed to normal constant like Kylix * sLineBreak changed to normal constant like Kylix
} }

10
rtl/linux/x86_64/prt0.as
View File

@ -59,8 +59,8 @@ _start:
.type _haltproc,@function .type _haltproc,@function
_haltproc: _haltproc:
movl $60,%eax /* exit call */ movl $60,%eax /* exit call */
xorq %rbx,%rbx xorq %rdi,%rdi
movw U_SYSTEM_EXITCODE,%bx movw U_SYSTEM_EXITCODE,%di
syscall syscall
jmp _haltproc jmp _haltproc
@ -90,7 +90,11 @@ __data_start:
# #
# $Log$ # $Log$
# Revision 1.6 2004-04-20 20:30:11 florian # Revision 1.7 2004-04-24 17:14:09 florian
# * prt0.as exit code handling fixed
# * int64 mod int64 for negative numbers fixed
#
# Revision 1.6 2004/04/20 20:30:11 florian
# * fixed halt code # * fixed halt code
# #
# Revision 1.5 2004/04/12 19:05:55 florian # Revision 1.5 2004/04/12 19:05:55 florian