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

* fixed array sizes

Browse Source
This commit is contained in:
florian 2004-11-02 08:46:50 +00:00
parent 10db34aa26
commit ef25f06e1c
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/generic.inc
View File

@ -85,8 +85,8 @@ end;
{$ifndef FPC_SYSTEM_HAS_FILLWORD} {$ifndef FPC_SYSTEM_HAS_FILLWORD}
procedure fillword(var x;count : SizeInt;value : word); procedure fillword(var x;count : SizeInt;value : word);
type type
longintarray = array [0..maxlongint div 4] of longint; longintarray = array [0..maxlongint div 4-1] of longint;
wordarray = array [0..maxlongint div 2] of word; wordarray = array [0..maxlongint div 2-1] of word;
var var
i,v : longint; i,v : longint;
begin begin
@ -1245,7 +1245,10 @@ end;
{ {
$Log$ $Log$
Revision 1.83 2004-10-24 20:01:41 peter Revision 1.84 2004-11-02 08:46:50 florian
* fixed array sizes
Revision 1.83 2004/10/24 20:01:41 peter
* saveregisters calling convention is obsolete * saveregisters calling convention is obsolete
Revision 1.82 2004/10/14 17:39:33 florian Revision 1.82 2004/10/14 17:39:33 florian
@ -1462,4 +1465,4 @@ end;
instead of direct comparisons of low/high values of orddefs because instead of direct comparisons of low/high values of orddefs because
qword is a special case qword is a special case
} }