gforth/prims2cl.fs - diff

Return to prims2cl.fs CVS log

Up to [gforth] / gforth

version 1.8, 2007/12/31 18:40:24	version 1.11, 2012/12/31 15:25:18
Line 1	Line 1
\ prims2cl.fs Primitives to c-library code	\ prims2cl.fs Primitives to c-library code

\ Copyright (C) 1998,1999,2001,2003 Free Software Foundation, Inc.	\ Copyright (C) 1998,1999,2001,2003,2007,2012 Free Software Foundation, Inc.

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

Line 42 Create InputFile 130 chars allot	Line 42 Create InputFile 130 chars allot

: c-header	: c-header
.\ #include "engine/forth.h"	.\ #include "engine/forth.h"
.\ extern char cstr(Char from, UCell size, int clear);
.\ extern char tilde_cstr(Char from, UCell size, int clear);
.\	.\
.\ #undef TOS	.\ #undef TOS
.\ #define TOS sp[0]	.\ #define TOS sp[0]