gforth: gforth/vmgen-ex2/fib.mini

File: [gforth] / gforth / vmgen-ex2 / fib.mini (download)
Revision: 1.1, Sun Jun 2 15:46:17 2002 UTC (10 years, 11 months ago) by anton
Branch: MAIN
CVS Tags: v0-7-0, v0-6-2, v0-6-0, v0-6-1, HEAD

vmgen-related changes:
in prims2x:
  Conversion macros for single items now take 2 arguments
  Converting from two items to a type has changed order
  argument printing for disassembler disabled (for now)
  disassembler now also uses VM_IS_INST
in Gforth and vmgen-ex: adapted to work with changed prims2x
new: vmgen-ex2: uses union for Cell instead of casting (lots of
   changes compared to vmgen-ex)

func fib(n)
  var r;
  if n<2 then
    r:=1;
  else
    r:=fib(n-1)+fib(n-2);
  end if;
  return r; 
  // the language syntax (return only at end) leads to inefficient code here
end func;

func main()
  return fib(34);
end func;