From fb2570026091f65de62b1568d743352ee6aa5972 Mon Sep 17 00:00:00 2001 From: geby Date: Mon, 4 Jan 2010 09:20:05 +0000 Subject: [PATCH] Fixed D2009 compatibility in ssl_openssl_lib.pas git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@107 7c85be65-684b-0410-a082-b2ed4fbef004 --- ssl_openssl_lib.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ssl_openssl_lib.pas b/ssl_openssl_lib.pas index 23d33ec..f65ed11 100644 --- a/ssl_openssl_lib.pas +++ b/ssl_openssl_lib.pas @@ -1,9 +1,9 @@ {==============================================================================| -| Project : Ararat Synapse | 003.005.000 | +| Project : Ararat Synapse | 003.005.001 | |==============================================================================| | Content: SSL support by OpenSSL | |==============================================================================| -| Copyright (c)1999-2008, Lukas Gebauer | +| Copyright (c)1999-2010, Lukas Gebauer | | All rights reserved. | | | | Redistribution and use in source and binary forms, with or without | @@ -33,7 +33,7 @@ | DAMAGE. | |==============================================================================| | The Initial Developer of the Original Code is Lukas Gebauer (Czech Republic).| -| Portions created by Lukas Gebauer are Copyright (c)2002-2008. | +| Portions created by Lukas Gebauer are Copyright (c)2002-2010. | | All Rights Reserved. | |==============================================================================| | Contributor(s): | @@ -1352,7 +1352,7 @@ procedure ErrErrorString(e: integer; var buf: Ansistring; len: integer); begin if InitSSLInterface and Assigned(_ErrErrorString) then _ErrErrorString(e, Pointer(buf), len); - buf := PChar(Buf); + buf := PAnsiChar(Buf); end; function ErrGetError: integer;