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

diff --git a/src/runtime/os.h b/src/runtime/os.h
index 1d8e436..81fec24 100644
--- a/src/runtime/os.h
+++ b/src/runtime/os.h
@@ -28,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
@@ -113,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. */