ソースを参照

* allow -l-

git-svn-id: trunk@8382 -
peter 18 年 前
コミット
8c24a15e26
1 ファイル変更1 行追加3 行削除
  1. 1 3
      compiler/options.pas

+ 1 - 3
compiler/options.pas

@@ -907,10 +907,8 @@ begin
                else
                  IllegalPara(opt);
              end;
-
            'l' :
-             if not UnSetBool(more,0) then
-               ParaLogo:=true;
+               ParaLogo:=UnSetBool(more,0);
 
            'm' :
              parapreprocess:=not UnSetBool(more,0);