|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
wahorger
Joined: 13 Oct 2014 Posts: 1217 Location: Morrison, CO, USA
|
Posted: Fri Nov 10, 2017 11:13 pm Post subject: XREF causes compiler crash |
|
|
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 |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Sat Nov 11, 2017 8:49 am Post subject: |
|
|
Thank you. I have made a note that this needs fixing. |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Tue Nov 14, 2017 6:03 pm Post subject: |
|
|
This issue has now been fixed for the next release of FTN95 (after 8.20). |
|
Back to top |
|
|
wahorger
Joined: 13 Oct 2014 Posts: 1217 Location: Morrison, CO, USA
|
Posted: Tue Nov 14, 2017 10:46 pm Post subject: |
|
|
Thanks, Paul! |
|
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
|