[thread display] [new arrival display] [word search] [past log] [管理用]
| Subject | ： SAD on Sun Fortran 95 8.1 |
| Date | ： 2005/11/18(Fri) 12:14:11 |
| Contributor | ： Akio Morita |
Sun Fortran 95 8.1上で構築した SADが Packages/init.nの読み込み中に
無限ループに入って起動しません
試験環境は、多和田さんが用意してくれた Solaris10/i386です
> uname -a
SunOS kcg-06 5.10 Generic i86pc i386 i86pc
> /opt/SUNWspro/bin/f77 -V
NOTICE: Invoking /opt/SUNWspro/bin/f90 -f77 -ftrap=%none -V
f90: Sun Fortran 95 8.1 2005/01/07
DEBUG用のパッチを当てて GCCで構築した SADのログと比較して行くと
SAD Interpreterが管理しているメモリを開放する様子が変です
アドレスが一致しないのは問題ないですが、開放する object sizeや
積算の使用量統計が負になるのは明らかに異常な気がします
--- DEBUG patch ---
diff -ur trunk-404.orig/src/italoc.f trunk-404/src/italoc.f
--- trunk-404.orig/src/italoc.f Fri Mar 18 13:20:12 2005
+++ trunk-404/src/italoc.f Fri Nov 18 11:37:38 2005
@@ -445,6 +445,7 @@
return
endif
m=ilist(1,ia-1)
+ write(*,*)'tfree: ia=',ia,' m=',m,' nnet=',nnet
if(m .lt. 4)then
if(m .ne. 0)then
write(*,*)'tfree ',ia,m
diff -ur trunk-404.orig/src/itfgeto.f trunk-404/src/itfgeto.f
--- trunk-404.orig/src/itfgeto.f Fri Mar 18 12:01:31 2005
+++ trunk-404/src/itfgeto.f Fri Nov 18 11:39:15 2005
@@ -10,6 +10,7 @@
itfgeto=-1
return
endif
+ write(*,*)'itfgeto: tfeval(',buffer(1:lrecl),')'
m=0
v=tfeval(buffer(1:lrecl),lrecl,ipoint,m,irtype,ira,.true.,irtc)
c write(*,*)'itfgeto ',ipoint,irtype,ira,irtc,m
--- DEBUG patch ---