Merge branch 'master' into netgen-1.5
This commit is contained in:
commit
93b9cf6577
|
|
@ -6124,7 +6124,9 @@ PropertyMatch(struct Element *E1, struct Element *E2,
|
|||
if (kl2 != NULL)
|
||||
break; // Property is required
|
||||
}
|
||||
else if (vl2->value.ival != 1)
|
||||
else if ((vl2->type == PROP_INTEGER) && (vl2->value.ival != 1))
|
||||
break; // Property M != 1 or S != 1 is a mismatch.
|
||||
else if ((vl2->type == PROP_DOUBLE) && (vl2->value.dval != 1))
|
||||
break; // Property M != 1 or S != 1 is a mismatch.
|
||||
}
|
||||
if (vl2->type != PROP_ENDLIST) {
|
||||
|
|
|
|||
|
|
@ -587,6 +587,12 @@ void SkipTokNoNewline(char *delimiter)
|
|||
/* */
|
||||
/* Modified 3/30/2015 to include the condition where a comment line is */
|
||||
/* in the middle of a series of continuation lines. */
|
||||
/* */
|
||||
/* Modified 1/3/2024 to avoid skipping two lines if a line has only the */
|
||||
/* comment character '*' followed by a newline. It seems that '\n' is */
|
||||
/* being ignored in WHITESPACE_DELIMITER, but it's easier to write the */
|
||||
/* code to find the exception rather than track down the problem in */
|
||||
/* GetNextLine(). */
|
||||
/*----------------------------------------------------------------------*/
|
||||
|
||||
void SpiceTokNoNewline(void)
|
||||
|
|
@ -598,8 +604,14 @@ void SpiceTokNoNewline(void)
|
|||
while (nexttok == NULL) {
|
||||
contline = getc(infile);
|
||||
if (contline == '*') {
|
||||
GetNextLine(WHITESPACE_DELIMITER);
|
||||
SkipNewLine(NULL);
|
||||
char testline = ' ';
|
||||
while ((testline == ' ') || (testline == '\t'))
|
||||
testline = getc(infile);
|
||||
if (testline != '\n') {
|
||||
ungetc(testline, infile);
|
||||
GetNextLine(WHITESPACE_DELIMITER);
|
||||
SkipNewLine(NULL);
|
||||
}
|
||||
continue;
|
||||
}
|
||||
else if (contline != '+') {
|
||||
|
|
|
|||
Loading…
Reference in New Issue