[Gcl-devel] Re: fork cost

[Camm Maguire]

Great!  Am forwarding this to the list in case any reader might know
how we can tell how close we are to the real floor in fork overhead.

Take care,

Robert Boyer <address@hidden> writes:

> Works again, thanks.
> 
> Down to 790 microseconds per fork on Elgin now.
> 
> Thanks!
> 
> Bob
> 
> % g
> GCL (GNU Common Lisp)  2.7.0 ANSI    Nov  6 2005 14:35:45
> Source License: LGPL(gcl,gmp,pargcl), GPL(unexec,bfd)
> Binary License:  GPL due to GPL'ed components: (BFD UNEXEC)
> Modifications of this banner must retain notice of a compatible license
> Dedicated to the memory of W. Schelter
> 
> Use (help) to get some basic information on how to use GCL.
> 
> >(defun foo nil (si::p-let ((a nil)) a))
> 
> FOO
> 
> >(compile 'foo)
> 
> ;; Compiling ./gazonk0.lsp.
> ;; End of Pass 1.  
> ;; End of Pass 2.  
> ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, 
> (Debug quality ignored)
> ;; Finished compiling ./gazonk0.o.
> Loading /v/filer2/boyer/gazonk0.o
> start address -T 0x960960 Finished loading /v/filer2/boyer/gazonk0.o
> #<compiled-function FOO>
> NIL
> NIL
> 
> >(time (dotimes (i 1000) (foo))
> )
> 
> real time       :      0.790 secs
> run-gbc time    :      0.000 secs
> child run time  :      0.090 secs
> gbc time        :      0.000 secs
> NIL
> 
> >
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah