/[gcl]/gcl/cmpnew/gcl_cmptop.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmptop.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.28 by camm, Mon Aug 8 23:01:52 2005 UTC revision 1.29 by camm, Sun Sep 18 01:56:57 2005 UTC
# Line 626  Line 626 
626  (defun make-inline-string (cfun args fname)  (defun make-inline-string (cfun args fname)
627    (if (null args)    (if (null args)
628        (format nil "~d()" (c-function-name "LI" cfun fname))        (format nil "~d()" (c-function-name "LI" cfun fname))
629        (let ((o (make-array 100 :element-type 'string-char :fill-pointer 0        (let ((o (make-array 100 :element-type 'character :fill-pointer 0
630                             :adjustable t )))                             :adjustable t )))
631             (format o "~d(" (c-function-name "LI" cfun fname))             (format o "~d(" (c-function-name "LI" cfun fname))
632             (do ((l args (cdr l))             (do ((l args (cdr l))
# Line 1825  Line 1825 
1825                           ;; *initial-ccb-vs* for correct use in                           ;; *initial-ccb-vs* for correct use in
1826                           ;; wt-ccb-vs. CM 20031130                           ;; wt-ccb-vs. CM 20031130
1827      (*level* (1+ level)) (*initial-ccb-vs* initial-ccb-vs)      (*level* (1+ level)) (*initial-ccb-vs* initial-ccb-vs)
1828      (*exit* 'return))      (*exit* 'return)
1829        (*compiler-check-args* *compiler-check-args*)
1830        (*safe-compile* *safe-compile*)
1831        (*compiler-push-events* *compiler-push-events*)
1832        (*notinline* *notinline*)
1833        (*space* *space*)
1834        (*debug* *debug*))
1835       (when (eq (car (caddr (cddr lambda-expr))) 'decl-body)
1836         (local-compile-decls (caddr (caddr (cddr lambda-expr)))))
1837     (wt-nl1 "{   register object *"*volatile*"base=vs_base;")     (wt-nl1 "{   register object *"*volatile*"base=vs_base;")
1838     (wt-nl  "register object *" *volatile* "sup=base+VM" *reservation-cmacro* ";")     (wt-nl  "register object *" *volatile* "sup=base+VM" *reservation-cmacro* ";")
1839     (assign-down-vars (cadr lambda-expr) (fun-cfun fun)     (assign-down-vars (cadr lambda-expr) (fun-cfun fun)

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26