paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 00:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bugfix of newline in BP was wrong !!

Browse Source 
(ate a character !!)
This commit is contained in:
pierre 1998-04-09 09:33:15 +00:00
parent 3a2a212930
commit 3d1eab599e
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/scanner.pas
View File

@ -355,8 +355,8 @@ for the last instruction of an include file !}
begin
prevc:=c;
reload;
if (byte(c)+byte(prevc)=23) then
inc(inputpointer);
if (byte(c)+byte(prevc)<>23) then
dec(inputpointer);
end;
c:=newline;
end;
@ -2103,7 +2103,11 @@ for the last instruction of an include file !}
end.
{
$Log$
Revision 1.5 1998-04-07 22:45:05 florian
Revision 1.6 1998-04-09 09:33:15 pierre
* bugfix of newline in BP was wrong !!
(ate a character !!)
Revision 1.5 1998/04/07 22:45:05 florian
* bug0092, bug0115 and bug0121 fixed
+ packed object/class/array