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

* convert only to s32bit if integer or enum

Browse Source
This commit is contained in:
peter 1999-03-18 11:21:52 +00:00
parent 55fbeb959d
commit e1f073567e
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/tcld.pas
View File

@ -393,12 +393,19 @@ implementation
begin begin
firstpass(hp^.left); firstpass(hp^.left);
case hp^.left^.resulttype^.deftype of case hp^.left^.resulttype^.deftype of
enumdef, enumdef :
orddef :
begin begin
hp^.left:=gentypeconvnode(hp^.left,s32bitdef); hp^.left:=gentypeconvnode(hp^.left,s32bitdef);
firstpass(hp^.left); firstpass(hp^.left);
end; end;
orddef :
begin
if is_integer(hp^.left^.resulttype) then
begin
hp^.left:=gentypeconvnode(hp^.left,s32bitdef);
firstpass(hp^.left);
end;
end;
floatdef : floatdef :
begin begin
hp^.left:=gentypeconvnode(hp^.left,s80floatdef); hp^.left:=gentypeconvnode(hp^.left,s80floatdef);
@ -461,7 +468,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.18 1999-03-16 21:02:10 peter Revision 1.19 1999-03-18 11:21:52 peter
* convert only to s32bit if integer or enum
Revision 1.18 1999/03/16 21:02:10 peter
* all array of const enum/ord are converted to s32bit * all array of const enum/ord are converted to s32bit
Revision 1.17 1999/03/10 13:24:23 pierre Revision 1.17 1999/03/10 13:24:23 pierre