paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 11:00:23 +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; uw6822a;
begin begin
{$ifndef wince}
writeln('hello from library'); writeln('hello from library');
{$endif wince}
end. end.

4
tests/webtbs/uw6822a.pp
View File

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