+ simple function (1 param) added

tests/sparc/sparc.pas

@@ -2,6 +2,10 @@ PROGRAM SparcTest;
 VAR
   x,y:Cardinal; 
   z:0..255;
+FUNCTION CopyMe(x:Cardinal):Cardinal;
+  BEGIN
+    CopyMe:=x;
+  END;
 FUNCTION Add(a,b:Cardinal):Cardinal;
   BEGIN
     Add:=a+b;