From e792940f5273bf8f8761c4cb29b241445e8b1d0b Mon Sep 17 00:00:00 2001
From: Andreas Rumpf <rumpf_a@web.de>
Date: Wed, 22 Apr 2009 15:55:27 +0200
Subject: version 0.7.6

---
 nim/rodwrite.pas | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'nim/rodwrite.pas')

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;
-- 
cgit 1.4.1-2-gfad0