use CONST to avoid copying of CHAR arrays into the stack

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6657 8c9fc860-2736-0410-a75d-ab315db34111

source/Coop.Win32.Kernel32.Mod

@@ -767,7 +767,7 @@ VAR
 	END InstallExceptionHandler;
 
 	(** Wrapper for getProcAddress. *)
-	PROCEDURE GetProcAddress*( hModule: HMODULE;  procName: ARRAY OF CHAR; VAR adr: ADDRESS );
+	PROCEDURE GetProcAddress*( hModule: HMODULE; CONST procName: ARRAY OF CHAR; VAR adr: ADDRESS );
 	BEGIN {UNCOOPERATIVE, UNCHECKED}
 		adr := getProcAddress( hModule, procName );
 	END GetProcAddress;
@@ -795,7 +795,7 @@ VAR
 	BEGIN {UNCOOPERATIVE, UNCHECKED}
 	END NoOutputString;
 
-	PROCEDURE SendToDebugger*(str: ARRAY OF CHAR;  x: LONGINT );
+	PROCEDURE SendToDebugger*(CONST str: ARRAY OF CHAR;  x: LONGINT );
 	VAR s: ARRAY 16 OF CHAR;
 		d, i: LONGINT;
 	BEGIN {UNCOOPERATIVE, UNCHECKED}

source/Generic.Win32.Kernel32.Mod

@@ -749,7 +749,7 @@ VAR
 	Shutdown*: PROCEDURE ( code: LONGINT );
 
 	(** Wrapper for getProcAddress. *)
-	PROCEDURE GetProcAddress*( hModule: HMODULE;  procName: ARRAY OF CHAR; VAR adr: ADDRESS );
+	PROCEDURE GetProcAddress*( hModule: HMODULE; CONST procName: ARRAY OF CHAR; VAR adr: ADDRESS );
 	BEGIN
 		adr := getProcAddress( hModule, procName )
 	END GetProcAddress;
@@ -777,7 +777,7 @@ VAR
 	BEGIN
 	END NoOutputString;
 
-	PROCEDURE SendToDebugger*(str: ARRAY OF CHAR;  x: LONGINT );
+	PROCEDURE SendToDebugger*(CONST str: ARRAY OF CHAR;  x: LONGINT );
 	VAR s: ARRAY 16 OF CHAR;
 		d, i: LONGINT;
 	BEGIN

source/Win32.Kernel32.Mod

@@ -758,7 +758,7 @@ VAR
 	isEXE-: BOOLEAN;
 
 	(** Wrapper for getProcAddress. *)
-	PROCEDURE GetProcAddress*( hModule: HMODULE;  procName: ARRAY OF CHAR; VAR adr: ADDRESS );
+	PROCEDURE GetProcAddress*( hModule: HMODULE; CONST procName: ARRAY OF CHAR; VAR adr: ADDRESS );
 	BEGIN
 		adr := getProcAddress( hModule, procName )
 	END GetProcAddress;
@@ -786,7 +786,7 @@ VAR
 	BEGIN
 	END NoOutputString;
 
-	PROCEDURE SendToDebugger*(str: ARRAY OF CHAR;  x: LONGINT );
+	PROCEDURE SendToDebugger*(CONST str: ARRAY OF CHAR;  x: LONGINT );
 	VAR s: ARRAY 16 OF CHAR;
 		d, i: LONGINT;
 	BEGIN