Get A Bachelor's Degree, Master's, or PhD - Classes Not Needed...cynara

[Alana Valenzuela]

Academic Qualifications available from prestigious NON–ACCREDITTED universities.

Do you have the knowledge and the experience but lack the qualifications?

Are you getting turned down time and time again for the job of your dreams because you 
just don't have the right letters after your name?

Get the prestige that you deserve today!

Move ahead in your career today!

Bachelors, Masters and PhD's available in your field!

No examinations! No classes! No textbooks!


Call to register and receive your qualifications within days!

24 hours a day 7 days a week!




203-286-2187 - USA




























pxrfpx
 bfwnwtiioyqvryxlblxxqamyebm
oengrco
___
Bug-guile mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/bug-guile

Re: substantial performance loss when running long-lived or computationally intensive programs

[Thien-Thi Nguyen]

   From: "Michael A. Wells" <[EMAIL PROTECTED]>
   Date: Mon, 05 May 2003 22:36:26 -0500 (CDT)

   Although this problem is present in Guile-1.6.4, the problem dates
   back to at least Guile 1.4.

thanks for the bug report.  i have started to clean up the 1.4.x branch
(in cvs) as a result.  the following functions have been fixed to date:

 scm_getcwd
 scm_readlink
 scm_getgroups
 scm_fill_sockaddr
 scm_regexp_exec
 scm_localtime
 scm_mktime
 scm_strftime

i expect to finish the audit for the 1.4.1.97 release.  please feel
free to share further observations (in case i miss something).

fyi, below is a simple program i use like so: "guile -s stress.scm" to
eyeball-check for improved behavior (before/after changing the function
in question).

thi


[cc trimmed]


(define (report)
  (format #t "~A : ~A\n"
  (strftime "%Y-%m-%d %H:%M:%S" (localtime (current-time)))
  (assq-ref (gc-stats) 'bytes-malloced)))

;;- (define stress getcwd)

;;- (define stress getgroups)

;;- (define (stress)
;;-   ;; fports.c -- "fport_close"
;;-   ;; ports.c -- "scm_remove_from_port_table"
;;-   (with-output-to-string (lambda ()
;;-(display "1234567890")
;;-(display "1234567890"

;;- (define *token* (make-regexp "^[A-Za-z0-9_]*"))
;;- 
;;- (define (stress)
;;-   ;; libguile/regex-posix.c -- "scm_regexp_exec"
;;-   (regexp-exec *token* "foo"))

(define now (localtime (current-time)))

(define (stress)
  (strftime "%Y-%m-%d %H:%M:%S" now))

(report)
(let loop ((n 0))
  (stress) (stress) (stress) (stress) (stress)
  (stress) (stress) (stress) (stress) (stress)
  (if (= 0 n)
  (begin (report) (loop 10))
  (loop (1- n


___
Bug-guile mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/bug-guile