|
@@ -141,9 +141,9 @@ implementation
|
|
|
end
|
|
end
|
|
|
else
|
|
else
|
|
|
begin
|
|
begin
|
|
|
- // string[x] is allowed in system unit since it is a shortstring.
|
|
|
|
|
- if cs_compilesystem in current_settings.moduleswitches then
|
|
|
|
|
- Message(parser_e_nostringaliasinsystem);
|
|
|
|
|
|
|
+ // string[x] is allowed in system unit since it is a shortstring.
|
|
|
|
|
+ if cs_compilesystem in current_settings.moduleswitches then
|
|
|
|
|
+ Message(parser_e_nostringaliasinsystem);
|
|
|
if cs_refcountedstrings in current_settings.localswitches then
|
|
if cs_refcountedstrings in current_settings.localswitches then
|
|
|
begin
|
|
begin
|
|
|
if m_default_unicodestring in current_settings.modeswitches then
|
|
if m_default_unicodestring in current_settings.modeswitches then
|
Michael VAN CANNEYT