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

* Modified test so recent Windows TLS changes do not break it (these changes cause threadvar Output to move from .bss to thread-local storage, and heaptrc no longer treats it as a valid pointer). Adding support for tls pointer checks to heaptrc could solve this, too (and would be fine anyway), but it is a separate issue. This test is about checking pointers from .data and .bss.

Browse Source 
git-svn-id: trunk@18020 -
This commit is contained in:
sergei 2011-07-25 22:38:33 +00:00
parent ef48f93d85
commit 32c868d83e
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/webtbs/tw3661.pp
View File

@ -10,7 +10,21 @@ program project1;
uses
Classes;
var
f: text;
begin
HaltOnNotReleased := true;
writeln('abc');
{ The subject matter of the test is heaptrc checking pointers belonging to .data
or .bss sections. However, using a standard io file for this purpose is not a good
idea, because it is a threadvar and resides in .bss only in certain circumstances
(FPC-specific threadvar model and multithreading not initialized).
Using a 'normal' file is fine. }
//writeln('abc');
assign(f,'tw3661.txt');
rewrite(f);
writeln(f,'abc');
close(f);
erase(f);
end.