[Gd-chatter] r11268 - in trunk/fundev/sources: environment/target-application runtime-manager/debugger-manager

[hannes at gwydiondylan.org]

Author: hannes
Date: Fri Apr 20 02:50:50 2007
New Revision: 11268

Modified:
   trunk/fundev/sources/environment/target-application/target-application.dylan
   trunk/fundev/sources/runtime-manager/debugger-manager/initialization-tracking.dylan
Log:
Bug: 6810

Fix the "Undescribed restart" problem. It was broken because the spy function for
finding #"format-string" and #"format-arguments" was called too early
(component-name-table of a <debug-target> instance was not filled).

Modified: trunk/fundev/sources/environment/target-application/target-application.dylan
==============================================================================
--- trunk/fundev/sources/environment/target-application/target-application.dylan	(original)
+++ trunk/fundev/sources/environment/target-application/target-application.dylan	Fri Apr 20 02:50:50 2007
@@ -140,6 +140,8 @@
 /// OBTAIN-COMPONENT-NAME
 /// 
 /// Get the DLL name for a given library
+/// XXX does not work with library packs! find-library-info is broken
+/// we hope nobody calls it (it wasn't called during our debugging sessions)
 
 define method obtain-component-name
     (application :: <target-application>, library-name :: <string>)

Modified: trunk/fundev/sources/runtime-manager/debugger-manager/initialization-tracking.dylan
==============================================================================
--- trunk/fundev/sources/runtime-manager/debugger-manager/initialization-tracking.dylan	(original)
+++ trunk/fundev/sources/runtime-manager/debugger-manager/initialization-tracking.dylan	Fri Apr 20 02:50:50 2007
@@ -161,10 +161,10 @@
   if (start.entry-initialization-tracker.tracker-remote-library ==
          application.application-dylan-library)
     allocate-temporary-download-block-in(application, thread);
-    initialize-static-keywords(application, thread);
   end if;
   if (start.entry-initialization-tracker.tracker-top-level?)
     construct-component-name-table(application);
+    initialize-static-keywords(application, thread);
   end if;
   handle-library-initialization-phase
     (application, thread,