From 33bba100fc4739e3ca9b393ed1ba8836e6785e0a Mon Sep 17 00:00:00 2001
From: tom_at_work <tom_at_work@idefix.freepascal.org>
Date: Sun, 20 Apr 2008 20:27:57 +0000
Subject: [PATCH] * fix writing of enums for 64 bit platforms that do not
 require proper alignment

git-svn-id: trunk@10742 -
---
 rtl/inc/text.inc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/rtl/inc/text.inc b/rtl/inc/text.inc
index 370a633d04..3387254937 100644
--- a/rtl/inc/text.inc
+++ b/rtl/inc/text.inc
@@ -754,7 +754,11 @@ begin
           dec(ordinal,minvalue);
         end;
       {Get the address of the string.}
+{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}      
       p:=Pshortstring((PPpointer(ord2strindex+align(sizeof(longint), sizeof(ptrint)))+ordinal)^);
+{$else}
+      p:=Pshortstring((PPpointer(ord2strindex+sizeof(longint))+ordinal)^);
+{$endif}
       if p=nil then
         begin
           inoutres:=107;      {Invalid ordinal value for this enum.}