paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 05:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed parsing of typed widestring constants with length 1

Browse Source
This commit is contained in:
florian 2003-11-08 10:23:35 +00:00
parent 621b93dee1
commit 2a178f0d93
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ptconst.pas
View File

@ -498,7 +498,7 @@ implementation
begin begin
p:=comp_expr(true); p:=comp_expr(true);
{ load strval and strlength of the constant tree } { load strval and strlength of the constant tree }
if p.nodetype=stringconstn then if (p.nodetype=stringconstn) or is_widestring(t.def) then
begin begin
{ convert to the expected string type so that { convert to the expected string type so that
for widestrings strval is a pcompilerwidestring } for widestrings strval is a pcompilerwidestring }
@ -994,7 +994,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.72 2003-10-21 18:16:13 peter Revision 1.73 2003-11-08 10:23:35 florian
* fixed parsing of typed widestring constants with length 1
Revision 1.72 2003/10/21 18:16:13 peter
* IncompatibleTypes() added that will include unit names when * IncompatibleTypes() added that will include unit names when
the typenames are the same the typenames are the same