Skip to content

Commit 2aacee4

Browse files
committed
Compilation fix and warnings removal for non-Windows platforms in older Delphi versions
1 parent 62e9f0e commit 2aacee4

File tree

3 files changed

+5
-1
lines changed

3 files changed

+5
-1
lines changed

Source/Core/AWS.Lib.Collections.pas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -189,7 +189,7 @@ destructor TOrderedDictionary<K, V>.Destroy;
189189
begin
190190
Clear;
191191
{$IFDEF AUTOREFCOUNT}
192-
FItems..DisposeOf;
192+
FItems.DisposeOf;
193193
{$ELSE}
194194
FItems.Free;
195195
{$ENDIF}

Source/Core/AWS.Runtime.HttpRequestMessageFactory.pas

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -137,8 +137,10 @@ constructor THttpWebRequestMessage.Create(AHttpClient: THttpClient; ARequestUri:
137137

138138
destructor THttpWebRequestMessage.Destroy;
139139
begin
140+
{$IFNDEF AUTOREFCOUNT}
140141
if (FRequest <> nil) and FOwnsSourceStream then
141142
FRequest.SourceStream.Free;
143+
{$ENDIF}
142144
FHttpClient.Free;
143145
inherited;
144146
end;

Source/Core/AWS.SDKUtils.pas

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -640,7 +640,9 @@ class function TAWSSDKUtils.ExecuteHttpRequest(const AUri, ARequestType, AConten
640640
raise EWebException.Create(AUri, Response.StatusCode);
641641
Result := TEncoding.UTF8.GetString(StreamToBytes(Response.ContentStream));
642642
finally
643+
{$IFNDEF AUTOREFCOUNT}
643644
Request.SourceStream.Free;
645+
{$ENDIF}
644646
end;
645647
finally
646648
Client.Free;

0 commit comments

Comments
 (0)