Diff for /gforth/Attic/primitives2c.el between versions 1.1 and 1.2

version 1.1, 1994/02/11 16:30:46 version 1.2, 1994/05/03 19:10:35
Line 65 Line 65
 (defun c-filter (forth-name stack-effect standards c-name doku code forth-code)  (defun c-filter (forth-name stack-effect standards c-name doku code forth-code)
   "c code for the primitive"    "c code for the primitive"
   (let ((effects (parse-stack-effect stack-effect)))    (let ((effects (parse-stack-effect stack-effect)))
     (format "I_%s:      /* %s ( %s ) */\n/* %s */\n{\n%s\nNAME(\"%s\")\n{\n%s}\nNEXT_P1;\n%s}\nNEXT1_P2;\n"      (format "I_%s:      /* %s ( %s ) */\n/* %s */\n{\nLabel ca;\n%s\nNAME(\"%s\")\n{\n%s}\nNEXT_P1;\n%sNEXT1_P2;\n}\n"
             c-name forth-name stack-effect doku              c-name forth-name stack-effect doku
             (prefix effects) forth-name code (suffix effects))))              (prefix effects) forth-name code (suffix effects))))
   

Removed from v.1.1  
changed lines
  Added in v.1.2


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>