浏览代码

FIX: FPC 3.0.4 compatibility

Alexander Koblov 4 年之前
父节点
当前提交
6d116a4092
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      components/dcpcrypt/Hashes/dcpchecksum32.pas

+ 1 - 1
components/dcpcrypt/Hashes/dcpchecksum32.pas

@@ -118,7 +118,7 @@ begin
 end;
 
 { TDCP_checksum32.Update }
-{$PUSH}{$R-}{$Q-}{$OPTIMIZATION LEVEL4} // no range, no overflow checks, optimize for speed (not size)
+{$PUSH}{$R-}{$Q-}{$OPTIMIZATION LEVEL3} // no range, no overflow checks, optimize for speed (not size)
 procedure TDCP_checksum32.Update(const Buffer; Size: longword);
 var
   data: PByte;