← Back to branch summary

~ubuntu-branches/ubuntu/hoary/scilab/hoary

« back to all changes in this revision

Viewing changes to routines/system/showstack.f

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2005-01-09 22:58:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20050109225821-473xr8vhgugxxx5j
Tags: 3.0-12
http://bugs.debian.org/255869
changed configure.in to build scilab's own malloc.o, closes: #255869

Show diffs side-by-side

added added

removed removed

Lines of Context:
routines/system/showstack.f
41
41
 1000 buf=' '
42
42
      buf(m1+1:m1+9)=mg
43
43
      call basout(io,lunit,buf(1:m1+9))
44
 
      if(hio.gt.0) call basout(io,hio,buf(1:m1+9))
45
44
 
46
45
c depilement de l'environnement
47
46
      lct(4)=2
96
95
      buf(m+1:m+14)=' called by :'
97
96
      m=m+14
98
97
      call basout(io,lunit,buf(1:m))
99
 
      if(hio.gt.0) call basout(io,hio,buf(1:m))
100
98
      lct(8)=lin(k+12+nsiz)
101
99
c     
102
100
      call whatln(lpt1(1),lpt1(2),lpt1(6),nlc,l1,ifin)
108
106
      if(l1.gt.0.and.m.gt.0.and.m+l1-1.le.lsiz) then
109
107
         call cvstr(m,lin(l1),buf(1:m),1)
110
108
         call basout(io,lunit,buf(1:m))
111
 
         if(hio.gt.0) call basout(io,hio,buf(1:m))
112
109
      endif
113
110
c
114
111
      goto 1501
135
132
         buf(m+1:m+29)=' of exec file called by :'
136
133
         m=m+29
137
134
         call basout(io,lunit,buf(1:m))
138
 
         if(hio.gt.0) call basout(io,hio,buf(1:m))
139
135
         lct(8)=lin(k+12+nsiz)
140
136
c     
141
137
         call whatln(lpt1(1),lpt1(2),lpt1(6),nlc,l1,ifin)
146
142
         endif
147
143
         call cvstr(m,lin(l1),buf,1)
148
144
         call basout(io,lunit,buf(1:m))
149
 
         if(hio.gt.0) call basout(io,hio,buf(1:m))
150
145
 1505    p=p-1
151
146
         if(rstk(p).ne.902) goto 1505
152
147
         goto 1501
159
154
 1510 continue
160
155
 
161
156
      call basout(io,lunit,' ')
162
 
      if(hio.gt.0) call basout(io,hio,' ')
163
157
      lct(4)=lct4
164
158
c
165
159
      return