version 0.7.6

1 files changed, 3 insertions, 0 deletions

diff --git a/nim/rodwrite.pas b/nim/rodwrite.pas
index 637f69ff7..72d5c893d 100644
--- a/nim/rodwrite.pas
+++ b/nim/rodwrite.pas
@@ -530,6 +530,7 @@ begin
     nkVarSection: begin
       for i := 0 to sonsLen(n)-1 do begin
         a := n.sons[i];
+        if a.kind = nkCommentStmt then continue;
         if a.kind <> nkIdentDefs then InternalError(a.info, 'rodwrite.process');
         addInterfaceSym(w, a.sons[0].sym);
       end
@@ -537,6 +538,7 @@ begin
     nkConstSection: begin
       for i := 0 to sonsLen(n)-1 do begin
         a := n.sons[i];
+        if a.kind = nkCommentStmt then continue;
         if a.kind <> nkConstDef then InternalError(a.info, 'rodwrite.process');
         addInterfaceSym(w, a.sons[0].sym);
       end
@@ -544,6 +546,7 @@ begin
     nkTypeSection: begin
       for i := 0 to sonsLen(n)-1 do begin
         a := n.sons[i];
+        if a.kind = nkCommentStmt then continue;
         if a.sons[0].kind <> nkSym then
           InternalError(a.info, 'rodwrite.process');
         s := a.sons[0].sym;