Browse Source

Update UOpenSSL.pas

Fixed Delphi 64 bits compiler bug caused by invalid field type
PascalCoin 6 years ago
parent
commit
d10b907ca1
1 changed files with 2 additions and 2 deletions
  1. 2 2
      src/core/UOpenSSL.pas

+ 2 - 2
src/core/UOpenSSL.pas

@@ -100,7 +100,7 @@ type
   PBN_ULONG = ^BN_ULONG;
   PBN_ULONG = ^BN_ULONG;
   DES_LONG= TC_ULONG;
   DES_LONG= TC_ULONG;
   PDES_LONG = ^DES_LONG;
   PDES_LONG = ^DES_LONG;
-  point_conversion_form_t = byte;
+  point_conversion_form_t = TC_UINT;
   TC_OSSL_SSIZE_T = TC_LONG;
   TC_OSSL_SSIZE_T = TC_LONG;
   IDEA_INT = TC_UINT;
   IDEA_INT = TC_UINT;
   MD4_LONG = TC_ULONG;
   MD4_LONG = TC_ULONG;
@@ -418,7 +418,7 @@ begin
       Result := LoadLibrary(PWideChar(_LibraryName));
       Result := LoadLibrary(PWideChar(_LibraryName));
       {$ENDIF}
       {$ENDIF}
       if Result <> 0 then begin
       if Result <> 0 then begin
-        Break;
+        Exit;
       end else _LibraryName := '';
       end else _LibraryName := '';
     end;
     end;
   end;
   end;