vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-05 21:02:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

prevents orphaned or misplaced comments from being written to symbol

Browse source 
files.
This commit is contained in:
Norayr Chilingarian 2025-07-19 05:56:37 +04:00
parent a517a42357
commit 84516b2ac6
1 changed files with 13 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/compiler/OPT.Mod
View file

@ -1348,16 +1348,20 @@ BEGIN
IF obj^.mode IN {Con, Typ, Var, LProc, XProc, CProc, IProc} THEN
(* Write comment BEFORE the object *)
IF obj^.comment # NIL THEN
OPM.SymWInt(Scomment);
(* Calculate actual length of comment text *)
k := 0;
WHILE (k < OPM.MaxCommentLen - 1) & (obj^.comment^[k] # 0X) DO INC(k) END;
OPM.SymWInt(k); (* length prefix *)
(* Write comment data as individual characters *)
l := 0;
WHILE l < k DO
OPM.SymWCh(obj^.comment^[l]); INC(l)
(* Only write comments for objects that make sense *)
IF (obj^.mode IN {Con, Typ, Var, XProc, IProc, CProc}) & (obj^.vis # internal) THEN
OPM.SymWInt(Scomment);
(* Calculate actual length of comment text *)
k := 0;
WHILE (k < OPM.MaxCommentLen - 1) & (obj^.comment^[k] # 0X) DO INC(k) END;
OPM.SymWInt(k); (* length prefix *)
(* Write comment data as individual characters *)
l := 0;
WHILE l < k DO
OPM.SymWCh(obj^.comment^[l]); INC(l)
END
END
(* If condition is false, we skip the comment entirely *)
END;
IF obj^.history = removed THEN FPrintErr(obj, 250)