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

* avoid instabilities on win2000

Browse Source
This commit is contained in:
pierre 2002-09-09 08:02:49 +00:00
parent 0e8b05cf11
commit 1b50614947
2 changed files with 32 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
fv/time.pas
View File

@ -175,6 +175,10 @@ PROCEDURE SecondsToTime (Sd: LongInt; Var Hour24, Minute, Second: Word);
USES Dos; USES Dos;
{$endif OS_UNIX} {$endif OS_UNIX}
{$ifdef OS_GO32}
USES Dos;
{$endif OS_GO32}
{***************************************************************************} {***************************************************************************}
{ INTERFACE ROUTINES } { INTERFACE ROUTINES }
{***************************************************************************} {***************************************************************************}
@ -336,9 +340,9 @@ PROCEDURE GetTime (Var Hour, Minute, Second, Sec100: Word);
STOSW; { Return hours } STOSW; { Return hours }
END; END;
{$ENDIF} {$ENDIF}
{$IFDEF ASM_FPC} { FPC COMPATABLE ASM } {$IFDEF OS_GO32} { FPC COMPATABLE ASM }
BEGIN BEGIN
ASM (* ASM
MOVW $0x2C00, %AX; { Set function id } MOVW $0x2C00, %AX; { Set function id }
PUSHL %EBP; { Save register } PUSHL %EBP; { Save register }
INT $0x21; { System get time } INT $0x21; { System get time }
@ -356,7 +360,12 @@ PROCEDURE GetTime (Var Hour, Minute, Second, Sec100: Word);
MOVB %CH, %AL; { Transfer register } MOVB %CH, %AL; { Transfer register }
MOVL Hour, %EDI; { EDI -> Hour } MOVL Hour, %EDI; { EDI -> Hour }
MOVW %AX, (%EDI); { Return hour } MOVW %AX, (%EDI); { Return hour }
END; END; *)
{ direct call of real interrupt seems to render the system
unstable on Win2000 because some registers are not properly
restored if a mouse interrupt is generated while the Dos
interrupt is called... PM }
Dos.GetTime(Hour,Minute,Second,Sec100);
END; END;
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
@ -438,7 +447,10 @@ END.
{ {
$Log$ $Log$
Revision 1.7 2002-09-07 15:06:38 peter Revision 1.8 2002-09-09 08:02:49 pierre
* avoid instabilities on win2000
Revision 1.7 2002/09/07 15:06:38 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.6 2002/06/04 11:12:41 marco Revision 1.6 2002/06/04 11:12:41 marco

20
fvision/time.pas
View File

@ -175,6 +175,10 @@ PROCEDURE SecondsToTime (Sd: LongInt; Var Hour24, Minute, Second: Word);
USES Dos; USES Dos;
{$endif OS_UNIX} {$endif OS_UNIX}
{$ifdef OS_GO32}
USES Dos;
{$endif OS_GO32}
{***************************************************************************} {***************************************************************************}
{ INTERFACE ROUTINES } { INTERFACE ROUTINES }
{***************************************************************************} {***************************************************************************}
@ -336,9 +340,9 @@ PROCEDURE GetTime (Var Hour, Minute, Second, Sec100: Word);
STOSW; { Return hours } STOSW; { Return hours }
END; END;
{$ENDIF} {$ENDIF}
{$IFDEF ASM_FPC} { FPC COMPATABLE ASM } {$IFDEF OS_GO32} { FPC COMPATABLE ASM }
BEGIN BEGIN
ASM (* ASM
MOVW $0x2C00, %AX; { Set function id } MOVW $0x2C00, %AX; { Set function id }
PUSHL %EBP; { Save register } PUSHL %EBP; { Save register }
INT $0x21; { System get time } INT $0x21; { System get time }
@ -356,7 +360,12 @@ PROCEDURE GetTime (Var Hour, Minute, Second, Sec100: Word);
MOVB %CH, %AL; { Transfer register } MOVB %CH, %AL; { Transfer register }
MOVL Hour, %EDI; { EDI -> Hour } MOVL Hour, %EDI; { EDI -> Hour }
MOVW %AX, (%EDI); { Return hour } MOVW %AX, (%EDI); { Return hour }
END; END; *)
{ direct call of real interrupt seems to render the system
unstable on Win2000 because some registers are not properly
restored if a mouse interrupt is generated while the Dos
interrupt is called... PM }
Dos.GetTime(Hour,Minute,Second,Sec100);
END; END;
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
@ -438,7 +447,10 @@ END.
{ {
$Log$ $Log$
Revision 1.7 2002-09-07 15:06:38 peter Revision 1.8 2002-09-09 08:02:49 pierre
* avoid instabilities on win2000
Revision 1.7 2002/09/07 15:06:38 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.6 2002/06/04 11:12:41 marco Revision 1.6 2002/06/04 11:12:41 marco