Przeglądaj źródła

Fix ugly error causing troubles in go32v2 2.6.4 release IDE with GDB

git-svn-id: trunk@27281 -
pierre 11 lat temu
rodzic
commit
1396e903a5
1 zmienionych plików z 1 dodań i 1 usunięć
  1. 1 1
      rtl/go32v2/initc.pp

+ 1 - 1
rtl/go32v2/initc.pp

@@ -72,7 +72,7 @@ procedure run_c_destructors;
        exit;
        exit;
      already_done:=bss_count;
      already_done:=bss_count;
      f:=dtor[0];
      f:=dtor[0];
-     nb:=((cardinal(last_dtor)-cardinal(first_dtor)) div sizeof(pointer));
+     nb:=((cardinal(@last_dtor)-cardinal(@first_dtor)) div sizeof(pointer));
      for i:=1 to nb do
      for i:=1 to nb do
        begin
        begin
           f();
           f();