/[cmucl]/src/code/x86-vm.lisp
ViewVC logotype

Diff of /src/code/x86-vm.lisp

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

revision 1.34 by rtoy, Mon Apr 19 02:18:04 2010 UTC revision 1.35 by rtoy, Tue Apr 20 17:57:45 2010 UTC
# Line 111  Line 111 
111              (ncode-words (kernel:code-header-ref code 1))              (ncode-words (kernel:code-header-ref code 1))
112              (code-end-addr (+ code-start-addr (* ncode-words 4))))              (code-end-addr (+ code-start-addr (* ncode-words 4))))
113         (unless (member kind '(:absolute :relative))         (unless (member kind '(:absolute :relative))
114           (error _"Unknown code-object-fixup kind ~s." kind))           (error (intl:gettext "Unknown code-object-fixup kind ~s.") kind))
115         (ecase kind         (ecase kind
116           (:absolute           (:absolute
117            ;; Word at sap + offset contains a value to be replaced by            ;; Word at sap + offset contains a value to be replaced by
# Line 318  Line 318 
318                value                value
319                (let ((value (system:alternate-get-global-address name)))                (let ((value (system:alternate-get-global-address name)))
320                  (when (zerop value)                  (when (zerop value)
321                    (error _"Unknown foreign symbol: ~S" name))                    (error (intl:gettext "Unknown foreign symbol: ~S") name))
322                  value))))))                  value))))))
323    
324    

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

  ViewVC Help
Powered by ViewVC 1.1.5