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 

Error 1244

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



Joined: 18 May 2012
Posts: 697
Location: Hamilton, Lanarkshire, Scotland.

PostPosted: Tue Jan 07, 2020 4:22 pm    Post subject: Error 1244 Reply with quote

The following subroutine worked in 8.5.

Code:
  subroutine get_bitmap_size_data(icon_text,x,y)
  include<windows.ins>
  character(len=*), intent(in) :: icon_text
  integer, intent(out)         :: x, y
  integer nbbp, ercode
  character(len=120) string1
    string1 = 'C:/GUI/bitmaps/'//adjustl(trim(icon_text))//'.bmp'
    call GET_DIB_SIZE@(trim(string1),x,y,nbbp,ercode)
  end subroutine get_bitmap_size_data


In 8.6 I get the following error at compile time:

error 1244 - The second argument of GET_DIB_SIZE@ is passed as a reference that should not be a constant nor an expression
error 1244 - The third argument of GET_DIB_SIZE@ is passed as a reference that should not be a constant nor an expression

I am also getting a similar error with the following line of code:

Code:
wire(i)%handle(3) = add_graphics_icon@( wire(i)%description(3), wire(i)%x(3), wire(i)%y(3), 0, 0)


error 1244 - The second argument of ADD_GRAPHICS_ICON@ is passed as a reference that should not be a constant nor an expression
error 1244 - The third argument of ADD_GRAPHICS_ICON@ is passed as a reference that should not be a constant nor an expression

Any ideas of what's amiss?

Thanks

Ken
Back to top
View user's profile Send private message Visit poster's website
PaulLaidler
Site Admin


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

PostPosted: Tue Jan 07, 2020 5:20 pm    Post subject: Reply with quote

These are false error reports coming from the new argument checking for clearwin.ins. This FTN95 failure has already been fixed for the next release.

In the meantime you can either add "/ignore 1244" to the FTN95 command line or use the earlier form of clearwin.ins that can be downloaded via the following link. This file replaces the clearwin.ins in the FTN95\INCLUDE folder.

https://www.dropbox.com/s/h3xbw38oxqmljx9/CLEARWIN.INS?dl=0
Back to top
View user's profile Send private message AIM Address
Kenneth_Smith



Joined: 18 May 2012
Posts: 697
Location: Hamilton, Lanarkshire, Scotland.

PostPosted: Tue Jan 07, 2020 5:32 pm    Post subject: Reply with quote

Thanks Paul, /ignore 1244 gets me back to where I was before the holidays.
Back to top
View user's profile Send private message Visit poster's website
LitusSaxonicum



Joined: 23 Aug 2005
Posts: 2388
Location: Yateley, Hants, UK

PostPosted: Wed Jan 08, 2020 4:48 pm    Post subject: Reply with quote

Or more accurately in terms of causation, to where you were before you got v8.60.

Pedantry award requested for January.

Eddie
Back to top
View user's profile Send private message
John-Silver



Joined: 30 Jul 2013
Posts: 1520
Location: Aerospace Valley

PostPosted: Sun Jan 19, 2020 8:37 pm    Post subject: Reply with quote

when is the 'next release' due Paul ?
_________________
''Computers (HAL and MARVIN excepted) are incredibly rigid. They question nothing. Especially input data.Human beings are incredibly trusting of computers and don't check input data. Together cocking up even the simplest calculation ... Smile "
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 -> 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