瀏覽代碼

* Fix debug statement

Michaël Van Canneyt 1 年之前
父節點
當前提交
d5807e03b6
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-hash/src/fppem.pp

+ 1 - 1
packages/fcl-hash/src/fppem.pp

@@ -169,7 +169,7 @@ begin
   ASNParsePemSection(Buffer, List, _BEGIN_EC_PRIVATE_KEY, _END_EC_PRIVATE_KEY);
   ASNParsePemSection(Buffer, List, _BEGIN_EC_PRIVATE_KEY, _END_EC_PRIVATE_KEY);
   if List.Count < 7 then
   if List.Count < 7 then
     Exit;
     Exit;
-  Writeln(List.Text);
+//  Writeln(List.Text);
   CurveOID := List.Strings[4];
   CurveOID := List.Strings[4];
   Result := (CurveOID=ASN_secp256r1);
   Result := (CurveOID=ASN_secp256r1);
 end;
 end;