mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-14 11:09:41 +02:00
* fixed runtime checks
This commit is contained in:
parent
9abe8bf055
commit
a099086fe4
@ -1,3 +1,5 @@
|
|||||||
|
{$mode delphi}
|
||||||
|
|
||||||
type
|
type
|
||||||
tprocedure = procedure;
|
tprocedure = procedure;
|
||||||
|
|
||||||
|
@ -1,5 +1,3 @@
|
|||||||
{%interactive }
|
|
||||||
|
|
||||||
{
|
{
|
||||||
ide 0.9.2 dos/win32 2002/05/31
|
ide 0.9.2 dos/win32 2002/05/31
|
||||||
press F7 or F8 more times:
|
press F7 or F8 more times:
|
||||||
@ -29,7 +27,7 @@ within a macro. Merged to 1.1 branch. }
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
{$include tw2004i.inc}
|
{$include uw2004.inc}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@ -51,4 +49,5 @@ x;
|
|||||||
write('ppppp');
|
write('ppppp');
|
||||||
y;
|
y;
|
||||||
x;
|
x;
|
||||||
|
writeln;
|
||||||
end.
|
end.
|
||||||
|
Loading…
Reference in New Issue
Block a user