From: <tw...@us...> - 2021-08-14 16:39:11
|
Revision: 3582 http://sourceforge.net/p/gexperts/code/3582 Author: twm Date: 2021-08-14 16:39:08 +0000 (Sat, 14 Aug 2021) Log Message: ----------- update dzlib again Modified Paths: -------------- trunk/ExternalSource/dzlib/dzlib.inc trunk/ExternalSource/dzlib/u_dzNullableTimespan.pas Modified: trunk/ExternalSource/dzlib/dzlib.inc =================================================================== --- trunk/ExternalSource/dzlib/dzlib.inc 2021-08-14 16:22:28 UTC (rev 3581) +++ trunk/ExternalSource/dzlib/dzlib.inc 2021-08-14 16:39:08 UTC (rev 3582) @@ -53,6 +53,9 @@ {$IFDEF DELPHI2007_UP} {$DEFINE HAS_INTTOHEX_FUNCTION} +{$ELSE} +// Support for enhanced records didn't work very well in Delphi 2006 +{$UNDEF SUPPORTS_ENHANCED_RECORDS} {$ENDIF} // The following cond. defines address errors in various Delphi versions regarding the declaration @@ -99,8 +102,7 @@ {$DEFINE HAS_INTTOHEX_FUNCTION_UINT64} {$ENDIF} -{$IFDEF DELPHI2009_UP} - {.I know that it exists in $IFDEF GX_DELPHI_TOKYO_UP} +{$IFDEF DELPHI2010_UP} {$DEFINE CUSTOMINIFILE_HAS_READSUBSECTIONS} {$ENDIF} Modified: trunk/ExternalSource/dzlib/u_dzNullableTimespan.pas =================================================================== --- trunk/ExternalSource/dzlib/u_dzNullableTimespan.pas 2021-08-14 16:22:28 UTC (rev 3581) +++ trunk/ExternalSource/dzlib/u_dzNullableTimespan.pas 2021-08-14 16:39:08 UTC (rev 3582) @@ -4,7 +4,7 @@ interface -{$IFNDEF DELPHI2007_UP} +{$IFNDEF SUPPORTS_ENHANCED_RECORDS} {$IFNDEF NO_DELPHI2007UP_HINT} {$MESSAGE HINT 'Delphi <2007 not supported'} {$ENDIF} @@ -141,11 +141,11 @@ type TdzNullableTimespan = TNullableTimespan deprecated; -{$ENDIF DELPHI2007_UP} +{$ENDIF SUPPORTS_ENHANCED_RECORDS} implementation -{$IFDEF DELPHI2007_UP} +{$IFDEF SUPPORTS_ENHANCED_RECORDS} uses Math, @@ -718,6 +718,6 @@ Result := FFullDays * MicrosecondsPerDay + FMicroSeconds; end; -{$ENDIF DELPHI2007_UP} +{$ENDIF SUPPORTS_ENHANCED_RECORDS} end. This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |