paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 11:49:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed ranges in case statements with widechars

Browse Source
This commit is contained in:
florian 2001-10-26 22:36:42 +00:00
parent 508010631a
commit b0e3e03f08
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/pstatmnt.pas
View File

@ -217,7 +217,7 @@ implementation
getlabel(aktcaselabel);
firstlabel:=true;
{ may be an instruction has more case labels }
{ maybe an instruction has more case labels }
repeat
p:=expr;
if is_widechar(casedef) then
@ -226,10 +226,14 @@ implementation
begin
trangenode(p).left:=ctypeconvnode.create(trangenode(p).left,cwidechartype);
trangenode(p).right:=ctypeconvnode.create(trangenode(p).right,cwidechartype);
do_resulttypepass(trangenode(p).left);
do_resulttypepass(trangenode(p).right);
end
else
p:=ctypeconvnode.create(p,cwidechartype);
do_resulttypepass(p);
begin
p:=ctypeconvnode.create(p,cwidechartype);
do_resulttypepass(p);
end;
end;
hl1:=0;
@ -1115,7 +1119,10 @@ implementation
end.
{
$Log$
Revision 1.41 2001-10-25 21:22:37 peter
Revision 1.42 2001-10-26 22:36:42 florian
* fixed ranges in case statements with widechars
Revision 1.41 2001/10/25 21:22:37 peter
* calling convention rewrite
Revision 1.40 2001/10/24 11:51:39 marco