paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 23:46:00 +02: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

35
compiler/tcld.pas
View File

@ -393,17 +393,25 @@ implementation
begin
firstpass(hp^.left);
case hp^.left^.resulttype^.deftype of
floatdef : begin
hp^.left:=gentypeconvnode(hp^.left,s80floatdef);
firstpass(hp^.left);
end;
stringdef : begin
if p^.cargs then
begin
hp^.left:=gentypeconvnode(hp^.left,charpointerdef);
firstpass(hp^.left);
end;
end;
enumdef,
orddef :
begin
hp^.left:=gentypeconvnode(hp^.left,s32bitdef);
firstpass(hp^.left);
end;
floatdef :
begin
hp^.left:=gentypeconvnode(hp^.left,s80floatdef);
firstpass(hp^.left);
end;
stringdef :
begin
if p^.cargs then
begin
hp^.left:=gentypeconvnode(hp^.left,charpointerdef);
firstpass(hp^.left);
end;
end;
end;
if (pd=nil) then
pd:=hp^.left^.resulttype
@ -453,7 +461,10 @@ implementation
end.
{
$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
Revision 1.16 1999/02/22 02:15:52 peter