@@ -926,7 +926,8 @@ begin
end;
-{$ifdef FPC_HAS_STR_CURRENCY}
+{$ifndef FPC_HAS_CHARARRAY_CURRENCY}
+{$define FPC_HAS_CHARARRAY_CURRENCY}
procedure fpc_chararray_Currency(c : Currency;len,fr : SizeInt;out a : array of char);compilerproc;
var
ss : shortstring;