From 1396e903a5a4386a406aacd7ddc72d80f6614acf Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 25 Mar 2014 11:21:44 +0000
Subject: [PATCH]  Fix ugly error causing troubles in go32v2 2.6.4 release IDE
 with GDB

git-svn-id: trunk@27281 -
---
 rtl/go32v2/initc.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/go32v2/initc.pp b/rtl/go32v2/initc.pp
index e992d05602..cd5bb959ca 100644
--- a/rtl/go32v2/initc.pp
+++ b/rtl/go32v2/initc.pp
@@ -72,7 +72,7 @@ procedure run_c_destructors;
        exit;
      already_done:=bss_count;
      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
        begin
           f();