Jelajahi Sumber

* fix writing of augmentation size

git-svn-id: branches/debug_eh@42254 -
florian 6 tahun lalu
induk
melakukan
adb8e1b76c
1 mengubah file dengan 1 tambahan dan 1 penghapusan
  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}