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

* Do not use console I/O in DLL on wince.

Browse Source 
git-svn-id: trunk@10747 -
This commit is contained in:
yury 2008-04-21 12:06:10 +00:00
parent 0d533a1f1e
commit c0e760ef3c
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tw6822a.pp
View File

@ -6,5 +6,7 @@ uses
uw6822a;
begin
{$ifndef wince}
writeln('hello from library');
{$endif wince}
end.

4
tests/webtbs/uw6822a.pp
View File

@ -9,11 +9,15 @@ var
t: text;
initialization
{$ifndef wince}
writeln('Unit 1');
writeln('initialization');
{$endif wince}
finalization
{$ifndef wince}
writeln('Unit 1'); // problem
writeln('finalization');
{$endif wince}
assign(t,'uw6822a.txt');
rewrite(t);
close(t);