paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 02:14:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation on 32 bit hosts

Browse Source
This commit is contained in:
florian 2024-01-21 15:21:48 +01:00
parent 038c163717
commit 79f6ee538d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/nmem.pas
View File

@ -1362,13 +1362,13 @@ implementation
cst_widestring, cst_unicodestring:
{ value_str is of type PCompilerWideString }
Result := COrdConstNode.create(
PCompilerWideString(TStringConstNode(left).value_str)^.data[TOrdConstNode(right).value - 1],
PCompilerWideString(TStringConstNode(left).value_str)^.data[AWord(TOrdConstNode(right).value.uvalue) - 1],
resultdef,
False
);
else
Result := COrdConstNode.create(
Byte(TStringConstNode(left).value_str[TOrdConstNode(right).value - 1]),
Byte(TStringConstNode(left).value_str[AWord(TOrdConstNode(right).value.uvalue) - 1]),
resultdef,
False
);