From: Juho Snellman <jsnell@iki.fi>
Date: Thu, 11 Jan 2007 20:32:59 +0000 (+0000)
Subject: 1.0.1.21:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=db26c127bc13e8a4e3f56bef25fc18d2ba16aa1d;p=sbcl.git

1.0.1.21:
        Whitespace.
---

diff --git a/src/runtime/win32-os.c b/src/runtime/win32-os.c
index 00e0276..92917e9 100644
--- a/src/runtime/win32-os.c
+++ b/src/runtime/win32-os.c
@@ -336,16 +336,16 @@ handle_exception(EXCEPTION_RECORD *exception_record,
     if (exception_record->ExceptionCode == EXCEPTION_BREAKPOINT) {
         /* Pick off sigtrap case first. */
 
-	extern void sigtrap_handler(int signal, siginfo_t *info, void *context);
+        extern void sigtrap_handler(int signal, siginfo_t *info, void *context);
         /*
          * Unlike some other operating systems, Win32 leaves EIP
          * pointing to the breakpoint instruction.
          */
         context->Eip++;
 
-	sigtrap_handler(0, NULL, context);
+        sigtrap_handler(0, NULL, context);
 
-	return ExceptionContinueExecution;
+        return ExceptionContinueExecution;
     }
     else if (exception_record->ExceptionCode == EXCEPTION_ACCESS_VIOLATION &&
              (is_valid_lisp_addr(fault_address) ||
@@ -397,8 +397,8 @@ handle_exception(EXCEPTION_RECORD *exception_record,
      */
 
     if (internal_errors_enabled) {
-	lispobj context_sap;
-	lispobj exception_record_sap;
+        lispobj context_sap;
+        lispobj exception_record_sap;
 
         /* We're making the somewhat arbitrary decision that having
          * internal errors enabled means that lisp has sufficient
@@ -406,24 +406,24 @@ handle_exception(EXCEPTION_RECORD *exception_record,
          * aren't supposed to happen during cold init or reinit
          * anyway. */
 
-	fake_foreign_function_call(context);
+        fake_foreign_function_call(context);
 
-	/* Allocate the SAP objects while the "interrupts" are still
-	 * disabled. */
-	context_sap = alloc_sap(context);
-	exception_record_sap = alloc_sap(exception_record);
+        /* Allocate the SAP objects while the "interrupts" are still
+         * disabled. */
+        context_sap = alloc_sap(context);
+        exception_record_sap = alloc_sap(exception_record);
 
-	/* The exception system doesn't automatically clear pending
-	 * exceptions, so we lose as soon as we execute any FP
-	 * instruction unless we do this first. */
-	_clearfp();
+        /* The exception system doesn't automatically clear pending
+         * exceptions, so we lose as soon as we execute any FP
+         * instruction unless we do this first. */
+        _clearfp();
 
-	/* Call into lisp to handle things. */
-	funcall2(SymbolFunction(HANDLE_WIN32_EXCEPTION), context_sap,
-		 exception_record_sap);
+        /* Call into lisp to handle things. */
+        funcall2(SymbolFunction(HANDLE_WIN32_EXCEPTION), context_sap,
+                 exception_record_sap);
 
-	/* If Lisp doesn't nlx, we need to put things back. */
-	undo_fake_foreign_function_call(context);
+        /* If Lisp doesn't nlx, we need to put things back. */
+        undo_fake_foreign_function_call(context);
 
         /* FIXME: HANDLE-WIN32-EXCEPTION should be allowed to decline */
         return ExceptionContinueExecution;
diff --git a/version.lisp-expr b/version.lisp-expr
index 988c652..7721cb3 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.1.20"
+"1.0.1.21"