浏览代码

bugfix in hl_sys_env

Nicolas Cannasse 8 年之前
父节点
当前提交
5fd3d3faf6
共有 1 个文件被更改,包括 2 次插入1 次删除
  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;