paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 01:27:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@27281 -
This commit is contained in:
pierre 2014-03-25 11:21:44 +00:00
parent d1348d3f9b
commit 1396e903a5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/go32v2/initc.pp
View File

@ -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();