/[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.32.2.2 by rtoy, Wed Feb 10 04:01:27 2010 UTC revision 1.32.2.3 by rtoy, Sun Feb 14 03:06:41 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 _"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 _"Unknown foreign symbol: ~S" name))
322                  value))))))                  value))))))
323    
324    

Legend:
Removed from v.1.32.2.2  
changed lines
  Added in v.1.32.2.3

  ViewVC Help
Powered by ViewVC 1.1.5