segfault at 0 ip 00007fab8efe45cc sp 00007fff61976b20 error 4 in libc-2.17.so[7fab8ef70000+1a3000]
segfault at 0 ip 00007f8204e305cc sp 00007fff4c7d5c80 error 4 in libc-2.17.so[7f8204dbc000+1a3000]
Running Regina 3.7 on SuSE Linux 12.2
The error seems to be generated by this line:
if ( (left(x3,1) = '"') | (left(x3,1) = "'") | datatype(x3,'N') ) then call lineout file_rexx_define,x1 x2 x3
Where file_rexx_define is passed as a return code from a configuration routine. If I display file_rexx_define, it shows as the expected value with no unusual characters.
I do not get the error if I change it to:
if ( (left(x3,1) = '"') | (left(x3,1) = "'") | datatype(x3,'N') ) then call lineout 'Define',x1 x2 x3
using a constant instead of a variable for the file name.
other lines such as:
CALL LINEOUT file_rexx_save,raw_line
in the same program work without error
This is the 5th file opened by the program.
Log in to post a comment.