gdi32: Cast-qual warnings fix (1 of 2)

[Andrew Talbot]

Changelog:
    gdi32: Cast-qual warnings fix.

diff -urN a/dlls/gdi32/env.c b/dlls/gdi32/env.c
--- a/dlls/gdi32/env.c	2006-10-20 14:01:36.000000000 +0100
+++ b/dlls/gdi32/env.c	2006-10-29 13:52:30.000000000 +0000
@@ -114,7 +114,8 @@
 {
     ATOM atom;
     BOOL16 nullport = FALSE;
-    LPSTR p;
+    LPCSTR port_name;
+    LPSTR device_mode;
     ENVTABLE *env;
     HGLOBAL16 handle;
 
@@ -131,20 +132,20 @@
     }
     if (nCount) { /* store DEVMODE struct */
 	if (nullport)
-	    p = (LPSTR)lpdev;
+	    port_name = (LPSTR)lpdev;
         else
-	    p = (LPSTR)lpPortName;
+	    port_name = lpPortName;
 
-        if ((atom = PortNameToAtom(p, TRUE))
+        if ((atom = PortNameToAtom(port_name, TRUE))
 	 && (env = SearchEnvTable(0))
 	 && (handle = GlobalAlloc16(GMEM_SHARE|GMEM_MOVEABLE, nCount))) {
-	    if (!(p = GlobalLock16(handle))) {
+	    if (!(device_mode = GlobalLock16(handle))) {
 	        GlobalFree16(handle);
 	        return 0;
 	    }
 	    env->atom = atom;
 	    env->handle = handle;
-            memcpy(p, lpdev, nCount);
+            memcpy(device_mode, lpdev, nCount);
             GlobalUnlock16(handle);
             return handle;
 	}