Hi.

I've been playing with GetLongOpts recently and I *think* I found a bug though this may be as well a required behaviour but I decided to report it anyway.

GetLongOpts fails to set a flag even when directly told to so.

Consider following code [1].

When executed with '-o' it sets flag as expected. When one uses '--option' instead flag is not set.

In getopts.pp, line #397:

          if longindnil then
           plongint(longind)^:=indfound+1;
          if pfound^.flagnil then
           begin
             pfound^.flag^:=pfound^.value;
             internal_getopt:=#0;
             exit;
           end;

I do believe that the exit should be there but again, maybe that's just me.

Looking forward to your reply,
Łukasz

[1]. https://gist.github.com/anonymous/e26fdadd4a88fbd3c27db74d09db5158

I will look at it, at least I can reproduce the problem.

Can you please post a bugreport, so it will not be forgotten ?

Michael.

Hi.

I will look at it, at least I can reproduce the problem. Can you please post a bugreport, so it will not be forgotten ?

Cool, thanks.

http://bugs.freepascal.org/view.php?id=30736

I forgot that mantis automatically changes #xxx to link pointing to a corresponding bug report.

Łukasz