Implement get_local_info_dwarfdump

Author: Thirumalai-Shaktivel

src/libasr/runtime/lfortran_intrinsics.c

@@ -1172,9 +1172,9 @@ static _Unwind_Reason_Code unwind_callback(struct _Unwind_Context *context,
     uintptr_t pc = _Unwind_GetIP(context);
     if (pc != 0) {
         pc--;
-        if (d->size < LCOMPILERS_MAX_STACKTRACE_LENGTH) {
-            d->pc[d->size] = pc;
-            d->size++;
+        if (d->pc_size < LCOMPILERS_MAX_STACKTRACE_LENGTH) {
+            d->pc[d->pc_size] = pc;
+            d->pc_size++;
         } else {
             // TODO: Do not know how to report an error here
         }
@@ -1214,6 +1214,27 @@ int shared_lib_callback(struct dl_phdr_info *info,
     return 0;
 }
 
+uint32_t file_size(int64_t fp){
+    FILE *fp_ = (FILE *)fp;
+    int prev = ftell(fp_);
+    fseek(fp_, 0, SEEK_END);
+    int size = ftell(fp_);
+    fseek(fp_, prev, SEEK_SET);
+    return size;
+}
+
+void get_local_info_dwarfdump(struct Stacktrace d) {
+    uint64_t addresses[LCOMPILERS_MAX_STACKTRACE_LENGTH];
+    {
+        char *filename = "lines.dat";
+        int64_t fd = _lpython_open(filename, "rb");
+        uint32_t size = file_size(fd);
+        char * file_contents = _lpython_read(fd, size);
+        _lpython_close(fd);
+        printf("%s: %d\n", file_contents, size);
+    }
+}
+
 void get_local_address(struct Stacktrace d) {
     for (int32_t i=0; i < d.pc_size; i++) {
         d.current_pc = d.pc[i];
@@ -1228,7 +1249,7 @@ void get_local_address(struct Stacktrace d) {
 void print_stacktrace_addresses(struct Stacktrace d)
 {
     get_local_address(d);
-    // get_local_info_dwarfdump(d);
+    get_local_info_dwarfdump(d);
     // print stacktrace
 }