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

* fixed a wrong prefix

Browse Source
This commit is contained in:
florian 2001-04-08 16:49:42 +00:00
parent faad9460c8
commit 05429e69ce
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/go32v2/fpu.as
View File

@ -1,3 +1,4 @@
/* $Id$ */
/* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */ /* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */
/* Translated from tasm to GAS by C. Sandmann */ /* Translated from tasm to GAS by C. Sandmann */
/* One comment displaced to get it compiled by as.exe directly !!! */ /* One comment displaced to get it compiled by as.exe directly !!! */
@ -39,7 +40,7 @@ __detect_80387: /* returns 1 if 387 (or more), else 0 */
andw $0x0fffa,(%esi) andw $0x0fffa,(%esi)
/* enable invalid operation exception */ /* enable invalid operation exception */
fldcw (%esi) fldcw (%esi)
movw $1,%eax movw $1,%ax
jmp Lexit jmp Lexit
Lno_387: Lno_387:
xorl %eax,%eax xorl %eax,%eax
@ -47,3 +48,9 @@ Lexit:
popl %esi /* Fix stack first */ popl %esi /* Fix stack first */
popl %esi popl %esi
ret ret
/*
$Log$
Revision 1.2 2001-04-08 16:49:42 florian
* fixed a wrong prefix
*/