X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=blobdiff_plain;f=src%2Fgeneric%2FDsw%2FMod%2FOpts.cp;h=3262528440e99d6c173413c189c47345b216e3ad;hp=f4fc7d110d35ace6fab6b5603695e6ab660485a3;hb=d04c6367a927c536552ae595c92cc15347d3a65f;hpb=0c2f9751f947b917bb4cdf63da95d5cd79d1b8c2

diff --git a/src/generic/Dsw/Mod/Opts.cp b/src/generic/Dsw/Mod/Opts.cp
index f4fc7d1..3262528 100644
--- a/src/generic/Dsw/Mod/Opts.cp
+++ b/src/generic/Dsw/Mod/Opts.cp
@@ -40,6 +40,7 @@ MODULE DswOpts;
   PROCEDURE GetOpt* (IN optstring: ARRAY OF CHAR): CHAR;
     VAR opt, ch: CHAR; i: INTEGER;
   BEGIN
+    str := NIL;
     IF argn >= LEN(args) THEN
       opt := 0X; optMode := FALSE (* eof *)
     ELSIF optMode & IsOpt(args[argn, argi]) OR (args[argn, argi] = "-") & IsOpt(args[argn, argi + 1]) THEN