paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 19:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tdynarraytypeinfo moved to interface

Browse Source 
* made aligntoptr inlined

git-svn-id: trunk@630 -
This commit is contained in:
florian 2005-07-15 21:09:45 +00:00
parent fddf556098
commit 8dd52941d5
2 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/dynarr.inc
View File

@ -24,16 +24,8 @@ type
high : tdynarrayindex;
end;
pdynarraytypeinfo = ^tdynarraytypeinfo;
tdynarraytypeinfo = packed record
kind : byte;
namelen : byte;
{ here the chars follow, we've to skip them }
elesize : sizeint;
eletype : pdynarraytypeinfo;
end;
function aligntoptr(p : pointer) : pointer;
function aligntoptr(p : pointer) : pointer;inline;
begin
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
if (ptrint(p) mod sizeof(ptrint))<>0 then

15
rtl/inc/dynarrh.inc
View File

@ -1,6 +1,6 @@
{
This file is part of the Free Pascal Run time library.
Copyright (c) 1999-2000 by the Free Pascal development team
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
@ -16,6 +16,15 @@
**********************************************************************}
type
tdynarrayindex = sizeint;
pdynarrayindex = ^tdynarrayindex;
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;