fixes
This commit is contained in:
parent
41c2d856a7
commit
7930b4d648
1
C/init.c
1
C/init.c
@ -900,7 +900,6 @@ InitFlags(void)
|
||||
{
|
||||
/* note that Yap_heap_regs must be set first */
|
||||
|
||||
yap_flags[YAP_TO_CHARS_FLAG] = ISO_TO_CHARS;
|
||||
yap_flags[LANGUAGE_MODE_FLAG] = 0;
|
||||
yap_flags[STRICT_ISO_FLAG] = FALSE;
|
||||
yap_flags[SOURCE_MODE_FLAG] = FALSE;
|
||||
|
@ -1649,11 +1649,6 @@ p_set_yap_flags( USES_REGS1 )
|
||||
value = IntOfTerm(tvalue);
|
||||
/* checking should have been performed */
|
||||
switch(flag) {
|
||||
case YAP_TO_CHARS_FLAG:
|
||||
if (value != 0 && value != 1)
|
||||
return(FALSE);
|
||||
yap_flags[YAP_TO_CHARS_FLAG] = value;
|
||||
break;
|
||||
case LANGUAGE_MODE_FLAG:
|
||||
if (value < 0 || value > 2)
|
||||
return(FALSE);
|
||||
|
Reference in New Issue
Block a user