|
@@ -54,7 +54,7 @@ implementation
|
|
|
globtype,compinnr,
|
|
globtype,compinnr,
|
|
|
cutils,verbose,globals,constexp,
|
|
cutils,verbose,globals,constexp,
|
|
|
aasmbase,aasmcpu,aasmtai,aasmdata,
|
|
aasmbase,aasmcpu,aasmtai,aasmdata,
|
|
|
- defutil,
|
|
|
|
|
|
|
+ defutil,systems,
|
|
|
symtype,symconst,symtable,
|
|
symtype,symconst,symtable,
|
|
|
cgbase,cgobj,hlcgobj,cgutils,
|
|
cgbase,cgobj,hlcgobj,cgutils,
|
|
|
pass_2,procinfo,
|
|
pass_2,procinfo,
|
|
@@ -359,7 +359,8 @@ implementation
|
|
|
fdef : tdef;
|
|
fdef : tdef;
|
|
|
begin
|
|
begin
|
|
|
if (FPUARM_HAS_VFP_DOUBLE in fpu_capabilities[current_settings.fputype]) or
|
|
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);
|
|
exit(inherited pass_1);
|
|
|
|
|
|
|
|
result:=nil;
|
|
result:=nil;
|
pierre