X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=rtl%2FOberon.obn;h=3316b850ea9e30bfd4b0c82eac8f77994fb0a1b3;hp=6282f4e4acd3bc1ab45cf0a56c6cb24f3877e948;hb=317e2eb03b343f9d753990e6ed8386fd4effca60;hpb=d4878eaf0861679d6af935c2078ab43cf59dcf67

diff --git a/rtl/Oberon.obn b/rtl/Oberon.obn
index 6282f4e..3316b85 100644
--- a/rtl/Oberon.obn
+++ b/rtl/Oberon.obn
@@ -29,6 +29,7 @@ BEGIN
   i := 1;
   WHILE i < Args.count DO
     Args.GetArg(i, str); Texts.WriteString(W, str); Texts.Write(W, " ");
+    Out.String("Param "); Out.Int(i, 0); Out.Char(" "); Out.String(str); Out.Ln;
     INC(i)
   END;
   Texts.Append(Par.text, W.buf);
@@ -50,14 +51,9 @@ BEGIN
   END
 END LogNotifier;
 
-PROCEDURE StubNotifier(T: Texts.Text; op: INTEGER; beg, end: LONGINT);
-BEGIN
-END StubNotifier;
-
 BEGIN
   NEW(Par);
   NEW(Par.text);
-  Par.text.notify := StubNotifier;
   Par.pos := 0;
   Texts.Open(Par.text, "");
   PopulateParams;