Remove most uses of ALL_OBJFILES

[deliverable/binutils-gdb.git] / gdb / guile / scm-objfile.c

diff --git a/gdb/guile/scm-objfile.c b/gdb/guile/scm-objfile.c
index b5f617295709b67033639d9e10c30c7793e30c7e..79b784aad622c2f5d9f05425bde8ac490ba9255b 100644 (file)
--- a/gdb/guile/scm-objfile.c
+++ b/gdb/guile/scm-objfile.c
@@ -366,17 +366,16 @@ gdbscm_get_current_objfile (void)
 static SCM
 gdbscm_objfiles (void)
 {
-  struct objfile *objf;
   SCM result;
 
   result = SCM_EOL;
 
-  ALL_OBJFILES (objf)
-  {
-    SCM item = ofscm_scm_from_objfile (objf);
+  for (objfile *objf : all_objfiles (current_program_space))
+    {
+      SCM item = ofscm_scm_from_objfile (objf);
 
-    result = scm_cons (item, result);
-  }
+      result = scm_cons (item, result);
+    }
 
   return scm_reverse_x (result, SCM_EOL);
 }