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

* Added WideChar support to inlined 'ord' function

Browse Source
This commit is contained in:
sg 2000-07-22 11:53:26 +00:00
parent ce46621762
commit 069a3ae31d
1 changed files with 31 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
compiler/tcinl.pas
View File

@ -456,25 +456,33 @@ implementation
if not assigned(p^.left^.resulttype) then
exit;
if (p^.left^.resulttype^.deftype=orddef) then
if (porddef(p^.left^.resulttype)^.typ in [uchar,bool8bit]) then
begin
if porddef(p^.left^.resulttype)^.typ=bool8bit then
begin
hp:=gentypeconvnode(p^.left,u8bitdef);
putnode(p);
p:=hp;
p^.convtyp:=tc_bool_2_int;
p^.explizit:=true;
firstpass(p);
end
else
begin
hp:=gentypeconvnode(p^.left,u8bitdef);
putnode(p);
p:=hp;
p^.explizit:=true;
firstpass(p);
end;
if (porddef(p^.left^.resulttype)^.typ in [uchar,uwidechar,bool8bit]) then
case porddef(p^.left^.resulttype)^.typ of
uchar:
begin
hp:=gentypeconvnode(p^.left,u8bitdef);
putnode(p);
p:=hp;
p^.explizit:=true;
firstpass(p);
end;
uwidechar:
begin
hp:=gentypeconvnode(p^.left,u16bitdef);
putnode(p);
p:=hp;
p^.explizit:=true;
firstpass(p);
end;
bool8bit:
begin
hp:=gentypeconvnode(p^.left,u8bitdef);
putnode(p);
p:=hp;
p^.convtyp:=tc_bool_2_int;
p^.explizit:=true;
firstpass(p);
end
end
{ can this happen ? }
else if (porddef(p^.left^.resulttype)^.typ=uvoid) then
@ -1316,7 +1324,10 @@ implementation
end.
{
$Log$
Revision 1.2 2000-07-13 11:32:52 michael
Revision 1.3 2000-07-22 11:53:26 sg
* Added WideChar support to inlined 'ord' function
Revision 1.2 2000/07/13 11:32:52 michael
+ removed logs
}