mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-07 13:52:38 +02:00
69c29a415f
that the type of the parameters can be determined automatically
o added compilerproc declarations for all helpers called in the compiler
via their assembler name, so we can look up the corresponding procdef
git-svn-id: trunk@23325 -
34 lines
1.1 KiB
PHP
34 lines
1.1 KiB
PHP
{
|
|
This file is part of the Free Pascal Run time library.
|
|
Copyright (c) 1999-2005 by the Free Pascal development team
|
|
|
|
This file contains type declarations necessary for the dynamic
|
|
array routine helpers in syshelp.inc
|
|
|
|
See the File COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
|
|
**********************************************************************}
|
|
|
|
type
|
|
tdynarrayindex = sizeint;
|
|
pdynarrayindex = ^tdynarrayindex;
|
|
|
|
pdynarraytypeinfo = ^tdynarraytypeinfo;
|
|
tdynarraytypeinfo = packed record
|
|
kind : byte;
|
|
namelen : byte;
|
|
{ here the chars follow, we've to skip them }
|
|
elesize : sizeint;
|
|
eletype : pdynarraytypeinfo;
|
|
vartype : longint;
|
|
end;
|
|
|
|
procedure DynArraySetLength(var a: Pointer; typeInfo: Pointer; dimCnt: SizeInt; lengthVec: PSizeInt);
|
|
procedure fpc_dynarray_rangecheck(p : pointer;i : tdynarrayindex); compilerproc;
|