mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 19:49:12 +02:00
* fixed web bug #1037 (disable linking of ctrl-c to exception handler,
ctrl-break still works fine then) (merged from fixes)
This commit is contained in:
parent
43ccd75f63
commit
3035952b07
@ -95,7 +95,7 @@ procedure cursorbig;
|
|||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
go32;
|
go32,dpmiexcp;
|
||||||
|
|
||||||
|
|
||||||
{$ASMMODE ATT}
|
{$ASMMODE ATT}
|
||||||
@ -817,11 +817,17 @@ begin
|
|||||||
TextRec(Input).Handle:=StdInputHandle;
|
TextRec(Input).Handle:=StdInputHandle;
|
||||||
{ Calculates delay calibration }
|
{ Calculates delay calibration }
|
||||||
initdelay;
|
initdelay;
|
||||||
|
{ Enable ctrl-c input (JM) }
|
||||||
|
djgpp_set_ctrl_c(false);
|
||||||
end.
|
end.
|
||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.2 2000-07-13 11:33:39 michael
|
Revision 1.3 2000-07-31 14:07:43 jonas
|
||||||
|
* fixed web bug 1037 (disable linking of ctrl-c to exception handler,
|
||||||
|
ctrl-break still works fine then) (merged from fixes)
|
||||||
|
|
||||||
|
Revision 1.2 2000/07/13 11:33:39 michael
|
||||||
+ removed logs
|
+ removed logs
|
||||||
|
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user