paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 01:50:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* CR0 works now (written using DB to allow to use it we INTEL and ATT output)

Browse Source 
* floating_emulation bit set correctly
This commit is contained in:
pierre 1998-05-25 10:51:27 +00:00
parent 53be2cf842
commit 2719fa44c6
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/i386/cpu.pp
View File

@ -56,21 +56,29 @@ unit cpu;
function cr0 : longint;assembler;
asm
{ mov eax,cr0 }
DB 0Fh,20h,0C0h
{ mov eax,cr0
special registers are not allowed in the assembler
parsers }
end;
function floating_point_emulation : boolean;
begin
{!!!! I don't know currently the position of the EM flag }
floating_point_emulation:=(cr0 and $0)<>0;
{ $4 after Ralf Brown's list }
floating_point_emulation:=(cr0 and $4)<>0;
end;
end.
{
$Log$
Revision 1.2 1998-05-12 10:42:41 peter
Revision 1.3 1998-05-25 10:51:27 pierre
* CR0 works now (written using DB to allow to use it we INTEL and ATT output)
* floating_emulation bit set correctly
Revision 1.2 1998/05/12 10:42:41 peter
* moved getopts to inc/, all supported OS's need argc,argv exported
+ strpas, strlen are now exported in the systemunit
* removed logs