[svn] r6047: nemerle/trunk/ncc/generation/HierarchyEmitter.n

[malekith]

Log:
Fix resource embedding.

Author: malekith
Date: Tue Jan  3 16:47:08 2006
New Revision: 6047

Modified:
   nemerle/trunk/ncc/generation/HierarchyEmitter.n

Modified: nemerle/trunk/ncc/generation/HierarchyEmitter.n
==============================================================================
--- nemerle/trunk/ncc/generation/HierarchyEmitter.n	(original)
+++ nemerle/trunk/ncc/generation/HierarchyEmitter.n	Tue Jan  3 16:47:08 2006
@@ -143,7 +143,12 @@
           if (File.Exists (file)) {
             using (fs = File.OpenRead (file)) {
               def res = array (fs.Length :> int);
-              _ = fs.Read(res, 0, file.Length);
+              def loop (pos) {
+                if (res.Length == pos) {}
+                else
+                  loop (pos + fs.Read(res, pos, res.Length - pos));
+              }
+              loop (0);
               resource_builder.AddResource (name, res);
             }
           }