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 

Argument number 4 of WINIO@ (continuation 4) should be an ..

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+
View previous topic :: View next topic  
Author Message
JohnCampbell



Joined: 16 Feb 2006
Posts: 2554
Location: Sydney

PostPosted: Thu Mar 09, 2017 2:49 am    Post subject: Argument number 4 of WINIO@ (continuation 4) should be an .. Reply with quote

I have installed FTN95/x64 Ver. 8.10.0 and am getting new error report when running the .exe, that I can not fix ? eg
"Argument number 4 of WINIO@ (Continuation 4) should be an integer at address ..." ( a file name and line number would be much more helpful )

my compile option was
ftn95 saplot /window /64 >>ftn95.tce

I changed it to
ftn95 saplot /window /64 /inhibit_check 16 >>ftn95.tce

ftn95.cfg in both the local directory and c:\program files (x86) ...
/ERROR_NUMBERS
/IMPLICIT_NONE
/INTL
/LOGL

Continuation line 4 is:
i = winio@ ('%`^gr[grey, user_resize, rgb_colours, full_mouse_input]&', &
ix, iy, & ! screen dimension when not maximised
w_handle, & ! ` window handle defined in crtstart
mouse_back_func) ! ^ call back function for mouse and resize

w_handle is defined in include <JDC_menu.ins>, as:
integer(7) w_handle, ptr_RGB_Address ! new /64 declaration for handles

crtstart.f90 is compiled with
ftn95 crtstart /windows /64 >>%tce%

Previously with Ver 8.05 I had the error on (Continuation 112) !! so I commented out this last line of winio@ continuations and it worked.

!zz i = winio@ ('%hw', hw_handle) ! return the handle of the current window.
INTEGER(7) HD_HANDLE

I now can't shift this error !!

Any clues ?

John
Back to top
View user's profile Send private message
JohnCampbell



Joined: 16 Feb 2006
Posts: 2554
Location: Sydney

PostPosted: Thu Mar 09, 2017 6:21 am    Post subject: Reply with quote

should W_handle be INTEGER(3) ie INTEGER*4 ?
Is that what the error implies ?

With the changes to access rights in C:\Program Files (x86)\Silverfrost\ftn95\include, it is not easy to continually change <jdc_menu.ins>

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


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

PostPosted: Thu Mar 09, 2017 8:09 am    Post subject: Reply with quote

Yes, the identifier for a %gr surface should be an INTEGER*4.
Back to top
View user's profile Send private message AIM Address
JohnCampbell



Joined: 16 Feb 2006
Posts: 2554
Location: Sydney

PostPosted: Thu Mar 09, 2017 10:38 am    Post subject: Reply with quote

Thanks Paul,

I shall test it out .. It works.

With Ver 8.05, I was getting a similar error with :
i = winio@ ('%hw', hw_handle) ! return the handle of the current window.
I thought this should be integer(7) hw_handle
I could only remove this error by commenting out the line and not using hw_handle functionality. I have not yet tested Ver 8.10 on this line.

Returning the line, Ver 8.05.0 gives the error message "Argument number 2 of WINIO@ (continuation 113) should be an INTEGER(7) at ..
(continuation 113 was not easy to find)

Ver 8.10.0 (after a clean out of the path variable) now does not give an error for compiling winio@ calls, so it appears that this Ver 8.10.0 winio@ warning has fixed up some problems I had.

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


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

PostPosted: Fri Mar 10, 2017 9:10 am    Post subject: Reply with quote

%hw returns a Windows handle so it should be INTEGER(7).
Back to top
View user's profile Send private message AIM Address
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+ 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