X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fos.h;h=81fec24952f9aac993d0072b249e2f3c38ca1a18;hb=c8218514d751c4d777892b79bbf1ca6597f731c0;hp=45cd2bc1e4b500417cc42e6c4d0ee7dd3f4981b0;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/runtime/os.h b/src/runtime/os.h
index 45cd2bc..81fec24 100644
--- a/src/runtime/os.h
+++ b/src/runtime/os.h
@@ -13,10 +13,6 @@
  * files for more information.
  */
 
-/*
- * $Header$
- */
-
 #if !defined(_OS_H_INCLUDED_)
 
 #define _OS_H_INCLUDED_
@@ -32,11 +28,6 @@
  * os_vm_prot_t
  *   type used for flags for mmap, mprotect, etc.
  *
- * OS_VM_DEFAULT_PAGESIZE
- *   used by core dumping and loading logic (but dunno its exact
- *   definition, in particular why we can't just use getpagesize()
- *   instead)
- *
  * os_vm_address_t
  *   the type used to represent addresses? (dunno why not just void*)
  * os_vm_size_t, os_vm_off_t
@@ -117,15 +108,18 @@ extern boolean is_valid_lisp_addr(os_vm_address_t test);
  * register, of the specified offset, for that context. The offset is
  * defined in the storage class (SC) defined in the Lisp virtual
  * machine (i.e. the file "vm.lisp" for the appropriate architecture). */
-int *os_context_register_addr(os_context_t *context, int offset);
+register_t *os_context_register_addr(os_context_t *context, int offset);
+#ifdef alpha
+register_t *os_context_fpregister_addr(os_context_t *context, int offset);
+#endif
 
 /* Given a signal context, return the address for storage of the
  * program counter for that context. */
-int *os_context_pc_addr(os_context_t *context);
+register_t *os_context_pc_addr(os_context_t *context);
 
 /* Given a signal context, return the address for storage of the
  * system stack pointer for that context. */
-int *os_context_sp_addr(os_context_t *context);
+register_t *os_context_sp_addr(os_context_t *context);
 
 /* Given a signal context, return the address for storage of the
  * signal mask for that context. */