Index: /branches/ia32/level-0/X86/X8632/x8632-io.lisp
===================================================================
--- /branches/ia32/level-0/X86/X8632/x8632-io.lisp	(revision 7989)
+++ /branches/ia32/level-0/X86/X8632/x8632-io.lisp	(revision 7989)
@@ -0,0 +1,14 @@
+(in-package "CCL")
+
+;;; not very smart yet
+
+(defx8632lapfunction %get-errno ()
+  (mark-as-imm temp1)
+  (let ((imm1 temp1))
+    (movl (@ (% :rcontext) x8632::tcr.errno-loc) (% imm1))
+    (movl (@ (% imm1)) (% imm0))
+    (movss (% fpzero) (@ (% imm1)))
+    (negl (% imm0))
+    (box-fixnum imm0 arg_z))
+  (mark-as-node temp1)
+  (single-value-return))