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

* fix for bug #2518 applied to OS/2 as well

Browse Source
This commit is contained in:
Tomas Hajny 2003-06-06 23:31:17 +00:00
parent 8463bb0b3b
commit 93db149583
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/os2/sysutils.pp
View File

@ -864,6 +864,7 @@ asm
stosw stosw
xor eax, eax xor eax, eax
mov al, dl mov al, dl
imul 10
shl eax, 16 shl eax, 16
mov al, dh mov al, dh
stosd stosd
@ -986,7 +987,10 @@ end.
{ {
$Log$ $Log$
Revision 1.27 2003-04-01 15:57:41 peter Revision 1.28 2003-06-06 23:31:17 hajny
* fix for bug 2518 applied to OS/2 as well
Revision 1.27 2003/04/01 15:57:41 peter
* made THandle platform dependent and unique type * made THandle platform dependent and unique type
Revision 1.26 2003/03/31 02:18:39 yuri Revision 1.26 2003/03/31 02:18:39 yuri