fcl-passrc: paswrite: allow writing "out" and "constref" modifiers

git-svn-id: trunk@36625 -

packages/fcl-passrc/src/paswrite.pp

@@ -303,6 +303,8 @@ begin
         case Access of
           argConst: wrt('const ');
           argVar: wrt('var ');
+          argOut: wrt('out ');
+          argConstRef: wrt('constref ');
         end;
         wrt(Name);
         if Assigned(ArgType) then
@@ -369,6 +371,8 @@ begin
         case Access of
           argConst: wrt('const ');
           argVar: wrt('var ');
+          argOut: wrt('out ');
+          argConstRef: wrt('constref ');
         end;
         wrt(Name);
         if Assigned(ArgType) then