X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=rtl%2FOberon.obn;h=37067d702e8879834e09136b304f7f894bd20920;hb=85fa8ae39ab226ea6319a583b7bb2189beddc8b6;hp=6282f4e4acd3bc1ab45cf0a56c6cb24f3877e948;hpb=674b8e806962b40992601aca7f1234103a3aefb0;p=dsw-obn.git diff --git a/rtl/Oberon.obn b/rtl/Oberon.obn index 6282f4e..37067d7 100644 --- a/rtl/Oberon.obn +++ b/rtl/Oberon.obn @@ -50,14 +50,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;