[Gauche-devel-jp] Re: Gauche-0.8.4 (MacOS 10.4.1)

Zurück zum Archiv-Index

Shiro Kawai shiro****@lava*****
2005年 6月 1日 (水) 18:39:21 JST


gcc-4でwarningが出まくる件ですが、以下のパッチを当てた後、

% rm src/autoloads.c src/compile.c

してからmakeするとどうなります?

(これはGauche-0.8.4インストール後に行って下さい。autoloads.c, compile.c
の再構築にインストール済のGaucheを必要とするためです)

--shiro



===================================================================
RCS file: /cvsroot/gauche/Gauche/lib/gauche/cgen.scm,v
retrieving revision 1.8
diff -u -r1.8 cgen.scm
--- lib/gauche/cgen.scm	30 May 2005 07:50:12 -0000	1.8
+++ lib/gauche/cgen.scm	1 Jun 2005 09:36:15 -0000
@@ -277,11 +277,15 @@
       (let1 count (ref dl 'count)
         (slot-push! dl 'init-thunks ithunk)
         (inc! (ref dl 'count))
-        (format "SCM_OBJ(~a~a.~a[~a])"
-                (if value-type? "" "&")
-                (static-data-c-struct-name category)
-                (ref dl 'c-member-name)
-                count)))))
+        (if value-type?
+          (format "~a.~a[~a]" ; no cast, for this'll be also used as lvalue.
+                  (static-data-c-struct-name category)
+                  (ref dl 'c-member-name)
+                  count)
+          (format "SCM_OBJ(&~a.~a[~a])"
+                  (static-data-c-struct-name category)
+                  (ref dl 'c-member-name)
+                  count))))))
 
 (define (cgen-allocate-static-array category c-type init-thunks)
   (fold (lambda (init-thunk seed)




Gauche-devel-jp メーリングリストの案内
Zurück zum Archiv-Index