Procházet zdrojové kódy

bugfix in hl_sys_env

Nicolas Cannasse před 8 roky
rodič
revize
5fd3d3faf6
1 změnil soubory, kde provedl 2 přidání a 1 odebrání
  1. 2 1
      src/std/sys.c

+ 2 - 1
src/std/sys.c

@@ -177,6 +177,7 @@ HL_PRIM varray *hl_sys_env() {
 			continue;
 		}
 		count++;
+		e++;
 	}
 	a = hl_alloc_array(&hlt_bytes,count*2);
 	e = environ;
@@ -188,7 +189,7 @@ HL_PRIM varray *hl_sys_env() {
 			continue;
 		}
 		*arr++ = pstrdup(*e,(int)(x - *e));
-		*arr++ = pstrdup(x,-1);
+		*arr++ = pstrdup(x+1,-1);
 		e++;
 	}
 	return a;