Преглед на файлове

* fix writing of augmentation size

git-svn-id: branches/debug_eh@42254 -
florian преди 6 години
родител
ревизия
adb8e1b76c
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  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}