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

* use explicit typecast when generating the high value

Browse Source
This commit is contained in:
peter 2003-11-01 16:17:48 +00:00
parent 39a6c7db45
commit 9168d87b35
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncal.pas
View File

@ -279,7 +279,8 @@ type
begin begin
if not assigned(hightree) then if not assigned(hightree) then
internalerror(200304071); internalerror(200304071);
hightree:=ctypeconvnode.create(hightree,s32bittype); { Need to use explicit, because it can also be a enum }
hightree:=ctypeconvnode.create_explicit(hightree,s32bittype);
end; end;
result:=hightree; result:=hightree;
end; end;
@ -2595,7 +2596,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.203 2003-10-31 15:52:58 peter Revision 1.204 2003-11-01 16:17:48 peter
* use explicit typecast when generating the high value
Revision 1.203 2003/10/31 15:52:58 peter
* support creating classes using <class of tobject>.create * support creating classes using <class of tobject>.create
Revision 1.202 2003/10/30 16:23:13 peter Revision 1.202 2003/10/30 16:23:13 peter