gforth/test/xchar.fs - diff

Return to xchar.fs CVS log

Up to [gforth] / gforth / test

version 1.2, 2010/02/14 18:13:31	version 1.3, 2010/03/18 21:27:39
Line 13 hex	Line 13 hex

: test-string s" 恭喜发财!" ;	: test-string s" 恭喜发财!" ;

{ test-string drop xc@+ swap xc@+ swap xc@+ swap xc@+ swap xc@+ nip -> 606D 559C 53D1 8D22 21 }	{ test-string drop xc@+ swap xc@+ swap xc@+ swap xc@+ swap xc@+ nip
	-> 606D 559C 53D1 8D22 21 }
{ ffff pad 4 xc!+? -> pad 3 + 1 true }	{ ffff pad 4 xc!+? -> pad 3 + 1 true }
{ test-string drop xchar+ -> test-string drop 3 + }	{ test-string drop xchar+ -> test-string drop 3 + }
{ test-string drop xchar+ xchar- -> test-string drop }	{ test-string drop xchar+ xchar- -> test-string drop }