mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-23 07:31:20 +02:00
* added log
This commit is contained in:
parent
c4bd066458
commit
9dcb4e1be6
@ -35,3 +35,9 @@
|
||||
{$ifndef use_amiga_smartlink}
|
||||
{$define use_amiga_smartlink}
|
||||
{$endif}
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
@ -43,3 +43,9 @@
|
||||
{$ifndef use_auto_openlib}
|
||||
{$define use_auto_openlib}
|
||||
{$endif}
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
@ -42,3 +42,8 @@ begin
|
||||
freeSessionVal := QFreeSession(session);
|
||||
|
||||
end.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
@ -104,4 +104,9 @@ begin
|
||||
CleanUp('all ok',0);
|
||||
end.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
@ -1244,3 +1244,9 @@ begin
|
||||
{$endif use_auto_openlib}
|
||||
|
||||
END. (* UNIT GTLAYOUT *)
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
@ -662,3 +662,9 @@ begin
|
||||
|
||||
|
||||
END. (* UNIT IDENTIFY *)
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
@ -84,3 +84,9 @@ Begin
|
||||
End Else
|
||||
Writeln ('DisplayID is 0.');
|
||||
End.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
@ -60,3 +60,9 @@ Begin
|
||||
End Else
|
||||
Writeln ('Unable to allocate list.');
|
||||
End.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
@ -90,3 +90,8 @@ Begin
|
||||
p96PIP_Close(wd);
|
||||
End Else Writeln ('Unable to open PIP.');
|
||||
End.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
@ -213,3 +213,7 @@ BEGIN
|
||||
CleanUp('');
|
||||
END.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
@ -88,3 +88,7 @@ begin
|
||||
end;
|
||||
end.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
@ -62,3 +62,8 @@ Begin
|
||||
Writeln('No Dimensioninfo.');
|
||||
End Else Writeln('DisplayID invalid.');
|
||||
End.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
@ -167,3 +167,7 @@ if sc = nil then CleanUp('Can''t open screen');
|
||||
|
||||
CleanUp('');
|
||||
End.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
@ -901,3 +901,8 @@ begin
|
||||
{$endif use_auto_openlib}
|
||||
|
||||
END. (* UNIT PICASSO96API *)
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
@ -409,3 +409,8 @@ BEGIN
|
||||
NIL,@undertag);
|
||||
CleanUp;
|
||||
END.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
@ -1160,5 +1160,8 @@ BEGIN
|
||||
|
||||
END. (* UNIT REQTOOLS *)
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
@ -92,3 +92,4 @@ end.
|
||||
|
||||
|
||||
|
||||
|
||||
|
@ -1152,6 +1152,7 @@ END.
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
@ -368,5 +368,6 @@ END.
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
@ -284,3 +284,4 @@ END.
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
@ -280,6 +280,7 @@ END.
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
@ -103,4 +103,8 @@ begin
|
||||
Cleanexit('',0);
|
||||
end.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
@ -74,5 +74,9 @@ begin
|
||||
END ELSE writeln('Can''t create Application',20);
|
||||
end.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
@ -122,3 +122,10 @@ begin
|
||||
end
|
||||
else writeln('Can''t create application');
|
||||
end.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
@ -77,4 +77,10 @@ begin
|
||||
END ELSE writeln(' Cant creat Application' );
|
||||
end.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
@ -89,4 +89,9 @@ begin
|
||||
END ELSE writeln(' Cant create Application');
|
||||
end.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
@ -72,3 +72,9 @@ begin
|
||||
END ELSE writeln('Can''t create application');
|
||||
end.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
@ -158,5 +158,10 @@ begin
|
||||
CleanUp('',0);
|
||||
end.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
@ -165,4 +165,10 @@ begin
|
||||
CleanUp('',0);
|
||||
end.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
@ -162,6 +162,11 @@ begin
|
||||
CleanUp('',0);
|
||||
end.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
@ -166,6 +166,11 @@ begin
|
||||
CleanExit('',0);
|
||||
END.
|
||||
|
||||
{
|
||||
$Log
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
@ -1475,3 +1475,5 @@ END. (* UNIT TRITON *)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
@ -2679,3 +2679,5 @@ end.
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user