paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:09:25 +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
writeln(argv[0],': option ',pfound^.name,' requires an argument');
nextchar:=0;
if optstring[1]=':' then
if (length(optstring)>0) and (optstring[1]=':') then
Internal_getopt:=':'
else
Internal_getopt:='?';