Skip to content
Snippets Groups Projects
Commit f2792f68 authored by ram's avatar ram
Browse files

Added ELSEWHERE-START and ENVIRONMENT-START slots to IR2-ENVIRONMENT.

parent defdb516
No related branches found
No related tags found
No related merge requests found
...@@ -408,8 +408,18 @@ ...@@ -408,8 +408,18 @@
;; ;;
;; A list of all the IR2-Blocks in this environment, threaded by ;; A list of all the IR2-Blocks in this environment, threaded by
;; IR2-Block-Environment-Next. This is filled in by control analysis. ;; IR2-Block-Environment-Next. This is filled in by control analysis.
(blocks nil :type (or ir2-block null))) (blocks nil :type (or ir2-block null))
;;
;; A label that marks the start of elsewhere code for this function. Null
;; until this label is assigned by codegen. Used for maintaining the debug
;; source map.
(elsewhere-start nil :type (or label null))
;;
;; A label that marks the first location in this function at which the
;; environment is properly initialized, i.e. arguments moved from their
;; passing locations, etc. This is the start of the function as far as the
;; debugger is concerned.
(environment-start nil :type (or label null)))
(defprinter ir2-environment (defprinter ir2-environment
arg-locs arg-locs
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment