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

+ Removed FPC_ALIGNSRTTI define

Browse Source 
git-svn-id: trunk@251 -
This commit is contained in:
michael 2005-06-07 20:59:11 +00:00
parent b1b3e0ea6f
commit 7712d4e2d1
2 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/dynarr.inc
View File

@ -80,9 +80,7 @@ procedure fpc_dynarray_clear_internal(p : pointer;ti : pointer);
{ skip kind and name }
inc(pointer(ti),ord(pdynarraytypeinfo(ti)^.namelen)+2);
{$ifdef FPC_ALIGNSRTTI}
ti:=aligntoptr(ti);
{$endif FPC_ALIGNSRTTI}
elesize:=psizeint(ti)^;
eletype:=pdynarraytypeinfo(pointer(pdynarraytypeinfo(pointer(ti)+sizeof(sizeint)))^);
@ -181,9 +179,7 @@ procedure fpc_dynarray_setlength(var p : pointer;pti : pointer;
{ skip kind and name }
inc(pointer(ti),ord(pdynarraytypeinfo(ti)^.namelen)+2);
{$ifdef FPC_ALIGNSRTTI}
ti:=aligntoptr(ti);
{$endif FPC_ALIGNSRTTI}
elesize:=psizeint(ti)^;
eletype:=pdynarraytypeinfo(pointer(pdynarraytypeinfo(pointer(ti)+sizeof(sizeint)))^);
@ -333,9 +329,7 @@ procedure fpc_dynarray_copy(var pdest : pointer;psrc : pointer;ti : pointer;
{ skip kind and name }
inc(pointer(ti),ord(pdynarraytypeinfo(ti)^.namelen)+2);
{$ifdef FPC_ALIGNSRTTI}
ti:=aligntoptr(ti);
{$endif FPC_ALIGNSRTTI}
elesize:=psizeint(ti)^;
eletype:=pdynarraytypeinfo(pointer(pdynarraytypeinfo(pointer(ti)+sizeof(sizeint)))^);

2
rtl/inc/objpas.inc
View File

@ -530,9 +530,7 @@
inc(Temp);
I:=Temp^;
inc(temp,I+1); // skip name string;
{$ifdef FPC_ALIGNSRTTI}
temp:=aligntoptr(temp);
{$endif FPC_ALIGNSRTTI}
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
move(PRecRec(Temp)^.Count,Count,sizeof(Count));
{$else FPC_REQUIRES_PROPER_ALIGNMENT}