paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 07:34:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

* indentation fixed

Browse Source
This commit is contained in:
florian 2024-07-28 20:47:37 +02:00
parent e48fdc5b0f
commit 08bf5f7201
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/inc/int64.inc
View File

@ -208,11 +208,11 @@
begin
{ Use the usually faster 32-bit division if possible }
if (hi(z) = 0) and (hi(n) = 0) then
begin
fpc_div_qword := Dword(z) div Dword(n);
exit;
end;
if (hi(z) = 0) and (hi(n) = 0) then
begin
fpc_div_qword := Dword(z) div Dword(n);
exit;
end;
fpc_div_qword:=0;
if n=0 then
HandleErrorAddrFrameInd(200,get_pc_addr,get_frame);
@ -249,11 +249,11 @@
begin
{ Use the usually faster 32-bit mod if possible }
if (hi(z) = 0) and (hi(n) = 0) then
begin
fpc_mod_qword := Dword(z) mod Dword(n);
exit;
end;
if (hi(z) = 0) and (hi(n) = 0) then
begin
fpc_mod_qword := Dword(z) mod Dword(n);
exit;
end;
fpc_mod_qword:=0;
if n=0 then
HandleErrorAddrFrameInd(200,get_pc_addr,get_frame);