From: Gabriel Corona <gabriel.corona@loria.fr>
Date: Thu, 24 Apr 2014 10:17:04 +0000 (+0200)
Subject: [mc] Add basic test for lexical-block scoped variable
X-Git-Tag: v3_11~102^2~9
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/323d3b6ade62fdb6a408203267f9f5644cf5afd3

[mc] Add basic test for lexical-block scoped variable
---

diff --git a/testsuite/mc/dwarf.c b/testsuite/mc/dwarf.c
index 50d8ad445b..059062d589 100644
--- a/testsuite/mc/dwarf.c
+++ b/testsuite/mc/dwarf.c
@@ -63,6 +63,13 @@ static dw_variable_t find_local_variable(dw_frame_t frame, const char* argument_
       return variable;
   }
 
+  dw_frame_t scope = NULL;
+  xbt_dynar_foreach(frame->scopes, cursor, scope) {
+    variable = find_local_variable(scope, argument_name);
+    if(variable)
+      return variable;
+  }
+
   return NULL;
 }
 
@@ -141,6 +148,11 @@ int main(int argc, char** argv) {
 
   test_local_variable(mc_binary_info, "main", "argc", &argc, &cursor);
 
+  {
+    int lexical_block_variable = 50;
+    test_local_variable(mc_binary_info, "main", "lexical_block_variable", &lexical_block_variable, &cursor);
+  }
+
   s_foo my_foo;
   test_type_by_name(my_foo);