paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 17:20:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add some explicit typecasts to remove some warnings

Browse Source
This commit is contained in:
carl 2002-12-07 14:15:33 +00:00
parent 0c89979a9b
commit 7fdc498fbe
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ptconst.pas
View File

@ -213,9 +213,9 @@ implementation
case tfloatdef(t.def).typ of case tfloatdef(t.def).typ of
s32real : s32real :
curconstSegment.concat(Tai_real_32bit.Create(value)); curconstSegment.concat(Tai_real_32bit.Create(ts32real(value)));
s64real : s64real :
curconstSegment.concat(Tai_real_64bit.Create(value)); curconstSegment.concat(Tai_real_64bit.Create(ts64real(value)));
s80real : s80real :
curconstSegment.concat(Tai_real_80bit.Create(value)); curconstSegment.concat(Tai_real_80bit.Create(value));
s64comp : s64comp :
@ -985,7 +985,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.61 2002-11-25 18:43:33 carl Revision 1.62 2002-12-07 14:15:33 carl
+ add some explicit typecasts to remove some warnings
Revision 1.61 2002/11/25 18:43:33 carl
- removed the invalid if <> checking (Delphi is strange on this) - removed the invalid if <> checking (Delphi is strange on this)
+ implemented abstract warning on instance creation of class with + implemented abstract warning on instance creation of class with
abstract methods. abstract methods.