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

* never use the target_specific_explicit_typeconv() code for non-tc_equal

Browse Source 
type conversions (those are/can be intercepted in the specific handlers)

git-svn-id: branches/jvmbackend@18623 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:16:09 +00:00
parent 325b5cae6b
commit 6f2b7ca830
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/jvm/njvmcnv.pas
View File

@ -664,6 +664,11 @@ implementation
toarrtype: char;
begin
resnode:=nil;
if convtype<>tc_equal then
begin
result:=false;
exit
end;
{ This routine is only called for explicit typeconversions of same-sized
entities that aren't handled by normal type conversions -> bit pattern
reinterpretations. In the JVM, many of these also need special
@ -757,8 +762,7 @@ implementation
except for a few special cases }
{ float to int/enum explicit type conversion: get the bits }
if (convtype<>tc_int_2_real) and
(left.resultdef.typ=floatdef) and
if (left.resultdef.typ=floatdef) and
(is_integer(resultdef) or
(resultdef.typ=enumdef)) then
begin
@ -772,16 +776,13 @@ implementation
(left.resultdef.typ=enumdef)) and
(resultdef.typ=floatdef) then
begin
if (convtype<>tc_int_2_real) then
if not check_only then
begin
if (left.resultdef.typ=enumdef) then
inserttypeconv_explicit(left,s32inttype);
if not check_only then
resnode:=int_real_explicit_typecast(tfloatdef(resultdef),'INTBITSTOFLOAT','LONGBITSTODOUBLE');
result:=true;
end
else
result:=false;
resnode:=int_real_explicit_typecast(tfloatdef(resultdef),'INTBITSTOFLOAT','LONGBITSTODOUBLE');
end;
result:=true;
exit;
end;