diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

deb_fixing

Browse Source
This commit is contained in:
Vítor Santos Costa
2019-05-18 09:47:17 +01:00
parent 0949f6b494
commit c3a254e44d
6 changed files with 94 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
C/scanner.c
View File

@@ -1337,7 +1337,7 @@ TokEntry *Yap_tokenizer(struct stream_desc *st,
och=ch;
ch = getchr(st);
}
params->tp = Yap_StreamPosition(st - GLOBAL_Stream);
params->tposOUTPUT = Yap_StreamPosition(st - GLOBAL_Stream);
Yap_setCurrentSourceLocation(st);
LOCAL_StartLineCount = st->linecount;
LOCAL_StartLinePos = st->linepos;
@@ -1393,7 +1393,7 @@ TokEntry *Yap_tokenizer(struct stream_desc *st,
while (chtype(ch) == BS) {
ch = getchr(st);
}
params->tp = Yap_StreamPosition(st - GLOBAL_Stream);
params->tposOUTPUT = Yap_StreamPosition(st - GLOBAL_Stream);
Yap_setCurrentSourceLocation(st);
}
goto restart;
@@ -1734,7 +1734,7 @@ TokEntry *Yap_tokenizer(struct stream_desc *st,
ch = getchr(st);
}
CHECK_SPACE();
params->tp = Yap_StreamPosition(st - GLOBAL_Stream);
params->tposOUTPUT = Yap_StreamPosition(st - GLOBAL_Stream);
Yap_setCurrentSourceLocation(st);
}
}