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

Diff of /gcl/cmpnew/gcl_cmpeval.lsp

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

revision 1.2 by camm, Sun Sep 14 02:43:01 2003 UTC revision 1.3 by camm, Fri Oct 10 02:37:59 2003 UTC
# Line 207  Line 207 
207           (if (eq (car fd) 'call-local)           (if (eq (car fd) 'call-local)
208               (let* ((info (make-info :sp-change t))               (let* ((info (make-info :sp-change t))
209                      (forms (c1args args info)))                      (forms (c1args args info)))
210                   ;; fun-info, CM 20031008  accumulate local function info, particularly changed-vars,
211                   ;; and pass upwards to call-local and call-global to prevent certain inlining in inline-args
212                   ;; via args-info-changed-vars            
213                   ;;
214                   ;; FIXME find out where fun-info can be nil
215                   (when (fun-info (caddr fd))
216                     (add-info info (fun-info (caddr fd))))
217                    (let ((return-type (get-local-return-type (caddr fd))))                    (let ((return-type (get-local-return-type (caddr fd))))
218                         (when return-type (setf (info-type info) return-type)))                         (when return-type (setf (info-type info) return-type)))
219                    (let ((arg-types (get-local-arg-types (caddr fd))))                    (let ((arg-types (get-local-arg-types (caddr fd))))
# Line 265  Line 272 
272          (t (let* ((info (make-info          (t (let* ((info (make-info
273                          :sp-change (null (get fname 'no-sp-change))))                          :sp-change (null (get fname 'no-sp-change))))
274                    (forms (c1args args info)))                    (forms (c1args args info)))
275                 ;; fun-info, CM 20031008  accumulate local function info, particularly changed-vars,
276                 ;; and pass upwards to call-local and call-global to prevent certain inlining in inline-args
277                 ;; via args-info-changed-vars              
278                 ;;
279                 ;; FIXME find out where fun-info can be nil
280                 (do ((form forms (cdr form))) ((endp form))
281                   (when (cadar form)
282                     (add-info info (cadar form))))
283                  (let ((return-type (get-return-type fname)))                  (let ((return-type (get-return-type fname)))
284                    (when return-type                    (when return-type
285                          (if (equal return-type '(*))                          (if (equal return-type '(*))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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