Explorar o código

* fix writing of augmentation size

git-svn-id: branches/debug_eh@42254 -
florian %!s(int64=6) %!d(string=hai) anos
pai
achega
adb8e1b76c
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/cfidwarf.pas

+ 1 - 1
compiler/cfidwarf.pas

@@ -426,7 +426,7 @@ implementation
                   if use_eh_frame then
                     begin
                       { size of augmentation }
-                      list.concat(tai_const.create_8bit(4));
+                      list.concat(tai_const.create_8bit(sizeof(pint)));
 {$ifdef debug_eh}
                       list.concat(tai_comment.Create(strpnew('LSDA')));
 {$endif debug_eh}