paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:39:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

- remove no longer needed aligntoptr() and aligntoqword() functions (all this should be handled by the typinfo unit in the future)

Browse Source 
git-svn-id: trunk@37424 -
This commit is contained in:
svenbarth 2017-10-07 22:08:05 +00:00
parent 89645633a9
commit a0fb85b690
1 changed files with 0 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -357,29 +357,6 @@ implementation
uses
fgl;
function aligntoptr(p : pointer) : pointer;inline;
begin
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
result:=align(p,sizeof(p));
{$else FPC_REQUIRES_PROPER_ALIGNMENT}
result:=p;
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
end;
function aligntoqword(p : pointer) : pointer;inline;
type
TAlignCheck = record
b : byte;
q : qword;
end;
begin
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
result:=align(p,PtrInt(@TAlignCheck(nil^).q))
{$else FPC_REQUIRES_PROPER_ALIGNMENT}
result:=p;
{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
end;
type
{ TRttiPool }