* support unique copies of currencies which are handles by torddef, resolves #36013

git-svn-id: trunk@42837 -

.gitattributes

@@ -17804,6 +17804,7 @@ tests/webtbs/tw35953.pp svneol=native#text/pascal
 tests/webtbs/tw35955.pp svneol=native#text/pascal
 tests/webtbs/tw35965.pp svneol=native#text/pascal
 tests/webtbs/tw35982.pp svneol=native#text/pascal
+tests/webtbs/tw36013.pp svneol=native#text/pascal
 tests/webtbs/tw3612.pp svneol=native#text/plain
 tests/webtbs/tw3617.pp svneol=native#text/plain
 tests/webtbs/tw3619.pp svneol=native#text/plain

compiler/defcmp.pas

@@ -424,7 +424,8 @@ implementation
                             end;
                           uvoid,
                           pasbool1,pasbool8,pasbool16,pasbool32,pasbool64,
-                          bool8bit,bool16bit,bool32bit,bool64bit:
+                          bool8bit,bool16bit,bool32bit,bool64bit,
+                          scurrency:
                             eq:=te_equal;
                           else
                             internalerror(200210061);

tests/webtbs/tw36013.pp

@@ -0,0 +1,10 @@
+{ %OPT=-MObjFPC }
+
+program Project1;
+type
+  c = type currency;
+var
+  a: c;
+begin
+  a:=currency(1);
+end.