yinwang0

(define-record fitem (result ready mutex cond))

(define future
  (lambda (thunk)
    (let ([item (make-fitem #f #f (make-mutex) (make-condition))])
      (fork-thread
       (lambda ()
         (let ([result (thunk)])
           (with-mutex (fitem-mutex item)
             (set-fitem-result! item result)

yinwang0

#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>

typedef int bigit;
typedef long int iptr;


void asm_add(xp, xl, yp, yl, zp) bigit *xp, *yp, *zp; iptr xl, yl;
{

yinwang0

	.text
	.file	"fib.c"
	.globl	fib
	.align	16, 0x90
	.type	fib,@function
fib:                                    # @fib
	.cfi_startproc
# BB#0:
	pushq	%r14
.Ltmp0:

yinwang0

using System;

namespace ConsoleApplication
{
    class Program
    {
        public static long fib(int n)
        {
            if (n < 2) {
                return n;