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

* moved to succes instead of fail

Browse Source
This commit is contained in:
peter 1999-07-06 15:40:35 +00:00
parent aedeaf9b7e
commit 4d58eaf60b
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/tbf0203.pp → tests/tbs0203.pp
View File

@ -1,10 +1,10 @@
program tbf0203;
program tbs0203;
uses
uses
{$ifdef go32v2}
dpmiexcp,
{$endif def go32v2}
tbf0203a;
tbs0203a;
begin
c;

4
tests/tbf0203a.pp → tests/tbs0203a.pp
View File

@ -1,4 +1,4 @@
unit tbf0203a;
unit tbs0203a;
interface
procedure a;
@ -15,7 +15,7 @@ implementation
procedure b;[public, alias : '_assembler_a'];
begin
Writeln('b called');
Writeln('b called');
Is_called:=true;
end;