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

* moved general system includes accidentally put in jdynarr.inc to

Browse Source 
system.pp

git-svn-id: branches/jvmbackend@18835 -
This commit is contained in:
Jonas Maebe 2011-08-24 22:11:36 +00:00
parent 951c023ca2
commit 56e724cea6
2 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/java/jdynarr.inc
View File

@ -16,20 +16,6 @@
} }
function min(a,b : longint) : longint;
begin
if a<=b then
min:=a
else
min:=b;
end;
{$i jrec.inc}
{$i jset.inc}
{$i jpvar.inc}
{$i jsystem.inc}
{ copying helpers } { copying helpers }
procedure fpc_copy_shallow_array(src, dst: JLObject; srcstart: jint = -1; srccopylen: jint = -1); procedure fpc_copy_shallow_array(src, dst: JLObject; srcstart: jint = -1; srccopylen: jint = -1);

12
rtl/java/system.pp
View File

@ -96,8 +96,20 @@ const
implementation implementation
{*****************************************************************************} {*****************************************************************************}
function min(a,b : longint) : longint;
begin
if a<=b then
min:=a
else
min:=b;
end;
{$i jtvar.inc} {$i jtvar.inc}
{$i jrec.inc}
{$i jset.inc}
{$i jpvar.inc}
{$i jdynarr.inc} {$i jdynarr.inc}
{$i jsystem.inc}
{***************************************************************************** {*****************************************************************************
Misc. System Dependent Functions Misc. System Dependent Functions