* Handle ordinal currency types.

git-svn-id: branches/fpc_2_3@6579 -

compiler/ninl.pas

@@ -464,6 +464,11 @@ implementation
                       readfunctype:=u64inttype;
                     end;
 {$endif cpu64bit}
+                  scurrency:
+                    begin
+                      name := procprefixes[do_read]+'currency'
+                      readfunctype:=s64currencytype;
+                    end;
                   bool8bit,
                   bool16bit,
                   bool32bit,