 |
forums.silverfrost.com
Welcome to the Silverfrost forums
|
| View previous topic :: View next topic |
| Author |
Message |
Moji
Joined: 30 Sep 2020
Posts: 30
|
 Posted: Wed Jan 29, 2025 10:16 am Post subject: winio - %lw |
 |
|
Hello,
I get an access violation error message in my Fortran program (32-bit and 64-bit) by calling winio@ ('%lw', ctrl4) after winio@ ('%`gr... . The following sample code is prepared for testing:
| Code: | Program Test_lw
Implicit None
include <windows.ins>
Integer :: ios, ctrl4, igr
Integer, Parameter :: nphb=1632, npvb=1032
call set_cursor_waiting@ (1)
igr =4
ios =winio@ ('%ww[invisible,independent]&')
ios =winio@ ('%`gr[metafile_resize,white,rgb_colours]&', &
nphb, npvb, igr)
ios =winio@ ('%lw', ctrl4)
end
|
I use the version 9.00.0 of the compiler. |
|
| Back to top |
|
 |
PaulLaidler
Site Admin
Joined: 21 Feb 2005
Posts: 8184
Location: Salford, UK
|
| Posted: Wed Jan 29, 2025 11:26 am Post subject: |
|
|
I can't see any problems with this code. There is some redundancy and nothing to see but it does not fail for me.
Try something simpler...
| Code: | winapp
Program Test_lw
Implicit None
Integer :: ios, ctrl4, igr
Integer, Parameter :: nphb=800, npvb=600
igr = 4
ios = winio@('%pv&')
ios = winio@ ('%`gr[metafile_resize,white]&', nphb, npvb, igr)
ios = winio@ ('%lw', ctrl4)
end |
I am using v9.06 from http://forums.silverfrost.com/viewtopic.php?t=4245 |
|
| Back to top |
|
|
Moji
Joined: 30 Sep 2020
Posts: 30
|
| Posted: Wed Jan 29, 2025 12:54 pm Post subject: |
|
|
Paul,
I tested your code. It still gives me an error after running winio@ ('%lw', ctrl4):
| Quote: | | Error: Access Violation reading address 0x0000000000000008 |
Even using the current version (9.06.0.0) didn't help. |
|
| Back to top |
|
|
Moji
Joined: 30 Sep 2020
Posts: 30
|
| Posted: Fri Jan 31, 2025 12:00 pm Post subject: Re: |
|
|
| Moji wrote: | Paul,
I tested your code. It still gives me an error after running winio@ ('%lw', ctrl4):
| Quote: | | Error: Access Violation reading address 0x0000000000000008 |
Even using the current version (9.06.0.0) didn't help. |
Paul,
I made a mistake by testing the program with the new version (9.06). I forgot to transfer the new clearwin64.dll to the runtime library. Doing that would solve the problem.
Sorry for any inconvinience and thanks for the support! |
|
| Back to top |
|
|
|
|
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
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
