paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 05:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed tex writign

Browse Source
This commit is contained in:
peter 2000-07-09 16:30:59 +00:00
parent 8ae0004dff
commit a1b92237f5
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/utils/msg2inc.pp
View File

@ -653,6 +653,9 @@ begin
if i>0 then
begin
inc(i);
while s[i] in ['0'..'9'] do
inc(i);
inc(i);
s1:='';
k:=0;
while (k<5) and (s[i+k]<>'_') do
@ -787,7 +790,10 @@ begin
end.
{
$Log$
Revision 1.9 2000-07-04 19:05:53 peter
Revision 1.10 2000-07-09 16:30:59 peter
* fixed tex writign
Revision 1.9 2000/07/04 19:05:53 peter
* be optimistic: version 1.00 for some utils
Revision 1.8 2000/06/30 20:23:38 peter