jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't depend on the presence of the SWIG-PointerAddress function.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@6065 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2004-07-24 15:17:15 +00:00
commit 87ebbd67ee
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
SWIG/Lib/guile/common.scm
View file

@ -47,7 +47,13 @@
(display (number->string (object-address o) 16) file)) (display (number->string (object-address o) 16) file))
(define (display-pointer-address o file) (define (display-pointer-address o file)
(display (number->string (SWIG-PointerAddress o) 16) file)) ;; Don't fail if the function SWIG-PointerAddress is not present.
(let ((address (false-if-exception (SWIG-PointerAddress o))))
(if address
(begin
(display " @ " file)
(display (number->string address 16) file)))))
(define-method (write (o <swig>) file) (define-method (write (o <swig>) file)
;; We display _two_ addresses to show the object's identity: ;; We display _two_ addresses to show the object's identity:
;; * first the address of the GOOPS proxy object, ;; * first the address of the GOOPS proxy object,
@ -61,9 +67,10 @@
(display (class-name class) file) (display (class-name class) file)
(display #\space file) (display #\space file)
(display-address o file) (display-address o file)
(display " @ " file)
(display-pointer-address o file) (display-pointer-address o file)
(display ">" file)) (display ">" file))
(next-method)))) (next-method))))
(export <swig-metaclass> <swig>) (export <swig-metaclass> <swig>)
;;; common.scm ends here