paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-16 11:39:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Added check for missing unitname in constant name

Browse Source
This commit is contained in:
michael 1999-07-24 18:35:10 +00:00
parent d4760d5963
commit 96b0a1b301
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
utils/rstconv.pp
View File

@ -66,6 +66,8 @@ begin
DotPos := Pos('.', s); DotPos := Pos('.', s);
EqPos := Pos('=', s); EqPos := Pos('=', s);
if DotPos > EqPos then // paranoia checking.
DotPos := 0;
item.ModuleName := Copy(s, 1, DotPos - 1); item.ModuleName := Copy(s, 1, DotPos - 1);
item.ConstName := Copy(s, DotPos + 1, EqPos - DotPos - 1); item.ConstName := Copy(s, DotPos + 1, EqPos - DotPos - 1);
@ -205,7 +207,10 @@ end.
{ {
$Log$ $Log$
Revision 1.2 1999-07-24 16:22:38 michael Revision 1.3 1999-07-24 18:35:10 michael
+ Added check for missing unitname in constant name
Revision 1.2 1999/07/24 16:22:38 michael
+ Comments and empty lines are now ignored + Comments and empty lines are now ignored
Revision 1.1 1999/07/23 18:23:45 michael Revision 1.1 1999/07/23 18:23:45 michael