paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 03:46:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check length of optstring before dereferencing (optstring[1]) it. Fixes #40596

Browse Source
This commit is contained in:
marcoonthegit 2024-01-17 11:41:16 +01:00
parent 42f447257d
commit 231007ebda
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/getopts.pp
View File

@ -409,7 +409,7 @@ begin
if opterr then if opterr then
writeln(argv[0],': option ',pfound^.name,' requires an argument'); writeln(argv[0],': option ',pfound^.name,' requires an argument');
nextchar:=0; nextchar:=0;
if optstring[1]=':' then if (length(optstring)>0) and (optstring[1]=':') then
Internal_getopt:=':' Internal_getopt:=':'
else else
Internal_getopt:='?'; Internal_getopt:='?';