paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 05:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Luiz Americo to add const to some string params (Bug ID 30197)

Browse Source 
git-svn-id: trunk@33829 -
This commit is contained in:
michael 2016-05-27 19:11:48 +00:00
parent 1d7c19aaf0
commit 9f9abd525a
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/resh.inc
View File

@ -76,8 +76,8 @@ Function UnlockResource(ResData: TFPResourceHGLOBAL): LongBool;
Function FreeResource(ResData: TFPResourceHGLOBAL): LongBool; Function FreeResource(ResData: TFPResourceHGLOBAL): LongBool;
{$endif Win16} {$endif Win16}
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS} {$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
Function FindResource(ModuleHandle: TFPResourceHMODULE; ResourceName, ResourceType: AnsiString): TFPResourceHandle; Function FindResource(ModuleHandle: TFPResourceHMODULE; const ResourceName, ResourceType: AnsiString): TFPResourceHandle;
Function FindResourceEx(ModuleHandle: TFPResourceHMODULE; ResourceType, ResourceName: AnsiString; Language : word): TFPResourceHandle; Function FindResourceEx(ModuleHandle: TFPResourceHMODULE; const ResourceType, ResourceName: AnsiString; Language : word): TFPResourceHandle;
{$endif} {$endif}
type type

4
rtl/inc/sysres.inc
View File

@ -32,13 +32,13 @@ end;
*****************************************************************************) *****************************************************************************)
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS} {$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
Function FindResource(ModuleHandle: TFPResourceHMODULE; ResourceName, ResourceType: AnsiString): TFPResourceHandle; Function FindResource(ModuleHandle: TFPResourceHMODULE; const ResourceName, ResourceType: AnsiString): TFPResourceHandle;
begin begin
Result:=FindResource(ModuleHandle,PChar(ResourceName),PChar(ResourceType)); Result:=FindResource(ModuleHandle,PChar(ResourceName),PChar(ResourceType));
end; end;
Function FindResourceEx(ModuleHandle: TFPResourceHMODULE; ResourceType, ResourceName: AnsiString; Language : word): TFPResourceHandle; Function FindResourceEx(ModuleHandle: TFPResourceHMODULE; const ResourceType, ResourceName: AnsiString; Language : word): TFPResourceHandle;
begin begin
Result:=FindResourceEx(ModuleHandle,PChar(ResourceType),PChar(ResourceName),Language); Result:=FindResourceEx(ModuleHandle,PChar(ResourceType),PChar(ResourceName),Language);