shithub: mc

Info  •  Files  •  Log  •  Branches

Fix compile.

	Whee, typos.

--- a/lib/std/putint.myr

+++ b/lib/std/putint.myr

@@ -17,16 +17,22 @@

 	generic putbe8		: (buf : byte[:], v :  @a::(numeric,integral) -> size)

 ;;

-generic puthost64	= {buf, v;	-> puthost(buf, (v : uint64), 8)}

+generic puthost = {buf, val : @a::(integral, numeric)

+	iassert(buf.len >= sizeof(@a), "buffer too small")

+	memblit((buf : byte#), (&val : byte#), sizeof(@a))

+	-> sizeof(@a)

+}

+

+generic puthost64	= {buf, v;	-> puthost(buf, (v : uint64))}

 generic putle64		= {buf, v;	-> putle(buf, (v : uint64), 8)}

 generic putbe64		= {buf, v;	-> putbe(buf, (v : uint64), 8)}

-generic puthost32	= {buf, v;	-> puthost(buf, (v : uint32), 4)}

+generic puthost32	= {buf, v;	-> puthost(buf, (v : uint32))}

 generic putle32		= {buf, v;	-> putle(buf, (v : uint64), 4)}

 generic putbe32		= {buf, v;	-> putbe(buf, (v : uint64), 4)}

-generic puthost16	= {buf, v;	-> puthost(buf, (v : uint16), 2)}

+generic puthost16	= {buf, v;	-> puthost(buf, (v : uint16))}

 generic putle16		= {buf, v;	-> putle(buf, (v : uint64), 2)}

 generic putbe16		= {buf, v;	-> putbe(buf, (v : uint64), 2)}

-generic puthost8	= {buf, v;	-> buf[0] = (v : uint8)}

+generic puthost8	= {buf, v;	-> puthost(buf, (v : uint8))}

 generic putle8		= {buf, v;	-> putle(buf, (v : uint64), 1)}

 generic putbe8		= {buf, v;	-> putbe(buf, (v : uint64), 1)}

@@ -50,8 +56,3 @@

 	-> (n : size)

 }

-generic puthost = {buf, val : @a::(integral, numeric)

-	iassert(buf.len >= n, "buffer too small")

-	memblit((buf : byte#), (&val : byte#), sizeof(@a))

-	-> (n : size)

-}

-- 

⑨