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

* prevent crash in dotest in case a test file contains a line at the start

Browse Source 
with only whitespace on it (such as webtbf/tw21873.pp)

git-svn-id: trunk@21119 -
This commit is contained in:
Jonas Maebe 2012-04-29 17:36:11 +00:00
parent aadeba4d1a
commit 9e0bc92b88
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/utils/testu.pp
View File

@ -163,9 +163,9 @@ begin
readln(t,s); readln(t,s);
if Copy(s,1,3)=#$EF#$BB#$BF then if Copy(s,1,3)=#$EF#$BB#$BF then
delete(s,1,3); delete(s,1,3);
TrimB(s);
if s<>'' then if s<>'' then
begin begin
TrimB(s);
if s[1]='{' then if s[1]='{' then
begin begin
delete(s,1,1); delete(s,1,1);