From 2cb7b4cf0fb2e63cf2fbf64cd8d983f15cddd549 Mon Sep 17 00:00:00 2001 From: Tomas Hajny Date: Wed, 11 Apr 2012 21:12:03 +0000 Subject: [PATCH] * fixed a silly bug from r20694 git-svn-id: trunk@20852 - --- compiler/options.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/options.pas b/compiler/options.pas index 87a7d903f1..510638857e 100644 --- a/compiler/options.pas +++ b/compiler/options.pas @@ -693,7 +693,7 @@ begin case opt[2] of '?' : begin - if More [1] = 'F' then + if (More <> '') and (More [1] = 'F') then begin FPCHelpLines := true; Delete (More, 1, 1); @@ -1253,7 +1253,7 @@ begin 'h' : begin NoPressEnter:=true; - if More [1] = 'F' then + if (More <> '') and (More [1] = 'F') then begin FPCHelpLines := true; Delete (More, 1, 1);