corrected cap.c

diff --git a/lang/m2/libm2/cap.c b/lang/m2/libm2/cap.c
index 86469a6..28f03b5 100644 (file)
--- a/lang/m2/libm2/cap.c
+++ b/lang/m2/libm2/cap.c
@@ -12,5 +12,7 @@
 cap(u)
        unsigned u;
 {
-       if (u >= 'a' && u <= 'z') u += 'A'-'a';
+       register unsigned *p = &u;
+
+       if (*p >= 'a' && *p <= 'z') *p += 'A'-'a';
 }