* dynlibs.pas: added 'const' modifiers to eliminate unnecessary local string copies

git-svn-id: trunk@16366 -

rtl/inc/dynlibs.pas

@@ -36,9 +36,9 @@ uses
   ---------------------------------------------------------------------}
 
 
-Function SafeLoadLibrary(Name : AnsiString) : TLibHandle;
-Function LoadLibrary(Name : AnsiString) : TLibHandle;
-Function GetProcedureAddress(Lib : TlibHandle; ProcName : AnsiString) : Pointer;
+Function SafeLoadLibrary(const Name : AnsiString) : TLibHandle;
+Function LoadLibrary(const Name : AnsiString) : TLibHandle;
+Function GetProcedureAddress(Lib : TlibHandle; const ProcName : AnsiString) : Pointer;
 Function UnloadLibrary(Lib : TLibHandle) : Boolean;
 
 
@@ -48,7 +48,7 @@ Type
   HModule = TLibHandle;
 
 Function FreeLibrary(Lib : TLibHandle) : Boolean;
-Function GetProcAddress(Lib : TlibHandle; ProcName : AnsiString) : Pointer;
+Function GetProcAddress(Lib : TlibHandle; const ProcName : AnsiString) : Pointer;
 
 
 // Dynamic Library Manager
@@ -136,13 +136,13 @@ begin
   Result:=UnloadLibrary(lib);
 end;
 
-Function GetProcAddress(Lib : TlibHandle; ProcName : AnsiString) : Pointer;
+Function GetProcAddress(Lib : TlibHandle; const ProcName : AnsiString) : Pointer;
 
 begin
   Result:=GetProcedureAddress(Lib,Procname);
 end;
 
-Function SafeLoadLibrary(Name : AnsiString) : TLibHandle;
+Function SafeLoadLibrary(const Name : AnsiString) : TLibHandle;
 
 {$ifdef i386}
  var w : word;

rtl/netwlibc/dynlibs.inc

@@ -35,13 +35,13 @@ Const
 
 uses libc;
 
-Function LoadLibrary(Name : AnsiString) : TLibHandle;
+Function LoadLibrary(const Name : AnsiString) : TLibHandle;
 
 begin
   Result:=dlopen(Pchar(Name),RTLD_LAZY);
 end;
 
-Function GetProcedureAddress(Lib : TLibHandle; ProcName : AnsiString) : Pointer;
+Function GetProcedureAddress(Lib : TLibHandle; const ProcName : AnsiString) : Pointer;
 
 begin
   Result:=dlsym(lib,pchar(ProcName));

rtl/os2/dynlibs.inc

@@ -37,7 +37,7 @@ const
 uses
  DosCalls;
 
-function LoadLibrary (Name: AnsiString): TLibHandle;
+function LoadLibrary (const Name: AnsiString): TLibHandle;
 var
  ErrPath: array [0..259] of char;
  Handle: longint;
@@ -46,7 +46,7 @@ begin
                                 then Result := Handle else Result := NilHandle;
 end;
 
-function GetProcedureAddress (Lib: TLibHandle; ProcName: AnsiString): pointer;
+function GetProcedureAddress (Lib: TLibHandle; const ProcName: AnsiString): pointer;
 var
  P: pointer;
 begin

rtl/unix/dynlibs.inc

@@ -40,13 +40,13 @@ Const
 
 uses dl;
 
-Function LoadLibrary(Name : AnsiString) : TLibHandle;
+Function LoadLibrary(const Name : AnsiString) : TLibHandle;
 
 begin
   Result:=TLibHandle(dlopen(Pchar(Name),RTLD_LAZY));
 end;
 
-Function GetProcedureAddress(Lib : TLibHandle; ProcName : AnsiString) : Pointer;
+Function GetProcedureAddress(Lib : TLibHandle; const ProcName : AnsiString) : Pointer;
 
 begin
   Result:=dlsym(lib,pchar(ProcName));

rtl/win/dynlibs.inc

@@ -36,13 +36,13 @@ Const
 
 Uses windows;
 
-Function LoadLibrary(Name : AnsiString) : TlibHandle;
+Function LoadLibrary(const Name : AnsiString) : TlibHandle;
 
 begin
   Result:=Windows.LoadLibrary(PChar(Name));
 end;
 
-Function GetProcedureAddress(Lib : TLibHandle; ProcName : AnsiString) : Pointer;
+Function GetProcedureAddress(Lib : TLibHandle; const ProcName : AnsiString) : Pointer;
 
 begin
   Result:=Windows.GetProcAddress(Lib,PChar(ProcName));

rtl/wince/dynlibs.inc

@@ -36,7 +36,7 @@ Const
 
 Uses windows;
 
-Function LoadLibrary(Name : AnsiString) : TlibHandle;
+Function LoadLibrary(const Name : AnsiString) : TlibHandle;
 var
   ws: PWideChar;
 begin
@@ -45,7 +45,7 @@ begin
   FreeMem(ws);
 end;
 
-Function GetProcedureAddress(Lib : TLibHandle; ProcName : AnsiString) : Pointer;
+Function GetProcedureAddress(Lib : TLibHandle; const ProcName : AnsiString) : Pointer;
 var
   ws: PWideChar;
 begin