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

* check added to avoid potential SIGSEGV

Browse Source 
git-svn-id: trunk@1261 -
This commit is contained in:
Tomas Hajny 2005-10-02 22:18:45 +00:00
parent da9ea7ff88
commit 022e3ceef8
1 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/globals.pas
View File

@ -1352,6 +1352,9 @@ implementation
startpc,pc : pchar; startpc,pc : pchar;
sepch : char; sepch : char;
begin begin
FindFilePchar:=false;
if Assigned (Path) then
begin
{$ifdef Unix} {$ifdef Unix}
sepch:=':'; sepch:=':';
{$else} {$else}
@ -1361,7 +1364,6 @@ implementation
sepch:=';'; sepch:=';';
{$endif macos} {$endif macos}
{$endif Unix} {$endif Unix}
FindFilePchar:=false;
pc:=path; pc:=path;
repeat repeat
startpc:=pc; startpc:=pc;
@ -1377,6 +1379,7 @@ implementation
break; break;
inc(pc); inc(pc);
until false; until false;
end;
foundfile:=f; foundfile:=f;
end; end;