forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Devilry?

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Support
View previous topic :: View next topic  
Author Message
DanRRight



Joined: 10 Mar 2008
Posts: 2813
Location: South Pole, Antarctica

PostPosted: Fri Jul 02, 2021 7:03 am    Post subject: Devilry? Reply with quote

Abruptly within the same day when all was fine i started to get without any changes in the source code
Code:
   integer*4 function cbChangePalette()
use clrwin

real*8 FofSizeIncr
common /ColorPalette1_/ FofSizeIncr, iCurrPalettePart, iCurrPaletteSol, kSizeProportToIntens
integer iCurrPaletteNo
common /ColorPalette0_/ iCurrPaletteNo

integer, external :: PrepareIntegerColorbarArray

jj=PrepareIntegerColorbarArray(iCurrPaletteNo)  <---- debugger stopped here

cbChangePalette=1
end function


Error: Attempt to call a subroutine as if it were a real(kind=1) function.

Subroutine ???
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 7916
Location: Salford, UK

PostPosted: Fri Jul 02, 2021 7:12 am    Post subject: Reply with quote

Dan

Can you provide a working sample that fails in this way.

The following reconstruction works OK for me with /checkmate (both 32 and 64 bits).

Code:
integer function PrepareIntegerColorbarArray(i)
PrepareIntegerColorbarArray = i
end function

integer*4 function cbChangePalette()
use clrwin

real*8 FofSizeIncr
common /ColorPalette1_/ FofSizeIncr, iCurrPalettePart, iCurrPaletteSol, kSizeProportToIntens
integer iCurrPaletteNo
common /ColorPalette0_/ iCurrPaletteNo

integer, external :: PrepareIntegerColorbarArray
iCurrPaletteNo = 1
jj=PrepareIntegerColorbarArray(iCurrPaletteNo) 

cbChangePalette=1
end function

program main
integer, external:: cbchangepalette
integer i
i = cbchangepalette()
end program main
Back to top
View user's profile Send private message AIM Address
DanRRight



Joined: 10 Mar 2008
Posts: 2813
Location: South Pole, Antarctica

PostPosted: Thu Jul 08, 2021 9:03 am    Post subject: Reply with quote

I failed to find the reason for several days...Really tricky thing happened. I collected this bad code but the debug will require long search of affected part.

Just rewrote this part of the code including all affected related functions and subroutines into the large main module. Now it will be harder to take it out to another code if needed
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> Support All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group