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

* fixed some datastructures > 2GB

Browse Source
This commit is contained in:
Jonas Maebe 2002-07-29 09:23:11 +00:00
parent 07089fadb7
commit 00801d2c76
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/generic.inc
View File

@ -39,7 +39,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_FILLCHAR} {$ifndef FPC_SYSTEM_HAS_FILLCHAR}
Procedure FillChar(var x;count:longint;value:byte); Procedure FillChar(var x;count:longint;value:byte);
type type
longintarray = array [0..maxlongint] of longint; longintarray = array [0..maxlongint div 4] of longint;
bytearray = array [0..maxlongint] of byte; bytearray = array [0..maxlongint] of byte;
var var
i,v : longint; i,v : longint;
@ -67,8 +67,8 @@ end;
{$ifndef FPC_SYSTEM_HAS_FILLWORD} {$ifndef FPC_SYSTEM_HAS_FILLWORD}
procedure fillword(var x;count : longint;value : word); procedure fillword(var x;count : longint;value : word);
type type
longintarray = array [0..maxlongint] of longint; longintarray = array [0..maxlongint div 4] of longint;
wordarray = array [0..maxlongint] of word; wordarray = array [0..maxlongint div 2] of word;
var var
i,v : longint; i,v : longint;
begin begin
@ -84,7 +84,7 @@ end;
{$ifndef FPC_SYSTEM_HAS_FILLDWORD} {$ifndef FPC_SYSTEM_HAS_FILLDWORD}
procedure FillDWord(var x;count : longint;value : DWord); procedure FillDWord(var x;count : longint;value : DWord);
type type
longintarray = array [0..maxlongint] of longint; longintarray = array [0..maxlongint div 4] of longint;
var var
I : longint; I : longint;
begin begin
@ -945,7 +945,10 @@ end;
{ {
$Log$ $Log$
Revision 1.29 2002-07-28 21:39:28 florian Revision 1.30 2002-07-29 09:23:11 jonas
* fixed some datastructures > 2GB
Revision 1.29 2002/07/28 21:39:28 florian
* made abs a compiler proc if it is generic * made abs a compiler proc if it is generic
Revision 1.28 2002/07/28 20:43:47 florian Revision 1.28 2002/07/28 20:43:47 florian