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

* Smaller arrray sizes for macos

Browse Source
This commit is contained in:
olle 2005-05-14 11:11:33 +00:00
parent c2d6555bd5
commit a455adeac2
2 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
demo/text/eratos.pp
View File

@ -1,7 +1,7 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 1993-98 by Florian Klaempfl
Copyright (c) 1993-2005 by Florian Klaempfl
Eratos Example, Calculates all Prime Numbers from 1 to max
@ -16,7 +16,13 @@
program eratosthenes;
const
{$ifndef MACOS}
max = 1000000;
{$else}
max = 10000; {Actually it works with 100000 also, but not 1000000,}
{in which case the OS refuses to start it.}
{$endif}
var
a : array[1..max] of boolean;
@ -55,7 +61,10 @@ program eratosthenes;
{
$Log$
Revision 1.2 2002-09-07 15:06:35 peter
Revision 1.3 2005-05-14 11:11:33 olle
* Smaller arrray sizes for macos
Revision 1.2 2002/09/07 15:06:35 peter
* old logs removed and tabs fixed
}

12
demo/text/qsort.pp
View File

@ -1,7 +1,7 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 1993-98 by the Free Pascal Development Team
Copyright (c) 1993-2005 by the Free Pascal Development Team
QuickSort Example
@ -16,7 +16,12 @@
program quicksort;
const
{$ifndef MACOS}
max = 100000;
{$else}
max = 1000; {Actually it works with 100000 also, but that might }
{lead problems occacionally.}
{$endif}
type
tlist = array[1..max] of longint;
@ -78,7 +83,10 @@ begin
end.
{
$Log$
Revision 1.2 2002-09-07 15:06:35 peter
Revision 1.3 2005-05-14 11:11:33 olle
* Smaller arrray sizes for macos
Revision 1.2 2002/09/07 15:06:35 peter
* old logs removed and tabs fixed
}