leff@smu (05/07/88)
Sun Common Lisp and our Floating Point Accelerator are incompatable. To wit, when we do a "MAKEDEV /dev/fpa" and reboot, the behavior indicated below occurs. Note that this will occur with any 70 or more line program that defines a couple of functions. Small programs run OK. Programs that create big lists run OK. Whatever space is needed for function definitions just runs out quickly. A program that keeps redefining the same function over and over again runs OK. When remove /dev/fpa, we can use LISP properly. We are mystified! Script started on Fri May 6 21:37:04 1988 mickey% lisp ;;; Sun Common Lisp, Version 1.2, 13 June 1986 ;;; ;;; Copyright (c) 1986 by Sun Microsystems, Inc. All Rights Reserved ;;; ;;; This software product contains confidential and trade secret ;;; information belonging to Sun Microsystems. It may not be copied ;;; for any reason other than for archival and backup purposes. > (load "test.l") ;;; GC: 7566 words [30264 bytes] of dynamic storage in use. ;;; 74102 words [296408 bytes] of free storage available before a GC. ;;; 155770 words [623080 bytes] of free storage available if GC is disabled. ;;; GC: 9866 words [39464 bytes] of dynamic storage in use. ;;; 71802 words [287208 bytes] of free storage available before a GC. ;;; 153470 words [613880 bytes] of free storage available if GC is disabled. ;;; GC: 41858 words [167432 bytes] of dynamic storage in use. . . . . ;;; 39810 words [159240 bytes] of free storage available before a GC. ;;; 121478 words [485912 bytes] of free storage available if GC is disabled. ;;; GC required to re-organize memory for GC disabling ;;; GC: 41858 words [167432 bytes] of dynamic storage in use. ;;; 39810 words [159240 bytes] of free storage available before a GC. ;;; 121478 words [485912 bytes] of free storage available if GC is disabled. >>Error: Not enough storage after GC. GC: Optional arg 0 (SIZE): 159312 Optional arg 1 (DONT-WORRY): NIL :A Abort to Lisp Top Level :C GC will be disabled: CONSers will use the storage normally reserved for copying currently allocated dynamic storage. The next GC might fail. -> :a ;;; Abnormal exit of load "test.l" Back to Lisp Top Level > (quit) mickey% ^D script done on Fri May 6 21:42:43 1988 ________________________________________________________________________________ How test.l looks (defun barf1 (test) (setq temp1 nil) (dotimes (i test) (setq temp1 (cons 'a temp1)) ) ) (defun barf2 (test) (setq temp1 nil) (dotimes (i test) (setq temp1 (cons 'a temp1)) ) . . . . (defun barfr(test) (setq temp1 nil) (dotimes (i test) (setq temp1 (cons 'a temp1)) ) ) (defun barfs(test) (setq temp1 nil) (dotimes (i test) (setq temp1 (cons 'a temp1)) ) ) Laurence Leff: Coordinator, Computer Science and Engineering Department Computer Facilities Management Team, 75275-0122, 214-692-2859 Moderator comp.doc.techreports/TRLIST, Symbolic Math List convex!smu!leff leff%smu.uucp@uunet E1AR0002 at SMUVM1 (BITNET)
alank%luna@Sun.COM (Alan Kostinsky) (05/14/88)
This problem has been fixed since Release 2.0 of Sun Common Lisp (the current release is 2.1). Alan Kostinsky Sun Software Support UUCP: sun!alank