OpenEuphoria

Faster peek_ustring() function

• Posted by Larry Miller <larrymiller at saskte?.n?t> May 06, 2008
• 563 views

This is a faster peek_ustring() function than that in machine.e on SourceForge

global function peek_ustring(atom addr)
atom ptr
	ptr = addr
	while peek2u(ptr) do
		ptr += 2
	end while
	
	return peek2u({addr, (ptr - addr) / 2})
end function

Larry Miller