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

* all array of const enum/ord are converted to s32bit

Browse Source
This commit is contained in:
peter 1999-03-16 21:02:10 +00:00
parent 728a26f106
commit c77f7deb26
1 changed files with 23 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/tcld.pas
View File

@ -393,11 +393,19 @@ implementation
begin begin
firstpass(hp^.left); firstpass(hp^.left);
case hp^.left^.resulttype^.deftype of case hp^.left^.resulttype^.deftype of
floatdef : begin enumdef,
orddef :
begin
hp^.left:=gentypeconvnode(hp^.left,s32bitdef);
firstpass(hp^.left);
end;
floatdef :
begin
hp^.left:=gentypeconvnode(hp^.left,s80floatdef); hp^.left:=gentypeconvnode(hp^.left,s80floatdef);
firstpass(hp^.left); firstpass(hp^.left);
end; end;
stringdef : begin stringdef :
begin
if p^.cargs then if p^.cargs then
begin begin
hp^.left:=gentypeconvnode(hp^.left,charpointerdef); hp^.left:=gentypeconvnode(hp^.left,charpointerdef);
@ -453,7 +461,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.17 1999-03-10 13:24:23 pierre Revision 1.18 1999-03-16 21:02:10 peter
* all array of const enum/ord are converted to s32bit
Revision 1.17 1999/03/10 13:24:23 pierre
* array of const type to definition field * array of const type to definition field
Revision 1.16 1999/02/22 02:15:52 peter Revision 1.16 1999/02/22 02:15:52 peter