shithub: mc

Info  •  Files  •  Log  •  Branches

Remove internal 'extern' functions from sys-*.myr

    These functions were exported, but they should be implementation
    details for syscalls.

--- a/libstd/sys-linux.myr

+++ b/libstd/sys-linux.myr

@@ -453,9 +453,6 @@

 	/* getting to the os */

 	extern const syscall	: (sc:scno, args:... -> int64)

-	extern const cstring	: (str : byte[:] -> byte#)

-	extern const alloca	: (sz : size	-> byte#)

-	extern const __cenvp : byte##

 	/* process management */

 	const exit	: (status:int -> void)

@@ -501,6 +498,10 @@

 	const uname 	: (buf : utsname# -> int)

 ;;

+extern const cstring	: (str : byte[:] -> byte#)

+extern const alloca	: (sz : size	-> byte#)

+extern const __cenvp : byte##

+

 /* process management */

 const exit	= {status;		syscall(Sysexit, status castto(int64))}

 const getpid	= {;			-> syscall(Sysgetpid, 1)}

@@ -608,3 +609,4 @@

 	;;

 	-> -1

 }

+

--- a/libstd/sys-osx.myr

+++ b/libstd/sys-osx.myr

@@ -487,9 +487,6 @@

 	const Sysfileport_makefd	: scno = 0x20001b1

 	extern const syscall : (sc:scno, args:... -> int64)

-	extern const cstring : (str : byte[:] -> byte#)

-	extern const alloca : (sz : size -> byte#)

-	extern const __cenvp : byte##

 	/* process control */

 	const exit	: (status:int -> void)

@@ -537,6 +534,9 @@

 ;;

 extern const __osx_fork : (->int64)

+extern const cstring : (str : byte[:] -> byte#)

+extern const alloca : (sz : size -> byte#)

+extern const __cenvp : byte##

 /* process control */

 const exit	= {status;		syscall(Sysexit, status castto(int64))}