gforth/prim - diff

Return to prim CVS log

Up to [gforth] / gforth

version 1.275, 2012/07/23 14:15:51	version 1.277, 2012/09/17 19:58:36
Line 1516 c_addr2 = c_addr1+1;	Line 1516 c_addr2 = c_addr1+1;
:	:
dup 1+ swap c@ ;	dup 1+ swap c@ ;

	cell/ ( n1 -- n2 ) gforth cell_divide
	""@i{n2} is the number of cells that fit into @i{n1}""
	n2 = n1 / sizeof(Cell);

\g compiler	\g compiler

\+f83headerstring	\+f83headerstring
Line 1700 wfileid = (Cell)stderr;	Line 1704 wfileid = (Cell)stderr;

\+os	\+os

form ( -- urows ucols ) gforth	(form) ( -- urows ucols ) gforth paren_form
""The number of lines and columns in the terminal. These numbers may	""The number of lines and columns in the terminal. These numbers may
change with the window size. Note that it depends on the OS whether	change with the window size. Note that it depends on the OS whether
this reflects the actual size and changes with the window size	this reflects the actual size and changes with the window size
Line 2475 if (flag) {	Line 2479 if (flag) {
fp[0]=r;	fp[0]=r;
}	}

	float/ ( n1 -- n2 ) gforth float_divide
	n2 = n1 / sizeof(Float);

	dfloat/ ( n1 -- n2 ) gforth sfloat_divide
	n2 = n1 / sizeof(DFloat);

	sfloat/ ( n1 -- n2 ) gforth dfloat_divide
	n2 = n1 / sizeof(SFloat);

\+	\+

\ The following words access machine/OS/installation-dependent	\ The following words access machine/OS/installation-dependent