From: <tw...@us...> - 2020-02-02 15:03:39
|
Revision: 3046 http://sourceforge.net/p/gexperts/code/3046 Author: twm Date: 2020-02-02 15:03:37 +0000 (Sun, 02 Feb 2020) Log Message: ----------- fixed Delphi 6 compile errors Modified Paths: -------------- trunk/ExternalSource/dzlib/u_dzConvertUtils.pas trunk/ExternalSource/dzlib/u_dzGraphicsUtils.pas Modified: trunk/ExternalSource/dzlib/u_dzConvertUtils.pas =================================================================== --- trunk/ExternalSource/dzlib/u_dzConvertUtils.pas 2020-02-02 14:59:35 UTC (rev 3045) +++ trunk/ExternalSource/dzlib/u_dzConvertUtils.pas 2020-02-02 15:03:37 UTC (rev 3046) @@ -584,7 +584,7 @@ Result := '0' + Result; end; -function ReduceToByte(const _Value: Integer): Byte; inline; +function ReduceToByte(const _Value: Integer): Byte; begin if _Value < 0 then Result := 0 Modified: trunk/ExternalSource/dzlib/u_dzGraphicsUtils.pas =================================================================== --- trunk/ExternalSource/dzlib/u_dzGraphicsUtils.pas 2020-02-02 14:59:35 UTC (rev 3045) +++ trunk/ExternalSource/dzlib/u_dzGraphicsUtils.pas 2020-02-02 15:03:37 UTC (rev 3046) @@ -87,7 +87,7 @@ inline; {$ENDIF} -function PtrDiff(const _Ptr1, _Ptr2: Pointer): NativeInt; inline; +function PtrDiff(const _Ptr1, _Ptr2: Pointer): NativeInt; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF} @@ -2793,7 +2793,7 @@ Result := Pointer(NativeInt(_Ptr) + _Offset); end; -function PtrDiff(const _Ptr1, _Ptr2: Pointer): NativeInt; inline; +function PtrDiff(const _Ptr1, _Ptr2: Pointer): NativeInt; begin Result := NativeInt(_Ptr1) - NativeInt(_Ptr2); end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |