mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-10 04:49:07 +02:00
tarmunaryminusnode.pass_1 must call inherited method for system_arm_wince
git-svn-id: trunk@45755 -
This commit is contained in:
parent
a62534d11f
commit
39f3a72c62
@ -54,7 +54,7 @@ implementation
|
||||
globtype,compinnr,
|
||||
cutils,verbose,globals,constexp,
|
||||
aasmbase,aasmcpu,aasmtai,aasmdata,
|
||||
defutil,
|
||||
defutil,systems,
|
||||
symtype,symconst,symtable,
|
||||
cgbase,cgobj,hlcgobj,cgutils,
|
||||
pass_2,procinfo,
|
||||
@ -359,7 +359,8 @@ implementation
|
||||
fdef : tdef;
|
||||
begin
|
||||
if (FPUARM_HAS_VFP_DOUBLE in fpu_capabilities[current_settings.fputype]) or
|
||||
is_single(resultdef) then
|
||||
(target_info.system = system_arm_wince) or
|
||||
is_single(resultdef) then
|
||||
exit(inherited pass_1);
|
||||
|
||||
result:=nil;
|
||||
|
Loading…
Reference in New Issue
Block a user