paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 09:02:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix 2GB limit problem

Browse Source
This commit is contained in:
carl 2002-09-27 21:10:40 +00:00
parent 4eb803e2a0
commit ab9e07a2d7
2 changed files with 18 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/compproc.inc
View File

@ -24,7 +24,7 @@
{ some dummy types necessary to have generic resulttypes for certain compilerprocs }
type
fpc_big_chararray = array[0..maxlongint] of char;
fpc_big_chararray = array[0..maxlongint-1] of char;
fpc_small_set = longint;
fpc_normal_set = array[0..7] of longint;
@ -263,7 +263,10 @@ function fpc_qword_to_double(q: qword): double; compilerproc;
{
$Log$
Revision 1.22 2002-09-07 21:12:04 carl
Revision 1.23 2002-09-27 21:10:40 carl
* fix 2GB limit problem
Revision 1.22 2002/09/07 21:12:04 carl
* cardinal -> longword
- remove some unused routines

23
rtl/inc/generic.inc
View File

@ -25,7 +25,7 @@ type
{$ifndef FPC_SYSTEM_HAS_MOVE}
procedure Move(const source;var dest;count:longint);
type
bytearray = array [0..maxlongint] of byte;
bytearray = array [0..maxlongint-1] of byte;
var
i,size : longint;
begin
@ -40,7 +40,7 @@ end;
Procedure FillChar(var x;count:longint;value:byte);
type
longintarray = array [0..maxlongint div 4] of longint;
bytearray = array [0..maxlongint] of byte;
bytearray = array [0..maxlongint-1] of byte;
var
i,v : longint;
begin
@ -113,7 +113,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_INDEXBYTE}
function IndexByte(Const buf;len:longint;b:byte):longint;
type
bytearray = array [0..maxlongint] of byte;
bytearray = array [0..maxlongint-1] of byte;
var
I : longint;
begin
@ -130,7 +130,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_INDEXWORD}
function Indexword(Const buf;len:longint;b:word):longint;
type
wordarray = array [0..maxlongint] of word;
wordarray = array [0..maxlongint div 2] of word;
var
I : longint;
begin
@ -147,7 +147,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_INDEXDWORD}
function IndexDWord(Const buf;len:longint;b:DWord):longint;
type
longintarray = array [0..maxlongint] of longint;
longintarray = array [0..maxlongint div 4] of longint;
var
I : longint;
begin
@ -171,7 +171,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_COMPAREBYTE}
function CompareByte(Const buf1,buf2;len:longint):longint;
type
bytearray = array [0..maxlongint] of byte;
bytearray = array [0..maxlongint-1] of byte;
var
I,J : longint;
begin
@ -200,7 +200,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_COMPAREWORD}
function CompareWord(Const buf1,buf2;len:longint):longint;
type
wordarray = array [0..maxlongint] of word;
wordarray = array [0..maxlongint div 2] of word;
var
I,J : longint;
begin
@ -229,7 +229,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_COMPAREDWORD}
function CompareDWord(Const buf1,buf2;len:longint):longint;
type
longintarray = array [0..maxlongint] of longint;
longintarray = array [0..maxlongint div 4] of longint;
var
I,J : longint;
begin
@ -289,7 +289,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_COMPARECHAR0}
function CompareChar0(Const buf1,buf2;len:longint):longint;
type
bytearray = array [0..maxlongint] of byte;
bytearray = array [0..maxlongint-1] of byte;
Var i : longint;
@ -920,7 +920,10 @@ end;
{$endif ndef FPC_SYSTEM_HAS_INT_STR_LONGWORD}
{
$Log$
Revision 1.36 2002-09-13 19:13:06 carl
Revision 1.37 2002-09-27 21:10:40 carl
* fix 2GB limit problem
Revision 1.36 2002/09/13 19:13:06 carl
* FPC_HELP_FAIL : reset _self to nil
Revision 1.35 2002/09/10 21:29:44 jonas