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

* set correct conversion for subranges

Browse Source
This commit is contained in:
peter 2003-10-05 12:57:11 +00:00
parent 4a4c5a6df2
commit 1a71e7e02b
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/defcmp.pas
View File

@ -200,6 +200,7 @@ implementation
if (torddef(def_from).typ=torddef(def_to).typ) then if (torddef(def_from).typ=torddef(def_to).typ) then
begin begin
case torddef(def_from).typ of case torddef(def_from).typ of
uchar,uwidechar,
u8bit,u16bit,u32bit,u64bit, u8bit,u16bit,u32bit,u64bit,
s8bit,s16bit,s32bit,s64bit: s8bit,s16bit,s32bit,s64bit:
begin begin
@ -207,9 +208,12 @@ implementation
(torddef(def_from).high=torddef(def_to).high) then (torddef(def_from).high=torddef(def_to).high) then
eq:=te_equal eq:=te_equal
else else
eq:=te_convert_l1; begin
doconv:=tc_int_2_int;
eq:=te_convert_l1;
end;
end; end;
uvoid,uchar,uwidechar, uvoid,
bool8bit,bool16bit,bool32bit: bool8bit,bool16bit,bool32bit:
eq:=te_equal; eq:=te_equal;
else else
@ -1210,7 +1214,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.28 2003-09-09 21:03:17 peter Revision 1.29 2003-10-05 12:57:11 peter
* set correct conversion for subranges
Revision 1.28 2003/09/09 21:03:17 peter
* basics for x86 register calling * basics for x86 register calling
Revision 1.27 2003/06/03 21:02:08 peter Revision 1.27 2003/06/03 21:02:08 peter