switching the internal pascal parser to fcl-passrc

type_lib_edtr: type library editor

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@190 8e941d3f-bd1b-0410-a28a-d453659cc2b4

wst/trunk/soap_formatter.pas

@@ -164,7 +164,9 @@ begin
   end;
   eltName := nsShortName + 'Fault';
   If SameText(eltName,bdyNd.FirstChild.NodeName) Then Begin
+    Self.Style := RPC;
     fltNd := bdyNd.FirstChild;
+    PushStack(fltNd);
     excpt_Obj := ESOAPException.Create('');
     Try
       eltName := 'faultcode';