Source position: getopth.inc line 10
type option = record
name: Pchar;
has_arg: LongInt;
flag: Plongint;
val: LongInt;
end;