paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 12:11: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

35
compiler/tcld.pas
View File

@ -393,17 +393,25 @@ implementation
begin begin
firstpass(hp^.left); firstpass(hp^.left);
case hp^.left^.resulttype^.deftype of case hp^.left^.resulttype^.deftype of
floatdef : begin enumdef,
hp^.left:=gentypeconvnode(hp^.left,s80floatdef); orddef :
firstpass(hp^.left); begin
end; hp^.left:=gentypeconvnode(hp^.left,s32bitdef);
stringdef : begin firstpass(hp^.left);
if p^.cargs then end;
begin floatdef :
hp^.left:=gentypeconvnode(hp^.left,charpointerdef); begin
firstpass(hp^.left); hp^.left:=gentypeconvnode(hp^.left,s80floatdef);
end; firstpass(hp^.left);
end; end;
stringdef :
begin
if p^.cargs then
begin
hp^.left:=gentypeconvnode(hp^.left,charpointerdef);
firstpass(hp^.left);
end;
end;
end; end;
if (pd=nil) then if (pd=nil) then
pd:=hp^.left^.resulttype pd:=hp^.left^.resulttype
@ -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