[M3commit] CVS Update: cm3

[Jay K]

Index: src/POSIX/SystemPosix.m3
===================================================================
RCS file: /usr/cvs/cm3/m3-libs/sysutils/src/POSIX/SystemPosix.m3,v
retrieving revision 1.16
diff -u -r1.16 SystemPosix.m3
--- src/POSIX/SystemPosix.m3    10 Mar 2010 10:45:44 -0000    1.16
+++ src/POSIX/SystemPosix.m3    26 Jun 2010 13:19:32 -0000
@@ -34,7 +34,7 @@
     buf : ARRAY [0..1024] OF CHAR;
     len := 1024;
   BEGIN
-    IF gethostname(ADR(buf), len) = 0 THEN
+    IF gethostname(LOOPHOLE(ADR(buf), Ctypes.char_star), len) = 0 THEN
       buf[1024] := '\000';
       len := 0;
       WHILE len < 1024 AND buf[len] # '\000' DO


----------------------------------------
> Date: Sat, 26 Jun 2010 15:19:58 +0000
> To: m3commit at elegosoft.com
> From: jkrell at elego.de
> Subject: [M3commit] CVS Update: cm3
>
> CVSROOT: /usr/cvs
> Changes by: jkrell at birch. 10/06/26 15:19:58
>
> Modified files:
> cm3/m3-libs/sysutils/src/POSIX/: SystemPosix.m3
>
> Log message:
> LOOPHOLE to char_star so it works with -new_adr
>