Skip to content

const optimization on string parameters #195

@chuacw

Description

@chuacw

procedure TIdCmdTCPClient.DoReplyUnknownCommand(AContext: TIdContext; ALine: string) in IdCmdTCPClient

to change to

procedure TIdCmdTCPClient.DoReplyUnknownCommand(AContext: TIdContext; const ALine: string).


procedure TIdCmdTCPServer.DoReplyUnknownCommand(AContext: TIdContext; ALine: string);

to change to

procedure TIdCmdTCPServer.DoReplyUnknownCommand(AContext: TIdContext; const ALine: string);

in IdCmdTCPServer.pas


procedure TIdCommandHandler.DoCommand(const AData: string; AContext: TIdContext; AUnparsedParams: string);

to change to

procedure TIdCommandHandler.DoCommand(const AData: string; AContext: TIdContext; const AUnparsedParams: string);

and

procedure TIdCommandHandler.DoParseParams(AUnparsedParams: string; AParams: TStrings);

to change to

procedure TIdCommandHandler.DoParseParams(const AUnparsedParams: string; AParams: TStrings);

in IdCommandHandlers.pas


function TIdIOHandler.ReadLn(ATerminator: string; AByteEncoding: IIdTextEncoding
{$IFDEF STRING_IS_ANSI}; ADestEncoding: IIdTextEncoding = nil{$ENDIF}
): string;
{$IFDEF USE_CLASSINLINE}inline;{$ENDIF}

to change to

function TIdIOHandler.ReadLn(const ATerminator: string; AByteEncoding: IIdTextEncoding
{$IFDEF STRING_IS_ANSI}; ADestEncoding: IIdTextEncoding = nil{$ENDIF}
): string;
{$IFDEF USE_CLASSINLINE}inline;{$ENDIF}

and

function TIdIOHandler.ReadLnSplit(var AWasSplit: Boolean; ATerminator: string = LF;
ATimeout: Integer = IdTimeoutDefault; AMaxLineLength: Integer = -1;
AByteEncoding: IIdTextEncoding = nil
{$IFDEF STRING_IS_ANSI}; ADestEncoding: IIdTextEncoding = nil{$ENDIF}
): string;

to change to

function TIdIOHandler.ReadLnSplit(var AWasSplit: Boolean; const ATerminator: string = LF;
ATimeout: Integer = IdTimeoutDefault; AMaxLineLength: Integer = -1;
AByteEncoding: IIdTextEncoding = nil
{$IFDEF STRING_IS_ANSI}; ADestEncoding: IIdTextEncoding = nil{$ENDIF}
): string;

and

procedure TIdIOHandler.Capture(ADest: TStream; ADelim: string;
AUsesDotTransparency: Boolean = True; AByteEncoding: IIdTextEncoding = nil
{$IFDEF STRING_IS_ANSI}; ADestEncoding: IIdTextEncoding = nil{$ENDIF}
);

to change to

procedure TIdIOHandler.Capture(ADest: TStream; const ADelim: string;
AUsesDotTransparency: Boolean = True; AByteEncoding: IIdTextEncoding = nil
{$IFDEF STRING_IS_ANSI}; ADestEncoding: IIdTextEncoding = nil{$ENDIF}
);

in IdIOHandler.pas


function TIdTCPConnection.SendCmd(AOut: string; const AResponse: Array of Int16;
AEncoding: IIdTextEncoding = nil): Int16;

to change to

function TIdTCPConnection.SendCmd(const AOut: string; const AResponse: Array of Int16;
AEncoding: IIdTextEncoding = nil): Int16;

and

function TIdTCPConnection.SendCmd(AOut: string; const AResponse: Int16 = -1;
AEncoding: IIdTextEncoding = nil): Int16;

to change to

function TIdTCPConnection.SendCmd(const AOut: string; const AResponse: Int16 = -1;
AEncoding: IIdTextEncoding = nil): Int16;

and

function TIdTCPConnection.SendCmd(AOut: string; const AResponse: string;
AEncoding: IIdTextEncoding = nil): string;

to change to

function TIdTCPConnection.SendCmd(const AOut: string; const AResponse: string;
AEncoding: IIdTextEncoding = nil): string;

in IdTCPConnection.pas


All of the AURL parameters needs a const in IdHTTP.pas

Metadata

Metadata

Assignees

No one assigned

    Labels

    Element: Compiler/IDEIssues related to a particular Compiler and/or IDEStatus: Review NeededIssue needs further review to decide next statusType: EnhancementIssue is proposing a new feature/enhancement

    Type

    No type

    Projects

    No projects

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions