|
@@ -754,7 +754,11 @@ begin
|
|
dec(ordinal,minvalue);
|
|
dec(ordinal,minvalue);
|
|
end;
|
|
end;
|
|
{Get the address of the string.}
|
|
{Get the address of the string.}
|
|
|
|
+{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
|
|
p:=Pshortstring((PPpointer(ord2strindex+align(sizeof(longint), sizeof(ptrint)))+ordinal)^);
|
|
p:=Pshortstring((PPpointer(ord2strindex+align(sizeof(longint), sizeof(ptrint)))+ordinal)^);
|
|
|
|
+{$else}
|
|
|
|
+ p:=Pshortstring((PPpointer(ord2strindex+sizeof(longint))+ordinal)^);
|
|
|
|
+{$endif}
|
|
if p=nil then
|
|
if p=nil then
|
|
begin
|
|
begin
|
|
inoutres:=107; {Invalid ordinal value for this enum.}
|
|
inoutres:=107; {Invalid ordinal value for this enum.}
|