- 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

@@ -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 }