* Fix from Henrique Werlang, use safename when writing pascal code (pas2js issue 39196)

packages/fcl-passrc/src/paswrite.pp

@@ -1006,7 +1006,7 @@ begin
       A:= TPasArgument(AList[i]);
       if i > 0 then
         Add('; ');
-      Add(AccessNames[A.Access]+A.Name);
+      Add(AccessNames[A.Access]+A.SafeName);
       if Assigned(A.ArgType) then
         begin
         Add(': ');