Przeglądaj źródła

* allow -l-

git-svn-id: trunk@8382 -
peter 18 lat temu
rodzic
commit
8c24a15e26
1 zmienionych plików z 1 dodań i 3 usunięć
  1. 1 3
      compiler/options.pas

+ 1 - 3
compiler/options.pas

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