gforth/test/gforth.fs - diff

Return to gforth.fs CVS log

Up to [gforth] / gforth / test

version 1.4, 2004/12/08 12:47:30	version 1.7, 2005/09/12 08:50:20
Line 1	Line 1
\ test some gforth extension words	\ test some gforth extension words

\ Copyright (C) 2003 Free Software Foundation, Inc.	\ Copyright (C) 2003,2004 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 42 decimal	Line 42 decimal
decimal	decimal
{ 'a' -> 97 }	{ 'a' -> 97 }
{ 'A -> 65 }	{ 'A -> 65 }
	{ 1. '1 -> 1. 49 }

	\ represent has no trailing 0s even for inf and nan

	{ 1e 0e f/ pad 16 represent drop 2drop pad 15 + c@ '0 = -> false }
	{ 0e 0e f/ pad 16 represent drop 2drop pad 15 + c@ '0 = -> false }
	{ -1e 0e f/ pad 16 represent drop 2drop pad 15 + c@ '0 = -> false }