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

* better fix for bug #2518

Browse Source
This commit is contained in:
Tomas Hajny 2003-06-06 23:34:08 +00:00
parent 65ceacfe64
commit c81e1a487b
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/emx/sysutils.pp
View File

@ -863,8 +863,8 @@ asm
mov ax, cx mov ax, cx
stosw stosw
xor eax, eax xor eax, eax
mov al, dl mov al, 10
imul 10 mul dl
shl eax, 16 shl eax, 16
mov al, dh mov al, dh
stosd stosd
@ -987,7 +987,10 @@ end.
{ {
$Log$ $Log$
Revision 1.6 2003-06-06 23:31:55 hajny Revision 1.7 2003-06-06 23:34:08 hajny
* better fix for bug 2518
Revision 1.6 2003/06/06 23:31:55 hajny
* fix for bug 2518 applied to EMX as well * fix for bug 2518 applied to EMX as well
Revision 1.5 2003/04/04 02:02:44 yuri Revision 1.5 2003/04/04 02:02:44 yuri

9
rtl/os2/sysutils.pp
View File

@ -863,8 +863,8 @@ asm
mov ax, cx mov ax, cx
stosw stosw
xor eax, eax xor eax, eax
mov al, dl mov al, 10
imul 10 mul dl
shl eax, 16 shl eax, 16
mov al, dh mov al, dh
stosd stosd
@ -987,7 +987,10 @@ end.
{ {
$Log$ $Log$
Revision 1.28 2003-06-06 23:31:17 hajny Revision 1.29 2003-06-06 23:34:40 hajny
* better fix for bug 2518
Revision 1.28 2003/06/06 23:31:17 hajny
* fix for bug 2518 applied to OS/2 as well * fix for bug 2518 applied to OS/2 as well
Revision 1.27 2003/04/01 15:57:41 peter Revision 1.27 2003/04/01 15:57:41 peter