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 

XREF causes compiler crash

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



Joined: 13 Oct 2014
Posts: 1217
Location: Morrison, CO, USA

PostPosted: Fri Nov 10, 2017 11:13 pm    Post subject: XREF causes compiler crash Reply with quote

I have at least one routine in my build that causes a crash when I enable XREF.

Using 8.20.0, the compile options are:
Code:
Compiler options in effect:
 BINARY;CFPP;CHECK;CHECKMATE;ERROR_NUMBERS;FPP;IMPLICIT_NONE;LIST;
NO_BANNER;SAVE;UNDEF;UNLIMITED_ERRORS;VS7;WIDE_SOURCE;XREF;


I've trimmed down the code that causes the error.
Code:
   SUBROUTINE GUSER(CSTMER,SERLNO,CNAME,BUILD_DATE,BUILD_TIME,user,APPFOLDER,sw_version,expiration_date,download_link)
   use mswin
!   SPECIAL PARAMETER CURRENTUSER
   character*(*) cstmer
   CHARACTER*48 CURRENT_CUSTOMER,current_name
   CHARACTER*(*) SERLNO
   CHARACTER*20 CURRENT_SERLNO
   character*(*) cname ! name of the user who installed the SW
   character*(*) expiration_date
   character*(*) download_link
#ifndef RESTRICTED
    character*48::reg_name="Unregistered User"
    character*48::reg_company="Unregistered Company"
    character*20::reg_serial="UnregisteredSerial##"
    character*20::reg_reg   ="UnregisteredRegNumbe"
    character*8,parameter::CMASTER_TYPE='C-Master'
!$$$$$$ #else
!$$$$$$     character*48::reg_name="Evaluation User"
!$$$$$$     character*48::reg_company="Company Evaluating"
!$$$$$$     character*20::reg_serial="EvaluationSerial####"
!$$$$$$     character*20::reg_reg=   "EvaluationRegNumber#"
!$$$$$$     character*19,parameter::CMASTER_TYPE='C-Master Evaluation'
!$$$$$$     character*10:: hide_1="1157605789"
#endif
!   character*256::dummy=" "
   character*(*) user,appfolder,sw_version
   character*256 username
   character*260 default_folder
   character*2 sep
   LOGICAL,external:: registry_hack
   integer,external:: log_mydata
   INTEGER:: i,k
   CHARACTER*(*) BUILD_DATE,BUILD_TIME
   common/guser_common/CURRENT_CUSTOMER,CURRENT_SERLNO
   RETURN
   END


With or without the commented block of lines, the XREF causes a crash.
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: Sat Nov 11, 2017 8:49 am    Post subject: Reply with quote

Thank you. I have made a note that this needs fixing.
Back to top
View user's profile Send private message AIM Address
PaulLaidler
Site Admin


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

PostPosted: Tue Nov 14, 2017 6:03 pm    Post subject: Reply with quote

This issue has now been fixed for the next release of FTN95 (after 8.20).
Back to top
View user's profile Send private message AIM Address
wahorger



Joined: 13 Oct 2014
Posts: 1217
Location: Morrison, CO, USA

PostPosted: Tue Nov 14, 2017 10:46 pm    Post subject: Reply with quote

Thanks, Paul!
Back to top
View user's profile Send private message Visit poster's website
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