git-svn-id: trunk@19689 -
@@ -2038,6 +2038,7 @@ implementation
begin
if (target_info.system in [system_i386_darwin,system_i386_iphonesim,system_arm_darwin]) then
case floattype of
+ sc80real,
s80real: result:=16;
s64real,
s64currency,