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

* generic conversaion routines only work on signed types

Browse Source
This commit is contained in:
carl 2003-02-15 22:15:57 +00:00
parent abb6577ccd
commit dd0322c646
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ncnv.pas
View File

@ -1371,7 +1371,7 @@ implementation
function ttypeconvnode.first_int_to_real: tnode;
var
fname: string[19];
fname: string[32];
typname : string[12];
begin
{ Get the type name }
@ -1385,7 +1385,8 @@ implementation
if is_signed(left.resulttype.def) then
fname := 'fpc_int64_to_'+typname
else
fname := 'fpc_qword_to_'+typname;
{$warning generic conversion from int to float does not support unsigned integers}
fname := 'fpc_int64_to_'+typname;
result := ccallnode.createintern(fname,ccallparanode.create(
left,nil));
left:=nil;
@ -1395,10 +1396,11 @@ implementation
else
{ other integers are supposed to be 32 bit }
begin
{$warning generic conversion from int to float does not support unsigned integers}
if is_signed(left.resulttype.def) then
fname := 'fpc_longint_to_'+typname
else
fname := 'fpc_longword_to_'+typname;
fname := 'fpc_longint_to_'+typname;
result := ccallnode.createintern(fname,ccallparanode.create(
left,nil));
left:=nil;
@ -2025,7 +2027,10 @@ begin
end.
{
$Log$
Revision 1.101 2003-01-16 22:13:52 peter
Revision 1.102 2003-02-15 22:15:57 carl
* generic conversaion routines only work on signed types
Revision 1.101 2003/01/16 22:13:52 peter
* convert_l3 convertlevel added. This level is used for conversions
where information can be lost like converting widestring->ansistring
or dword->byte