Changeset 14605

Timestamp:

Jan 26, 2011, 10:03:09 PM (14 years ago)

Author:

Gary Byers

Message:

Fix typos.

File:

• trunk/source/lisp-kernel/mach-o-image.c (modified) (2 diffs)

trunk/source/lisp-kernel/mach-o-image.c

@@ -752 +752 @@
 
     p = (BytePtr)dlsym(lib,"DYNAMIC_HEAP_END");
-    if (null p) {
+    if (p == NULL) {
       dlclose(lib);
       return 0;
@@ -763 +763 @@
     a = nilreg_area = new_area(q,q+8192,AREA_STATIC);
     nilreg_area->active = nilreg_area->high; /* a little wrong */
-    #ifdef PPC
+#ifdef PPC
 #ifdef PPC64
-        image_nil = ptr_to_lispobj(a->low + (1024*4) + sizeof(lispsymbol) + fulltag_misc);
+    image_nil = ptr_to_lispobj(a->low + (1024*4) + sizeof(lispsymbol) + fulltag_misc);
 #else
-        image_nil = (LispObj)(a->low + 8 + 8 + (1024*4) + fulltag_nil);
+    image_nil = (LispObj)(a->low + 8 + 8 + (1024*4) + fulltag_nil);
 #endif
 #endif
 #ifdef X86
 #ifdef X8664
-        image_nil = (LispObj)(a->low) + (1024*4) + fulltag_nil;
+    image_nil = (LispObj)(a->low) + (1024*4) + fulltag_nil;
 #else
-        image_nil = (LispObj)(a->low) + (1024*4) + fulltag_cons;
+    image_nil = (LispObj)(a->low) + (1024*4) + fulltag_cons;
 #endif
 #endif
 #ifdef ARM
-        image_nil = (LispObj)(a->low) + (1024*4) + fulltag_nil;
-#endif
-        set_nil(image_nil);
+    image_nil = (LispObj)(a->low) + (1024*4) + fulltag_nil;
+#endif
+    set_nil(image_nil);
+      
         
-        
-  }
+