소스 검색

Cleanup parse code for ssCompression (Value is already trimmed) and ssInternalCompressLevel (LowerCase not required, also not by LZMAGetlevel).

Martijn Laan 1 년 전
부모
커밋
43becdf57c
1개의 변경된 파일1개의 추가작업 그리고 2개의 파일을 삭제
  1. 1 2
      Projects/Src/Compile.pas

+ 1 - 2
Projects/Src/Compile.pas

@@ -3620,7 +3620,7 @@ begin
         end;
       end;
     ssCompression: begin
-        Value := Lowercase(Trim(Value));
+        Value := LowerCase(Value);
         if Value = 'none' then begin
           CompressMethod := cmStored;
           CompressLevel := 0;
@@ -3797,7 +3797,6 @@ begin
         InfoAfterFile := Value;
       end;
     ssInternalCompressLevel: begin
-        Value := Lowercase(Trim(Value));
         if (Value = '0') or (CompareText(Value, 'none') = 0) then
           InternalCompressLevel := 0
         else if not LZMAGetLevel(Value, InternalCompressLevel) then