paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 17:48:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

* last commit was not complete, fixed

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

13
compiler/nmem.pas
View File

@ -1361,14 +1361,23 @@ implementation
case TStringConstNode(left).cst_type of
cst_widestring, cst_unicodestring:
{ value_str is of type PCompilerWideString }
{ while the conversion to PtrUInt is not correct when compiling from an 32 bit to a 64 bit platform because
in theory for a 64 bit target the string could be longer than 2^32,
it does not matter as a 32 bit host cannot handle such long strings anyways due to memory limitations
}
Result := COrdConstNode.create(
PCompilerWideString(TStringConstNode(left).value_str)^.data[AWord(TOrdConstNode(right).value.uvalue) - 1],
PCompilerWideString(TStringConstNode(left).value_str)^.data[PtrUInt(TOrdConstNode(right).value.uvalue) - 1],
resultdef,
False
);
else
{ while the conversion to PtrUInt is not correct when compiling from an 32 bit to a 64 bit platform because
in theory for a 64 bit target the string could be longer than 2^32,
it does not matter as a 32 bit host cannot handle such long strings anyways due to memory limitations
}
Result := COrdConstNode.create(
Byte(TStringConstNode(left).value_str[AWord(TOrdConstNode(right).value.uvalue) - 1]),
Byte(TStringConstNode(left).value_str[PtrUInt(TOrdConstNode(right).value.uvalue) - 1]),
resultdef,
False
);