paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 00:29:37 +01: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 if i>0 then
begin begin
inc(i); inc(i);
while s[i] in ['0'..'9'] do
inc(i);
inc(i);
s1:=''; s1:='';
k:=0; k:=0;
while (k<5) and (s[i+k]<>'_') do while (k<5) and (s[i+k]<>'_') do
@ -787,7 +790,10 @@ begin
end. end.
{ {
$Log$ $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 * be optimistic: version 1.00 for some utils
Revision 1.8 2000/06/30 20:23:38 peter Revision 1.8 2000/06/30 20:23:38 peter