[ro-oslib-commits] OSLib/!OsLib/Source/Core/oslib FPEmulator.swi,1.1,1.2

[<th...@us...>]

Update of /cvsroot/ro-oslib/OSLib/!OsLib/Source/Core/oslib
In directory sc8-pr-cvs1:/tmp/cvs-serv3987/Source/Core/oslib

Modified Files:
	FPEmulator.swi 
Log Message:
Added context manipulation SWIs for FPEmulator. These are available in
version 4.12 and later of FPEmulator and are detailed with the 32 bit
development tools from Castle.


Index: FPEmulator.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/Core/oslib/FPEmulator.swi,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** FPEmulator.swi	9 Mar 2002 10:58:03 -0000	1.1
--- FPEmulator.swi	20 Nov 2002 19:19:25 -0000	1.2
***************
*** 1,10 ****
  TITLE FPEmulator;
  AUTHOR "Jonathan Coxhead, jon...@do..., 29 Apr 1994";
  
  NEEDS OS;
  
! SWI FPEmulator_Version =
!    (  NUMBER 0x40480 "Returns the version number of the Floating Point
!             Emulator",
!       EXIT (R0! = .Int: version)
!    )
--- 1,102 ----
  TITLE FPEmulator;
+ 
  AUTHOR "Jonathan Coxhead, jon...@do..., 29 Apr 1994";
  
  NEEDS OS;
  
! TYPE
!    FPEmulator_Context;
! 
! CONST
!    FPEmulator_NoContext      = FPEmulator_Context: 0 "FPEmulator 4.12+",
!    FPEmulator_DefaultContext = FPEmulator_Context: -1 "FPEmulator 4.12+",
!    FPEmulator_CurrentContext = FPEmulator_Context: -2 "FPEmulator 4.12+";
! 
! TYPE
!    FPEmulator_RegisterDump =
!    .Struct
!    (  .Bits: fpsr,
!       [12] .Byte: f0,
!       [12] .Byte: f1,
!       [12] .Byte: f2,
!       [12] .Byte: f3,
!       [12] .Byte: f4,
!       [12] .Byte: f5,
!       [12] .Byte: f6,
!       [12] .Byte: f7
!    );
! 
! SWI
!    FPEmulator_Version =
!    (  NUMBER 0x40480 "Returns the version number of the Floating Point Emulator",
!       EXIT
!       (  R0! = .Int: version
!    )  ),
! 
!    FPEmulator_DeactivateContext =
!    (  NUMBER 0x40481 "Deactivates the the current floating point context - FPEmulator 4.12+",
!       EXIT
!       (  R0! = FPEmulator_Context: old_context
!    )  ),
! 
!    FPEmulator_ActivateContext =
!    (  NUMBER 0x40482 "Activates a floating point context - FPEmulator 4.12+",
!       ENTRY
!       (  R0 = FPEmulator_Context: new_context
!    )  ),
! 
!    FPEmulator_ChangedContext =
!    (  NUMBER 0x40483 "Change the currrent floating point context - FPEmulator 4.12+",
!       ENTRY
!       (  R0 = FPEmulator_Context: new_context
!       ),
!       EXIT
!       (  R0! = FPEmulator_Context: old_context
!    )  ),
! 
!    FPEmulator_ContextLength =
!    (  NUMBER 0x40484 "Returns the size of a floating point context - FPEmulator 4.12+",
!       EXIT
!       (  R0! = .Int: context_length
!    )  ),
! 
!    FPEmulator_InitContext =
!    (  NUMBER 0x40485 "Initialises a floating point context - FPEmulator 4.12+",
!       ENTRY
!       (  R0 = FPEmulator_Context: context
!    )  ),
! 
!    FPEmulator_ExceptionDump =
!    (  NUMBER 0x40486 "Returns the address of the floating point register dump - FPEmulator 4.12+",
!       EXIT
!       (  R0! = .Ref FPEmulator_RegisterDump: register_dump
!    )  ),
! 
!    FPEmulator_Abort =
!    (  NUMBER 0x40487 "Aborts any incomplete floating point processing - FPEmulator 4.12+",
!       ENTRY
!       (  R0 = FPEmulator_Context: context,
!          R1 = .Int: r12_value,
!          R2 = .Int: pc_value
!       ),
!       EXIT
!       (  R0! = .Ref .Data: frame
!    )  ),
! 
!    FPEmulator_LoadContext =
!    (  NUMBER 0x40488 "Loads a floating point context - FPEmulator 4.12+",
!       ENTRY
!       (  R0 = FPEmulator_Context: context,
!          R1 -> FPEmulator_RegisterDump: register_dump
!    )  ),
! 
!    FPEmulator_SaveContext =
!    (  NUMBER 0x40489 "Saves the contents of a floating point context - FPEmulator 4.12+",
!       ENTRY
!       (  R0 = FPEmulator_Context: context,
!          R1 = .Ref FPEmulator_RegisterDump: register_dump,
!          R2 = .Int: pc_value
!       ),
!       EXIT
!       (  R0! = .Bool: has_exception
!    )  )