From a0fb85b6900bbcb505ba58e1842624fa92abae40 Mon Sep 17 00:00:00 2001 From: svenbarth Date: Sat, 7 Oct 2017 22:08:05 +0000 Subject: [PATCH] - remove no longer needed aligntoptr() and aligntoqword() functions (all this should be handled by the typinfo unit in the future) git-svn-id: trunk@37424 - --- packages/rtl-objpas/src/inc/rtti.pp | 23 ----------------------- 1 file changed, 23 deletions(-) diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp index 8972cfd8f5..0b091d3ec1 100644 --- a/packages/rtl-objpas/src/inc/rtti.pp +++ b/packages/rtl-objpas/src/inc/rtti.pp @@ -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 }