[BACK]Return to locore.S CVS log [TXT][DIR] Up to [cvs.NetBSD.org] / src / sys / arch / i386 / i386

Please note that diffs are not public domain; they are subject to the copyright notices on the relevant files.

Diff for /src/sys/arch/i386/i386/locore.S between version 1.29 and 1.109

version 1.29, 2004/08/05 15:25:29 version 1.109, 2014/01/11 17:05:17
Line 1 
Line 1 
 /*      $NetBSD$        */  /*      $NetBSD$        */
   
 /*-  /*
  * Copyright (c) 1998, 2000 The NetBSD Foundation, Inc.   * Copyright-o-rama!
    */
   
   /*
    * Copyright (c) 2006 Manuel Bouyer.
    *
    * Redistribution and use in source and binary forms, with or without
    * modification, are permitted provided that the following conditions
    * are met:
    * 1. Redistributions of source code must retain the above copyright
    *    notice, this list of conditions and the following disclaimer.
    * 2. Redistributions in binary form must reproduce the above copyright
    *    notice, this list of conditions and the following disclaimer in the
    *    documentation and/or other materials provided with the distribution.
    *
    * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
    * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
    * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
    * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
    * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
    * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
    * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
    * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
    * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
    * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
    *
    */
   
   /*
    * Copyright (c) 2001 Wasabi Systems, Inc.
  * All rights reserved.   * All rights reserved.
  *   *
  * This code is derived from software contributed to The NetBSD Foundation   * Written by Frank van der Linden for Wasabi Systems, Inc.
  * by Charles M. Hannum.  
  *   *
  * Redistribution and use in source and binary forms, with or without   * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions   * modification, are permitted provided that the following conditions
Line 17 
Line 45 
  *    documentation and/or other materials provided with the distribution.   *    documentation and/or other materials provided with the distribution.
  * 3. All advertising materials mentioning features or use of this software   * 3. All advertising materials mentioning features or use of this software
  *    must display the following acknowledgement:   *    must display the following acknowledgement:
  *        This product includes software developed by the NetBSD   *      This product includes software developed for the NetBSD Project by
  *        Foundation, Inc. and its contributors.   *      Wasabi Systems, Inc.
  * 4. Neither the name of The NetBSD Foundation nor the names of its   * 4. The name of Wasabi Systems, Inc. may not be used to endorse
  *    contributors may be used to endorse or promote products derived   *    or promote products derived from this software without specific prior
  *    from this software without specific prior written permission.   *    written permission.
    *
    * THIS SOFTWARE IS PROVIDED BY WASABI SYSTEMS, INC. ``AS IS'' AND
    * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
    * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
    * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL WASABI SYSTEMS, INC
    * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
    * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
    * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
    * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
    * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
    * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
    * POSSIBILITY OF SUCH DAMAGE.
    */
   
   
   /*-
    * Copyright (c) 1998, 2000, 2004, 2006, 2007, 2009 The NetBSD Foundation, Inc.
    * All rights reserved.
    *
    * This code is derived from software contributed to The NetBSD Foundation
    * by Charles M. Hannum, and by Andrew Doran.
    *
    * Redistribution and use in source and binary forms, with or without
    * modification, are permitted provided that the following conditions
    * are met:
    * 1. Redistributions of source code must retain the above copyright
    *    notice, this list of conditions and the following disclaimer.
    * 2. Redistributions in binary form must reproduce the above copyright
    *    notice, this list of conditions and the following disclaimer in the
    *    documentation and/or other materials provided with the distribution.
  *   *
  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS   * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED   * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
Line 70 
Line 128 
  *      @(#)locore.s    7.3 (Berkeley) 5/13/91   *      @(#)locore.s    7.3 (Berkeley) 5/13/91
  */   */
   
 #include "opt_compat_netbsd.h"  #include <machine/asm.h>
   __KERNEL_RCSID(0, "$NetBSD$");
   
 #include "opt_compat_oldboot.h"  #include "opt_compat_oldboot.h"
 #include "opt_cputype.h"  
 #include "opt_ddb.h"  #include "opt_ddb.h"
 #include "opt_ipkdb.h"  #include "opt_modular.h"
 #include "opt_lockdebug.h"  #include "opt_multiboot.h"
 #include "opt_multiprocessor.h"  
 #include "opt_realmem.h"  #include "opt_realmem.h"
 #include "opt_user_ldt.h"  
 #include "opt_vm86.h"  #include "opt_vm86.h"
   #include "opt_xen.h"
   
 #include "npx.h"  #include "npx.h"
 #include "assym.h"  #include "assym.h"
 #include "apm.h"  
 #include "lapic.h"  #include "lapic.h"
 #include "ioapic.h"  #include "ioapic.h"
 #include "ksyms.h"  #include "ksyms.h"
Line 92 
Line 149 
 #include <sys/syscall.h>  #include <sys/syscall.h>
   
 #include <machine/cputypes.h>  #include <machine/cputypes.h>
 #include <machine/param.h>  
 #include <machine/pte.h>  
 #include <machine/segments.h>  #include <machine/segments.h>
 #include <machine/specialreg.h>  #include <machine/specialreg.h>
 #include <machine/trap.h>  #include <machine/trap.h>
 #include <machine/bootinfo.h>  
   
 #if NLAPIC > 0  
 #include <machine/i82489reg.h>  #include <machine/i82489reg.h>
   #include <machine/frameasm.h>
   #include <machine/i82489reg.h>
   #ifndef XEN
   #include <machine/multiboot.h>
 #endif  #endif
   
 /* LINTSTUB: include <sys/types.h> */  
 /* LINTSTUB: include <machine/cpu.h> */  
 /* LINTSTUB: include <sys/systm.h> */  
   
 #include <machine/asm.h>  
   
 #if defined(MULTIPROCESSOR)  
   
 #define SET_CURLWP(lwp,cpu)                             \  
         movl    CPUVAR(SELF),cpu                ;       \  
         movl    lwp,CPUVAR(CURLWP)      ;       \  
         movl    cpu,L_CPU(lwp)  
   
 #else  
   
 #define SET_CURLWP(lwp,tcpu)            movl    lwp,CPUVAR(CURLWP)  
 #define GET_CURLWP(reg)                 movl    CPUVAR(CURLWP),reg  
   
 #endif  
   
 #define GET_CURPCB(reg)                 movl    CPUVAR(CURPCB),reg  
 #define SET_CURPCB(reg)                 movl    reg,CPUVAR(CURPCB)  
   
 #define CLEAR_RESCHED(reg)              movl    reg,CPUVAR(RESCHED)  
   
 /* XXX temporary kluge; these should not be here */  /* XXX temporary kluge; these should not be here */
 /* Get definitions for IOM_BEGIN, IOM_END, and IOM_SIZE */  /* Get definitions for IOM_BEGIN, IOM_END, and IOM_SIZE */
 #include <dev/isa/isareg.h>  #include <dev/isa/isareg.h>
   
   #ifndef XEN
   #define _RELOC(x)       ((x) - KERNBASE)
   #else
   #define _RELOC(x)       ((x))
   #endif /* XEN */
   #define RELOC(x)        _RELOC(_C_LABEL(x))
   
 /* Disallow old names for REALBASEMEM */  #ifdef XEN
 #ifdef BIOSBASEMEM  
 #error BIOSBASEMEM option deprecated; use REALBASEMEM only if memory size reported by latest boot block is incorrect  
 #endif  
   
 /* Disallow old names for REALEXTMEM */  
 #ifdef EXTMEM_SIZE  
 #error EXTMEM_SIZE option deprecated; use REALEXTMEM only if memory size reported by latest boot block is incorrect  
 #endif  
 #ifdef BIOSEXTMEM  
 #error BIOSEXTMEM option deprecated; use REALEXTMEM only if memory size reported by latest boot block is incorrect  
 #endif  
   
 #include <machine/frameasm.h>  
   
   
 #ifdef MULTIPROCESSOR  
 #include <machine/i82489reg.h>  
 #endif  
   
 /*  
  * PTmap is recursive pagemap at top of virtual address space.  
  * Within PTmap, the page directory can be found (third indirection).  
  *  
  * XXX 4 == sizeof pde  
  */  
         .set    _C_LABEL(PTmap),(PDSLOT_PTE << PDSHIFT)  
         .set    _C_LABEL(PTD),(_C_LABEL(PTmap) + PDSLOT_PTE * PAGE_SIZE)  
         .set    _C_LABEL(PTDpde),(_C_LABEL(PTD) + PDSLOT_PTE * 4)  
   
 /*  /*
  * APTmap, APTD is the alternate recursive pagemap.   * Xen guest identifier and loader selection
  * It's used when modifying another process's page tables.  
  *  
  * XXX 4 == sizeof pde  
  */   */
         .set    _C_LABEL(APTmap),(PDSLOT_APTE << PDSHIFT)  .section __xen_guest
         .set    _C_LABEL(APTD),(_C_LABEL(APTmap) + PDSLOT_APTE * PAGE_SIZE)          .ascii  "GUEST_OS=netbsd,GUEST_VER=3.0,XEN_VER=xen-3.0"
         .set    _C_LABEL(APTDpde),(_C_LABEL(PTD) + PDSLOT_APTE * 4)          .ascii  ",VIRT_BASE=0xc0000000" /* KERNBASE */
           .ascii  ",ELF_PADDR_OFFSET=0xc0000000" /* KERNBASE */
           .ascii  ",VIRT_ENTRY=0xc0100000" /* KERNTEXTOFF */
           .ascii  ",HYPERCALL_PAGE=0x00000101"
                   /* (???+HYPERCALL_PAGE_OFFSET)/PAGE_SIZE) */
   #ifdef PAE
           .ascii  ",PAE=yes[extended-cr3]"
   #endif
           .ascii  ",LOADER=generic"
   #if (NKSYMS || defined(DDB) || defined(MODULAR)) && !defined(SYMTAB_SPACE)
           .ascii  ",BSD_SYMTAB=yes"
   #endif
           .byte   0
   #endif  /* XEN */
   
 /*  /*
  * Initialization   * Initialization
  */   */
         .data          .data
   
         .globl  _C_LABEL(cpu)          .globl  _C_LABEL(cputype)
         .globl  _C_LABEL(esym),_C_LABEL(boothowto)          .globl  _C_LABEL(cpuid_level)
         .globl  _C_LABEL(bootinfo),_C_LABEL(atdevbase)          .globl  _C_LABEL(esym)
 #ifdef COMPAT_OLDBOOT          .globl  _C_LABEL(eblob)
         .globl  _C_LABEL(bootdev)          .globl  _C_LABEL(atdevbase)
 #endif          .globl  _C_LABEL(lwp0uarea)
         .globl  _C_LABEL(proc0paddr),_C_LABEL(PTDpaddr)          .globl  _C_LABEL(PDPpaddr)
         .globl  _C_LABEL(biosbasemem),_C_LABEL(biosextmem)  
         .globl  _C_LABEL(gdt)          .globl  _C_LABEL(gdt)
 #ifdef I586_CPU  
         .globl  _C_LABEL(idt)          .globl  _C_LABEL(idt)
 #endif          .globl  _C_LABEL(lapic_tpr)
         .globl  _C_LABEL(lapic_tpr)  
   
 #if NLAPIC > 0  #if NLAPIC > 0
 #ifdef __ELF__  #ifdef __ELF__
         .align  PAGE_SIZE          .align  PAGE_SIZE
Line 200 
Line 214 
         .align  12          .align  12
 #endif  #endif
         .globl _C_LABEL(local_apic), _C_LABEL(lapic_id)          .globl _C_LABEL(local_apic), _C_LABEL(lapic_id)
 _C_LABEL(local_apic):          .type   _C_LABEL(local_apic), @object
   LABEL(local_apic)
         .space  LAPIC_ID          .space  LAPIC_ID
 _C_LABEL(lapic_id):  END(local_apic)
           .type   _C_LABEL(lapic_id), @object
   LABEL(lapic_id)
         .long   0x00000000          .long   0x00000000
         .space  LAPIC_TPRI-(LAPIC_ID+4)          .space  LAPIC_TPRI-(LAPIC_ID+4)
 _C_LABEL(lapic_tpr):  END(lapic_id)
         .space  LAPIC_PPRI-LAPIC_TPRI          .type   _C_LABEL(lapic_tpr), @object
 _C_LABEL(lapic_ppr):  LABEL(lapic_tpr)
           .space  LAPIC_PPRI-LAPIC_TPRI
   END(lapic_tpr)
           .type   _C_LABEL(lapic_ppr), @object
   _C_LABEL(lapic_ppr):
         .space  LAPIC_ISR-LAPIC_PPRI          .space  LAPIC_ISR-LAPIC_PPRI
   END(lapic_ppr)
           .type   _C_LABEL(lapic_isr), @object
 _C_LABEL(lapic_isr):  _C_LABEL(lapic_isr):
         .space  PAGE_SIZE-LAPIC_ISR          .space  PAGE_SIZE-LAPIC_ISR
   END(lapic_isr)
 #else  #else
 _C_LABEL(lapic_tpr):          .type   _C_LABEL(lapic_tpr), @object
   LABEL(lapic_tpr)
         .long 0          .long 0
   END(lapic_tpr)
 #endif  #endif
           .type   _C_LABEL(cputype), @object
   LABEL(cputype)          .long   0       # are we 80486, Pentium, or..
 _C_LABEL(cpu):          .long   0       # are we 386, 386sx, or 486,  END(cputype)
                                         #   or Pentium, or..          .type   _C_LABEL(cpuid_level), @object
 _C_LABEL(esym):         .long   0       # ptr to end of syms  LABEL(cpuid_level)      .long   0
 _C_LABEL(atdevbase):    .long   0       # location of start of iomem in virtual  END(cpuid_level)
 _C_LABEL(proc0paddr):   .long   0          .type   _C_LABEL(atdevbase), @object
 _C_LABEL(PTDpaddr):     .long   0       # paddr of PTD, for libkvm  LABEL(atdevbase)        .long   0       # location of start of iomem in virtual
 #ifndef REALBASEMEM  END(atdevbase)
 _C_LABEL(biosbasemem):  .long   0       # base memory reported by BIOS          .type   _C_LABEL(lwp0uarea), @object
 #else  LABEL(lwp0uarea)        .long   0
 _C_LABEL(biosbasemem):  .long   REALBASEMEM  END(lwp0uarea)
 #endif          .type   _C_LABEL(PDPpaddr), @object
 #ifndef REALEXTMEM  LABEL(PDPpaddr)         .long   0       # paddr of PDP, for libkvm
 _C_LABEL(biosextmem):   .long   0       # extended memory reported by BIOS  END(PDPpaddr)
 #else          .type   _C_LABEL(tablesize), @object
 _C_LABEL(biosextmem):   .long   REALEXTMEM  _C_LABEL(tablesize):    .long   0
 #endif  END(tablesize)
           .size   tmpstk, tmpstk - .
         .space 512          .space 512
 tmpstk:  tmpstk:
   #ifdef XEN
           .align          PAGE_SIZE, 0x0  # Align on page boundary
 #define _RELOC(x)       ((x) - KERNBASE_LOCORE)  LABEL(tmpgdt)
 #define RELOC(x)        _RELOC(_C_LABEL(x))          .space          PAGE_SIZE       # Xen expects a page
   END(tmpgdt)
   #endif /* XEN */
   
         .text          .text
         .globl  _C_LABEL(kernel_text)          .globl  _C_LABEL(kernel_text)
         .set    _C_LABEL(kernel_text),KERNTEXTOFF          .set    _C_LABEL(kernel_text),KERNTEXTOFF
   
         .globl  start  ENTRY(start)
 start:  movw    $0x1234,0x472                   # warm boot  #ifndef XEN
           movw    $0x1234,0x472                   # warm boot
   #if defined(MULTIBOOT)
           jmp     1f
   
         /*          .align  4
          * Load parameters from stack          .globl  Multiboot_Header
          * (howto, [bootdev], bootinfo, esym, basemem, extmem).  _C_LABEL(Multiboot_Header):
          */  #define MULTIBOOT_HEADER_FLAGS  (MULTIBOOT_HEADER_WANT_MEMORY)
         movl    4(%esp),%eax          .long   MULTIBOOT_HEADER_MAGIC
         movl    %eax,RELOC(boothowto)          .long   MULTIBOOT_HEADER_FLAGS
 #ifdef COMPAT_OLDBOOT          .long   -(MULTIBOOT_HEADER_MAGIC + MULTIBOOT_HEADER_FLAGS)
         movl    8(%esp),%eax  
         movl    %eax,RELOC(bootdev)  
 #endif  
         movl    12(%esp),%eax  
   
         testl   %eax, %eax  
         jz      1f  
         movl    (%eax), %ebx            /* number of entries */  
         movl    $RELOC(bootinfo), %edi  
         movl    %ebx, (%edi)  
         addl    $4, %edi  
 2:  
         testl   %ebx, %ebx  
         jz      1f  
         addl    $4, %eax  
         movl    (%eax), %ecx            /* address of entry */  
         pushl   %eax  
         pushl   (%ecx)                  /* len */  
         pushl   %ecx  
         pushl   %edi  
         addl    (%ecx), %edi            /* update dest pointer */  
         cmpl    $_RELOC(_C_LABEL(bootinfo) + BOOTINFO_MAXSIZE), %edi  
         jg      2f  
         call    _C_LABEL(memcpy)  
         addl    $12, %esp  
         popl    %eax  
         subl    $1, %ebx  
         jmp     2b  
 2:      /* cleanup for overflow case */  
         addl    $16, %esp  
         movl    $RELOC(bootinfo), %edi  
         subl    %ebx, (%edi)            /* correct number of entries */  
 1:  1:
           /* Check if we are being executed by a Multiboot-compliant boot
            * loader. */
           cmpl    $MULTIBOOT_INFO_MAGIC,%eax
           jne     1f
   
         movl    16(%esp),%eax          /*
         testl   %eax,%eax           * Indeed, a multiboot-compliant boot loader executed us.  We copy
         jz      1f           * the received Multiboot information structure into kernel's data
         addl    $KERNBASE_LOCORE,%eax           * space to process it later -- after we are relocated.  It will
 1:      movl    %eax,RELOC(esym)           * be safer to run complex C code than doing it at this point.
            */
           pushl   %ebx            # Address of Multiboot information
           call    _C_LABEL(multiboot_pre_reloc)
           addl    $4,%esp
           jmp     2f
   #endif
   
         movl    RELOC(biosextmem),%eax  
         testl   %eax,%eax  
         jnz     1f  
         movl    20(%esp),%eax  
         movl    %eax,RELOC(biosextmem)  
 1:  
         movl    RELOC(biosbasemem),%eax  
         testl   %eax,%eax  
         jnz     1f  
         movl    24(%esp),%eax  
         movl    %eax,RELOC(biosbasemem)  
 1:  1:
           /*
            * At this point, we know that a NetBSD-specific boot loader
            * booted this kernel.  The stack carries the following parameters:
            * (boothowto, [bootdev], bootinfo, esym, biosextmem, biosbasemem),
            * 4 bytes each.
            */
           addl    $4,%esp         # Discard return address to boot loader
           call    _C_LABEL(native_loader)
           addl    $24,%esp
   
   2:
         /* First, reset the PSL. */          /* First, reset the PSL. */
         pushl   $PSL_MBO          pushl   $PSL_MBO
         popfl          popfl
Line 317  start: movw $0x1234,0x472   # warm boot
Line 326  start: movw $0x1234,0x472   # warm boot
         movw    %ax,%fs          movw    %ax,%fs
         movw    %ax,%gs          movw    %ax,%gs
         decl    %eax          decl    %eax
         movl    %eax,RELOC(cpu_info_primary)+CPU_INFO_LEVEL          movl    %eax,RELOC(cpuid_level)
   
         /* Find out our CPU type. */          /* Find out our CPU type. */
   
Line 354  isnx586:
Line 363  isnx586:
          * Don't try cpuid, as Nx586s reportedly don't support the           * Don't try cpuid, as Nx586s reportedly don't support the
          * PSL_ID bit.           * PSL_ID bit.
          */           */
         movl    $CPU_NX586,RELOC(cpu)          movl    $CPU_NX586,RELOC(cputype)
         jmp     2f          jmp     2f
   
 is386:  is386:
         movl    $CPU_386,RELOC(cpu)          movl    $CPU_386,RELOC(cputype)
         jmp     2f          jmp     2f
   
 try486: /* Try to toggle identification flag; does not exist on early 486s. */  try486: /* Try to toggle identification flag; does not exist on early 486s. */
Line 377  try486: /* Try to toggle identification 
Line 386  try486: /* Try to toggle identification 
   
         testl   %eax,%eax          testl   %eax,%eax
         jnz     try586          jnz     try586
 is486:  movl    $CPU_486,RELOC(cpu)  is486:  movl    $CPU_486,RELOC(cputype)
         /*          /*
          * Check Cyrix CPU           * Check Cyrix CPU
          * Cyrix CPUs do not change the undefined flags following           * Cyrix CPUs do not change the undefined flags following
Line 395  is486: movl $CPU_486,RELOC(cpu)
Line 404  is486: movl $CPU_486,RELOC(cpu)
         popfl          popfl
         jmp 2f          jmp 2f
 trycyrix486:  trycyrix486:
         movl    $CPU_6x86,RELOC(cpu)    # set CPU type          movl    $CPU_6x86,RELOC(cputype)        # set CPU type
         /*          /*
          * Check for Cyrix 486 CPU by seeing if the flags change during a           * Check for Cyrix 486 CPU by seeing if the flags change during a
          * divide. This is documented in the Cx486SLC/e SMM Programmer's           * divide. This is documented in the Cx486SLC/e SMM Programmer's
Line 413  trycyrix486:
Line 422  trycyrix486:
         xorl    %ecx,%eax               # are the flags different?          xorl    %ecx,%eax               # are the flags different?
         testl   $0x8d5,%eax             # only check C|PF|AF|Z|N|V          testl   $0x8d5,%eax             # only check C|PF|AF|Z|N|V
         jne     2f                      # yes; must be Cyrix 6x86 CPU          jne     2f                      # yes; must be Cyrix 6x86 CPU
         movl    $CPU_486DLC,RELOC(cpu)  # set CPU type          movl    $CPU_486DLC,RELOC(cputype)      # set CPU type
   
 #ifndef CYRIX_CACHE_WORKS  #ifndef CYRIX_CACHE_WORKS
         /* Disable caching of the ISA hole only. */          /* Disable caching of the ISA hole only. */
Line 477  trycyrix486:
Line 486  trycyrix486:
 try586: /* Use the `cpuid' instruction. */  try586: /* Use the `cpuid' instruction. */
         xorl    %eax,%eax          xorl    %eax,%eax
         cpuid          cpuid
         movl    %eax,RELOC(cpu_info_primary)+CPU_INFO_LEVEL          movl    %eax,RELOC(cpuid_level)
   
 2:  2:
         /*          /*
Line 495  try586: /* Use the `cpuid' instruction. 
Line 504  try586: /* Use the `cpuid' instruction. 
         movl    $_RELOC(tmpstk),%esp    # bootstrap stack end location          movl    $_RELOC(tmpstk),%esp    # bootstrap stack end location
   
 /*  /*
  * Virtual address space of kernel:   * Virtual address space of kernel, without PAE. The page dir is 1 page long.
    *
    * text | data | bss | [syms] | [blobs] | page dir | proc0 kstack | L1 ptp
    *                                      0          1       2      3
    *
    * Virtual address space of kernel, with PAE. We need 4 pages for the page dir
    * and 1 page for the L3.
    * text | data | bss | [syms] | [blobs] | L3 | page dir | proc0 kstack | L1 ptp
    *                                      0    1          5       6      7
    */
   #ifndef PAE
   #define PROC0_PDIR_OFF  0
   #else
   #define PROC0_L3_OFF    0
   #define PROC0_PDIR_OFF  1 * PAGE_SIZE
   #endif
   
   #define PROC0_STK_OFF   (PROC0_PDIR_OFF + PDP_SIZE * PAGE_SIZE)
   #define PROC0_PTP1_OFF  (PROC0_STK_OFF + UPAGES * PAGE_SIZE)
   
   /*
    * fillkpt - Fill in a kernel page table
    *      eax = pte (page frame | control | status)
    *      ebx = page table address
    *      ecx = number of pages to map
  *   *
  * text | data | bss | [syms] | page dir | proc0 kstack   * For PAE, each entry is 8 bytes long: we must set the 4 upper bytes to 0.
  *                            0          1       2      3   * This is done by the first instruction of fillkpt. In the non-PAE case, this
    * instruction just clears the page table entry.
  */   */
 #define PROC0PDIR       ((0)              * PAGE_SIZE)  
 #define PROC0STACK      ((1)              * PAGE_SIZE)  #define fillkpt \
 #define SYSMAP          ((1+UPAGES)       * PAGE_SIZE)  1:      movl    $0,(PDE_SIZE-4)(%ebx)   ;       /* clear bits */        \
 #define TABLESIZE       ((1+UPAGES) * PAGE_SIZE) /* + nkpde * PAGE_SIZE */          movl    %eax,(%ebx)             ;       /* store phys addr */   \
           addl    $PDE_SIZE,%ebx          ;       /* next pte/pde */      \
           addl    $PAGE_SIZE,%eax         ;       /* next phys page */    \
           loop    1b                      ;
   
         /* Find end of kernel image. */          /* Find end of kernel image. */
         movl    $RELOC(end),%edi          movl    $RELOC(end),%edi
 #if (NKSYMS || defined(DDB) || defined(LKM)) && !defined(SYMTAB_SPACE)  
   #if (NKSYMS || defined(DDB) || defined(MODULAR)) && !defined(SYMTAB_SPACE)
         /* Save the symbols (if loaded). */          /* Save the symbols (if loaded). */
         movl    RELOC(esym),%eax          movl    RELOC(esym),%eax
         testl   %eax,%eax          testl   %eax,%eax
         jz      1f          jz      1f
         subl    $KERNBASE_LOCORE,%eax          subl    $KERNBASE,%eax
         movl    %eax,%edi          movl    %eax,%edi
 1:  1:
 #endif  #endif
   
         /* Calculate where to start the bootstrap tables. */          /* Skip over any modules/blobs. */
         movl    %edi,%esi                       # edi = esym ? esym : end          movl    RELOC(eblob),%eax
           testl   %eax,%eax
           jz      1f
           subl    $KERNBASE,%eax
           movl    %eax,%edi
   1:
           /* Compute sizes */
           movl    %edi,%esi
         addl    $PGOFSET,%esi                   # page align up          addl    $PGOFSET,%esi                   # page align up
         andl    $~PGOFSET,%esi          andl    $~PGOFSET,%esi
   
         /*          /* nkptp[1] = (esi + ~L2_FRAME) >> L2_SHIFT + 1; */
          * Calculate the size of the kernel page table directory, and          movl    %esi,%eax
          * how many entries it will have.  Adjust nkpde to the actual          addl    $~L2_FRAME,%eax
          * kernel size automatically.  Account for the bootstrap tables,          shrl    $L2_SHIFT,%eax
          * round up, and add an extra 4MB.          incl    %eax            /* one more ptp for VAs stolen by bootstrap */
          */  1:      movl    %eax,RELOC(nkptp)+1*4
         leal    TABLESIZE+NBPD+PDOFSET(%edi),%eax  
         shrl    $PDSHIFT,%eax          /* tablesize = (PDP_SIZE + UPAGES + nkptp) << PGSHIFT; */
         movl    RELOC(nkpde),%ecx               # get nkpde          addl    $(PDP_SIZE+UPAGES),%eax
         cmpl    %ecx,%eax  #ifdef PAE
         jb      1f          incl    %eax            /* one more page for the L3 PD */
         movl    %eax,%ecx          shll    $PGSHIFT+1,%eax /* PTP tables are twice larger with PAE */
 1:      cmpl    $NKPTP_MIN,%ecx                 # larger than min?  #else
         jge     1f          shll    $PGSHIFT,%eax
         movl    $NKPTP_MIN,%ecx                 # set at min  #endif
         jmp     2f          movl    %eax,RELOC(tablesize)
 1:      cmpl    $NKPTP_MAX,%ecx                 # larger than max?  
         jle     2f          /* ensure that nkptp covers bootstrap tables */
         movl    $NKPTP_MAX,%ecx          addl    %esi,%eax
 2:      movl    %ecx,RELOC(nkpde)          addl    $~L2_FRAME,%eax
           shrl    $L2_SHIFT,%eax
         /* Clear memory for bootstrap tables. */          incl    %eax
         shll    $PGSHIFT,%ecx          cmpl    %eax,RELOC(nkptp)+1*4
         addl    $TABLESIZE,%ecx          jnz     1b
         addl    %esi,%ecx                       # end of tables  
         subl    %edi,%ecx                       # size of tables          /* Clear tables */
         shrl    $2,%ecx          movl    %esi,%edi
         xorl    %eax,%eax          xorl    %eax,%eax
         cld          cld
           movl    RELOC(tablesize),%ecx
           shrl    $2,%ecx
         rep          rep
         stosl          stosl
   
 /*          leal    (PROC0_PTP1_OFF)(%esi), %ebx
  * fillkpt  
  *      eax = pte (page frame | control | status)  
  *      ebx = page table address  
  *      ecx = number of pages to map  
  */  
 #define fillkpt         \  
 1:      movl    %eax,(%ebx)     ; \  
         addl    $PAGE_SIZE,%eax ; /* increment physical address */ \  
         addl    $4,%ebx         ; /* next pte */ \  
         loop    1b              ;  
   
 /*  /*
  * Build initial page tables.   * Build initial page tables.
  */   */
         /* Calculate end of text segment, rounded to a page. */          /*
         leal    (RELOC(etext)+PGOFSET),%edx           * Compute &__data_start - KERNBASE. This can't be > 4G,
            * or we can't deal with it anyway, since we can't load it in
            * 32 bit mode. So use the bottom 32 bits.
            */
           movl    $RELOC(__data_start),%edx
         andl    $~PGOFSET,%edx          andl    $~PGOFSET,%edx
   
         /* Skip over the first 1MB. */          /*
            * Skip the first MB.
            */
         movl    $_RELOC(KERNTEXTOFF),%eax          movl    $_RELOC(KERNTEXTOFF),%eax
         movl    %eax,%ecx          movl    %eax,%ecx
         shrl    $PGSHIFT,%ecx          shrl    $(PGSHIFT-2),%ecx       /* ((n >> PGSHIFT) << 2) for # pdes */
         leal    (SYSMAP)(%esi,%ecx,4),%ebx  #ifdef PAE
           shll    $1,%ecx                 /* pdes are twice larger with PAE */
   #endif
           addl    %ecx,%ebx
   
         /* Map the kernel text read-only. */          /* Map the kernel text read-only. */
         movl    %edx,%ecx          movl    %edx,%ecx
Line 588  try586: /* Use the `cpuid' instruction. 
Line 634  try586: /* Use the `cpuid' instruction. 
   
         /* Map the data, BSS, and bootstrap tables read-write. */          /* Map the data, BSS, and bootstrap tables read-write. */
         leal    (PG_V|PG_KW)(%edx),%eax          leal    (PG_V|PG_KW)(%edx),%eax
         movl    RELOC(nkpde),%ecx          movl    RELOC(tablesize),%ecx
         shll    $PGSHIFT,%ecx  
         addl    $TABLESIZE,%ecx  
         addl    %esi,%ecx                               # end of tables          addl    %esi,%ecx                               # end of tables
         subl    %edx,%ecx                               # subtract end of text          subl    %edx,%ecx                               # subtract end of text
         shrl    $PGSHIFT,%ecx          shrl    $PGSHIFT,%ecx
         fillkpt          fillkpt
   
         /* Map ISA I/O memory. */          /* Map ISA I/O mem (later atdevbase) */
         movl    $(IOM_BEGIN|PG_V|PG_KW/*|PG_N*/),%eax   # having these bits set          movl    $(IOM_BEGIN|PG_V|PG_KW/*|PG_N*/),%eax   # having these bits set
         movl    $(IOM_SIZE>>PGSHIFT),%ecx               # for this many pte s,          movl    $(IOM_SIZE>>PGSHIFT),%ecx               # for this many pte s,
         fillkpt          fillkpt
Line 604  try586: /* Use the `cpuid' instruction. 
Line 648  try586: /* Use the `cpuid' instruction. 
 /*  /*
  * Construct a page table directory.   * Construct a page table directory.
  */   */
         /* Install PDEs for temporary double map of kernel. */          /* Set up top level entries for identity mapping */
         movl    RELOC(nkpde),%ecx                       # for this many pde s,          leal    (PROC0_PDIR_OFF)(%esi),%ebx
         leal    (PROC0PDIR+0*4)(%esi),%ebx              # which is where temp maps!          leal    (PROC0_PTP1_OFF)(%esi),%eax
         leal    (SYSMAP+PG_V|PG_KW)(%esi),%eax          # pte for KPT in proc 0,          orl     $(PG_V|PG_KW), %eax
           movl    RELOC(nkptp)+1*4,%ecx
         fillkpt          fillkpt
   
         /* Map kernel PDEs. */          /* Set up top level entries for actual kernel mapping */
         movl    RELOC(nkpde),%ecx                       # for this many pde s,          leal    (PROC0_PDIR_OFF + L2_SLOT_KERNBASE*PDE_SIZE)(%esi),%ebx
         leal    (PROC0PDIR+PDSLOT_KERN*4)(%esi),%ebx    # kernel pde offset          leal    (PROC0_PTP1_OFF)(%esi),%eax
         leal    (SYSMAP+PG_V|PG_KW)(%esi),%eax          # pte for KPT in proc 0,          orl     $(PG_V|PG_KW), %eax
           movl    RELOC(nkptp)+1*4,%ecx
         fillkpt          fillkpt
   
         /* Install a PDE recursively mapping page directory as a page table! */          /* Install a PDE recursively mapping page directory as a page table! */
         leal    (PROC0PDIR+PG_V|PG_KW)(%esi),%eax       # pte for ptd          leal    (PROC0_PDIR_OFF + PDIR_SLOT_PTE*PDE_SIZE)(%esi),%ebx
         movl    %eax,(PROC0PDIR+PDSLOT_PTE*4)(%esi)     # recursive PD slot          leal    (PROC0_PDIR_OFF)(%esi),%eax
           orl     $(PG_V|PG_KW),%eax
           movl    $PDP_SIZE,%ecx
           fillkpt
   
   #ifdef PAE
           /* Fill in proc0 L3 page with entries pointing to the page dirs */
           leal    (PROC0_L3_OFF)(%esi),%ebx
           leal    (PROC0_PDIR_OFF)(%esi),%eax
           orl     $(PG_V),%eax
           movl    $PDP_SIZE,%ecx
           fillkpt
   
           /* Enable PAE mode */
           movl    %cr4,%eax
           orl     $CR4_PAE,%eax
           movl    %eax,%cr4
   #endif
   
         /* Save phys. addr of PTD, for libkvm. */          /* Save phys. addr of PDP, for libkvm. */
         movl    %esi,RELOC(PTDpaddr)          leal    (PROC0_PDIR_OFF)(%esi),%eax
           movl    %eax,RELOC(PDPpaddr)
   
         /* Load base of page directory and enable mapping. */          /*
            * Startup checklist:
            * 1. Load %cr3 with pointer to PDIR (or L3 PD page for PAE).
            */
         movl    %esi,%eax               # phys address of ptd in proc 0          movl    %esi,%eax               # phys address of ptd in proc 0
         movl    %eax,%cr3               # load ptd addr into mmu          movl    %eax,%cr3               # load ptd addr into mmu
   
           /*
            * 2. Enable paging and the rest of it.
            */
         movl    %cr0,%eax               # get control word          movl    %cr0,%eax               # get control word
                                         # enable paging & NPX emulation                                          # enable paging & NPX emulation
         orl     $(CR0_PE|CR0_PG|CR0_NE|CR0_TS|CR0_EM|CR0_MP),%eax          orl     $(CR0_PE|CR0_PG|CR0_NE|CR0_TS|CR0_EM|CR0_MP|CR0_WP|CR0_AM),%eax
         movl    %eax,%cr0               # and let's page NOW!          movl    %eax,%cr0               # and page NOW!
   
         pushl   $begin                  # jump to high mem          pushl   $begin                  # jump to high mem
         ret          ret
   
 begin:  begin:
         /* Now running relocated at KERNBASE_LOCORE.  Remove double mapping. */          /*
         movl    _C_LABEL(nkpde),%ecx            # for this many pde s,           * We have arrived.
         leal    (PROC0PDIR+0*4)(%esi),%ebx      # which is where temp maps!           * There's no need anymore for the identity mapping in low
         addl    $(KERNBASE_LOCORE), %ebx        # now use relocated address           * memory, remove it.
 1:      movl    $0,(%ebx)           */
         addl    $4,%ebx # next pde          movl    _C_LABEL(nkptp)+1*4,%ecx
           leal    (PROC0_PDIR_OFF)(%esi),%ebx     # old, phys address of PDIR
           addl    $(KERNBASE), %ebx               # new, virtual address of PDIR
   1:      movl    $0,(PDE_SIZE-4)(%ebx)           # Upper bits (for PAE)
           movl    $0,(%ebx)
           addl    $PDE_SIZE,%ebx
         loop    1b          loop    1b
   
         /* Relocate atdevbase. */          /* Relocate atdevbase. */
         movl    _C_LABEL(nkpde),%edx          movl    $KERNBASE,%edx
         shll    $PGSHIFT,%edx          addl    _C_LABEL(tablesize),%edx
         addl    $(TABLESIZE+KERNBASE_LOCORE),%edx  
         addl    %esi,%edx          addl    %esi,%edx
         movl    %edx,_C_LABEL(atdevbase)          movl    %edx,_C_LABEL(atdevbase)
   
         /* Set up bootstrap stack. */          /* Set up bootstrap stack. */
         leal    (PROC0STACK+KERNBASE_LOCORE)(%esi),%eax          leal    (PROC0_STK_OFF+KERNBASE)(%esi),%eax
         movl    %eax,_C_LABEL(proc0paddr)          movl    %eax,_C_LABEL(lwp0uarea)
         leal    (USPACE-FRAMESIZE)(%eax),%esp          leal    (KSTACK_SIZE-FRAMESIZE)(%eax),%esp
         movl    %esi,PCB_CR3(%eax)      # pcb->pcb_cr3          movl    %esi,(KSTACK_SIZE+PCB_CR3)(%eax)        # pcb->pcb_cr3
         xorl    %ebp,%ebp               # mark end of frames          xorl    %ebp,%ebp               # mark end of frames
   
   #if defined(MULTIBOOT)
           /* It is now safe to parse the Multiboot information structure
            * we saved before from C code.  Note that we cannot delay its
            * parsing any more because initgdt (called below) needs to make
            * use of this information. */
           call    _C_LABEL(multiboot_post_reloc)
   #endif
   
         subl    $NGDT*8, %esp           # space for temporary gdt          subl    $NGDT*8, %esp           # space for temporary gdt
         pushl   %esp          pushl   %esp
         call    _C_LABEL(initgdt)          call    _C_LABEL(initgdt)
         addl    $4,%esp          addl    $4,%esp
   
         movl    _C_LABEL(nkpde),%eax          movl    _C_LABEL(tablesize),%eax
         shll    $PGSHIFT,%eax  
         addl    $TABLESIZE,%eax  
         addl    %esi,%eax               # skip past stack and page tables          addl    %esi,%eax               # skip past stack and page tables
   
   #ifdef PAE
           pushl   $0      # init386() expects a 64 bits paddr_t with PAE
   #endif
         pushl   %eax          pushl   %eax
         call    _C_LABEL(init386)       # wire 386 chip for unix operation          call    _C_LABEL(init386)       # wire 386 chip for unix operation
         addl    $4+NGDT*8,%esp          # pop temporary gdt          addl    $PDE_SIZE,%esp          # pop paddr_t
           addl    $NGDT*8,%esp            # pop temporary gdt
   
 #ifdef SAFARI_FIFO_HACK  #ifdef SAFARI_FIFO_HACK
         movb    $5,%al          movb    $5,%al
Line 690  begin:
Line 775  begin:
 #endif /* SAFARI_FIFO_HACK */  #endif /* SAFARI_FIFO_HACK */
   
         call    _C_LABEL(main)          call    _C_LABEL(main)
   #else /* XEN */
           /* First, reset the PSL. */
           pushl   $PSL_MBO
           popfl
   
           cld
           movl    %esp, %ebx              # save start of available space
           movl    $_RELOC(tmpstk),%esp    # bootstrap stack end location
   
           /* Clear BSS. */
           xorl    %eax,%eax
           movl    $RELOC(__bss_start),%edi
           movl    $RELOC(_end),%ecx
           subl    %edi,%ecx
           rep stosb
   
           /* Copy the necessary stuff from start_info structure. */
           /* We need to copy shared_info early, so that sti/cli work */
           movl    $RELOC(start_info_union),%edi
           movl    $128,%ecx
           rep movsl
   
           /* Clear segment registers; always null in proc0. */
           xorl    %eax,%eax
           movw    %ax,%fs
           movw    %ax,%gs
           decl    %eax
           movl    %eax,RELOC(cpuid_level)
   
           xorl    %eax,%eax
           cpuid
           movl    %eax,RELOC(cpuid_level)
   
           /*
            * Use a temp page. We'll re- add it to uvm(9) once we're
            * done using it.
            */
           movl    $RELOC(tmpgdt), %eax
           pushl   %eax            # start of temporary gdt
           call    _C_LABEL(initgdt)
           addl    $4,%esp
   
           call    xen_pmap_bootstrap
   
           /*
            * First avail returned by xen_pmap_bootstrap in %eax
            */
           movl    %eax, %esi;
           movl    %esi, _C_LABEL(lwp0uarea)
   
           /* Set up bootstrap stack. */
           leal    (KSTACK_SIZE-FRAMESIZE)(%eax),%esp
           xorl    %ebp,%ebp               # mark end of frames
   
           addl    $USPACE, %esi
           subl    $KERNBASE, %esi         #init386 want a physical address
   
   #ifdef PAE
           pushl   $0      # init386() expects a 64 bits paddr_t with PAE
   #endif
           pushl   %esi
           call    _C_LABEL(init386)       # wire 386 chip for unix operation
           addl    $PDE_SIZE,%esp          # pop paddr_t
           call    _C_LABEL(main)
   #endif /* XEN */
   END(start)
   
   #if defined(XEN)
   /* space for the hypercall call page */
   #define HYPERCALL_PAGE_OFFSET 0x1000
   .org HYPERCALL_PAGE_OFFSET
   ENTRY(hypercall_page)
   .skip 0x1000
   END(hypercall_page)
   
   /*
    * void lgdt_finish(void);
    * Finish load a new GDT pointer (do any necessary cleanup).
    * XXX It's somewhat questionable whether reloading all the segment registers
    * is necessary, since the actual descriptor data is not changed except by
    * process creation and exit, both of which clean up via task switches.  OTOH,
    * this only happens at run time when the GDT is resized.
    */
   /* LINTSTUB: Func: void lgdt_finish(void) */
   NENTRY(lgdt_finish)
           movl    $GSEL(GDATA_SEL, SEL_KPL),%eax
           movw    %ax,%ds
           movw    %ax,%es
           movw    %ax,%gs
           movw    %ax,%ss
           movl    $GSEL(GCPU_SEL, SEL_KPL),%eax
           movw    %ax,%fs
           /* Reload code selector by doing intersegment return. */
           popl    %eax
           pushl   $GSEL(GCODE_SEL, SEL_KPL)
           pushl   %eax
           lret
   END(lgdt_finish)
   
   #endif /* XEN */
   
 /*  /*
  * void proc_trampoline(void);   * void lwp_trampoline(void);
    *
  * This is a trampoline function pushed onto the stack of a newly created   * This is a trampoline function pushed onto the stack of a newly created
  * process in order to do some additional setup.  The trampoline is entered by   * process in order to do some additional setup.  The trampoline is entered by
  * cpu_switch()ing to the process, so we abuse the callee-saved registers used   * cpu_switchto()ing to the process, so we abuse the callee-saved
  * by cpu_switch() to store the information about the stub to call.   * registers used by cpu_switchto() to store the information about the
    * stub to call.
  * NOTE: This function does not have a normal calling sequence!   * NOTE: This function does not have a normal calling sequence!
  */   */
 /* LINTSTUB: Func: void proc_trampoline(void) */  NENTRY(lwp_trampoline)
 NENTRY(proc_trampoline)          movl    %ebp,%edi       /* for .Lsyscall_checkast */
 #ifdef MULTIPROCESSOR          xorl    %ebp,%ebp
         call    _C_LABEL(proc_trampoline_mp)          pushl   %edi
 #endif          pushl   %eax
         movl    $IPL_NONE,CPUVAR(ILEVEL)          call    _C_LABEL(lwp_startup)
           addl    $8,%esp
         pushl   %ebx          pushl   %ebx
         call    *%esi          call    *%esi
         addl    $4,%esp          addl    $4,%esp
         DO_DEFERRED_SWITCH(%eax)          jmp     .Lsyscall_checkast
         INTRFASTEXIT  
         /* NOTREACHED */          /* NOTREACHED */
   END(lwp_trampoline)
   
 /*****************************************************************************/  
 #ifdef COMPAT_16  
 /*  /*
  * Signal trampoline; copied to top of user stack.   * sigcode()
    *
    * Signal trampoline; copied to top of user stack.  Used only for
    * compatibility with old releases of NetBSD.
  */   */
 /* LINTSTUB: Var: char sigcode[1], esigcode[1]; */  
 NENTRY(sigcode)  NENTRY(sigcode)
         /*          /*
          * Handler has returned here as if we called it.  The sigcontext           * Handler has returned here as if we called it.  The sigcontext
Line 732  NENTRY(sigcode)
Line 920  NENTRY(sigcode)
         int     $0x80                   # exit if sigreturn fails          int     $0x80                   # exit if sigreturn fails
         .globl  _C_LABEL(esigcode)          .globl  _C_LABEL(esigcode)
 _C_LABEL(esigcode):  _C_LABEL(esigcode):
 #endif  END(sigcode)
   
 /*****************************************************************************/  
   
 /*  /*
  * The following primitives are used to fill and copy regions of memory.   * int setjmp(label_t *)
    *
    * Used primarily by DDB.
  */   */
   ENTRY(setjmp)
           movl    4(%esp),%eax
           movl    %ebx,(%eax)             # save ebx
           movl    %esp,4(%eax)            # save esp
           movl    %ebp,8(%eax)            # save ebp
           movl    %esi,12(%eax)           # save esi
           movl    %edi,16(%eax)           # save edi
           movl    (%esp),%edx             # get rta
           movl    %edx,20(%eax)           # save eip
           xorl    %eax,%eax               # return 0
           ret
   END(setjmp)
   
 /*  /*
  * XXX No section 9 man page for fillw.   * int longjmp(label_t *)
  * fillw seems to be very sparsely used (only in pccons it seems.)   *
  * One wonders if it couldn't be done without.   * Used primarily by DDB.
  * -- Perry Metzger, May 7, 2001  
  */  
 /*  
  * void fillw(short pattern, void *addr, size_t len);  
  * Write len copies of pattern at addr.  
  */   */
 /* LINTSTUB: Func: void fillw(short pattern, void *addr, size_t len) */  
 ENTRY(fillw)  
         pushl   %edi  
         movl    8(%esp),%eax  
         movl    12(%esp),%edi  
         movw    %ax,%cx  
         rorl    $16,%eax  
         movw    %cx,%ax  
         cld  
         movl    16(%esp),%ecx  
         shrl    %ecx                    # do longwords  
         rep  
         stosl  
         movl    16(%esp),%ecx  
         andl    $1,%ecx                 # do remainder  
         rep  
         stosw  
         popl    %edi  
         ret  
   
 /*  
  * int kcopy(const void *from, void *to, size_t len);  
  * Copy len bytes, abort on fault.  
  */  
 /* LINTSTUB: Func: int kcopy(const void *from, void *to, size_t len) */  
 ENTRY(kcopy)  
         pushl   %esi  
         pushl   %edi  
         GET_CURPCB(%eax)                # load curpcb into eax and set on-fault  
         pushl   PCB_ONFAULT(%eax)  
         movl    $_C_LABEL(kcopy_fault), PCB_ONFAULT(%eax)  
   
         movl    16(%esp),%esi  
         movl    20(%esp),%edi  
         movl    24(%esp),%ecx  
         movl    %edi,%eax  
         subl    %esi,%eax  
         cmpl    %ecx,%eax               # overlapping?  
         jb      1f  
         cld                             # nope, copy forward  
         shrl    $2,%ecx                 # copy by 32-bit words  
         rep  
         movsl  
         movl    24(%esp),%ecx  
         andl    $3,%ecx                 # any bytes left?  
         rep  
         movsb  
   
         GET_CURPCB(%edx)                # XXX save curpcb?  
         popl    PCB_ONFAULT(%edx)  
         popl    %edi  
         popl    %esi  
         xorl    %eax,%eax  
         ret  
   
         ALIGN_TEXT  
 1:      addl    %ecx,%edi               # copy backward  
         addl    %ecx,%esi  
         std  
         andl    $3,%ecx                 # any fractional bytes?  
         decl    %edi  
         decl    %esi  
         rep  
         movsb  
         movl    24(%esp),%ecx           # copy remainder by 32-bit words  
         shrl    $2,%ecx  
         subl    $3,%esi  
         subl    $3,%edi  
         rep  
         movsl  
         cld  
   
         GET_CURPCB(%edx)  
         popl    PCB_ONFAULT(%edx)  
         popl    %edi  
         popl    %esi  
         xorl    %eax,%eax  
         ret  
   
 /*****************************************************************************/  
   
 /*  
  * The following primitives are used to copy data in and out of the user's  
  * address space.  
  */  
   
 /*  
  * Default to the lowest-common-denominator.  We will improve it  
  * later.  
  */  
 #if defined(I386_CPU)  
 #define DEFAULT_COPYOUT         _C_LABEL(i386_copyout)  
 #define DEFAULT_COPYIN          _C_LABEL(i386_copyin)  
 #elif defined(I486_CPU)  
 #define DEFAULT_COPYOUT         _C_LABEL(i486_copyout)  
 #define DEFAULT_COPYIN          _C_LABEL(i386_copyin)  
 #elif defined(I586_CPU)  
 #define DEFAULT_COPYOUT         _C_LABEL(i486_copyout)  /* XXX */  
 #define DEFAULT_COPYIN          _C_LABEL(i386_copyin)   /* XXX */  
 #elif defined(I686_CPU)  
 #define DEFAULT_COPYOUT         _C_LABEL(i486_copyout)  /* XXX */  
 #define DEFAULT_COPYIN          _C_LABEL(i386_copyin)   /* XXX */  
 #endif  
   
         .data  
   
         .globl  _C_LABEL(copyout_func)  
 _C_LABEL(copyout_func):  
         .long   DEFAULT_COPYOUT  
   
         .globl  _C_LABEL(copyin_func)  
 _C_LABEL(copyin_func):  
         .long   DEFAULT_COPYIN  
   
         .text  
   
 /*  
  * int copyout(const void *from, void *to, size_t len);  
  * Copy len bytes into the user's address space.  
  * see copyout(9)  
  */  
 /* LINTSTUB: Func: int copyout(const void *kaddr, void *uaddr, size_t len) */  
 ENTRY(copyout)  
         DO_DEFERRED_SWITCH(%eax)  
         jmp     *_C_LABEL(copyout_func)  
   
 #if defined(I386_CPU)  
 /* LINTSTUB: Func: int i386_copyout(const void *kaddr, void *uaddr, size_t len) */  
 ENTRY(i386_copyout)  
         pushl   %esi  
         pushl   %edi  
         pushl   $0  
   
         movl    16(%esp),%esi  
         movl    20(%esp),%edi  
         movl    24(%esp),%eax  
   
         /*  
          * We check that the end of the destination buffer is not past the end  
          * of the user's address space.  If it's not, then we only need to  
          * check that each page is writable.  The 486 will do this for us; the  
          * 386 will not.  (We assume that pages in user space that are not  
          * writable by the user are not writable by the kernel either.)  
          */  
         movl    %edi,%edx  
         addl    %eax,%edx  
         jc      _C_LABEL(copy_efault)  
         cmpl    $VM_MAXUSER_ADDRESS,%edx  
         ja      _C_LABEL(copy_efault)  
   
         testl   %eax,%eax               # anything to do?  
         jz      3f  
   
         /*  
          * We have to check each PTE for (write) permission, since the CPU  
          * doesn't do it for us.  
          */  
   
         /* Compute number of pages. */  
         movl    %edi,%ecx  
         andl    $PGOFSET,%ecx  
         addl    %eax,%ecx  
         decl    %ecx  
         shrl    $PGSHIFT,%ecx  
   
         /* Compute PTE offset for start address. */  
         shrl    $PGSHIFT,%edi  
   
         GET_CURPCB(%edx)  
         movl    $2f,PCB_ONFAULT(%edx)  
   
 1:      /* Check PTE for each page. */  
         testb   $PG_RW,_C_LABEL(PTmap)(,%edi,4)  
         jz      2f  
   
 4:      incl    %edi  
         decl    %ecx  
         jns     1b  
   
         movl    20(%esp),%edi  
         movl    24(%esp),%eax  
         jmp     3f  
   
 2:      /* Simulate a trap. */  
         pushl   %ecx  
         movl    %edi,%eax  
         shll    $PGSHIFT,%eax  
         pushl   %eax  
         call    _C_LABEL(trapwrite)     # trapwrite(addr)  
         addl    $4,%esp                 # pop argument  
         popl    %ecx  
         testl   %eax,%eax               # if not ok, return EFAULT  
         jz      4b  
         jmp     _C_LABEL(copy_efault)  
   
 3:      GET_CURPCB(%edx)  
         movl    $_C_LABEL(copy_fault),PCB_ONFAULT(%edx)  
   
         /* bcopy(%esi, %edi, %eax); */  
         cld  
         movl    %eax,%ecx  
         shrl    $2,%ecx  
         rep  
         movsl  
         movl    %eax,%ecx  
         andl    $3,%ecx  
         rep  
         movsb  
   
         popl    PCB_ONFAULT(%edx)  
         popl    %edi  
         popl    %esi  
         xorl    %eax,%eax  
         ret  
 #endif /* I386_CPU */  
   
 #if defined(I486_CPU) || defined(I586_CPU) || defined(I686_CPU)  
 /* LINTSTUB: Func: int i486_copyout(const void *kaddr, void *uaddr, size_t len) */  
 ENTRY(i486_copyout)  
         pushl   %esi  
         pushl   %edi  
         pushl   $0  
   
         movl    16(%esp),%esi  
         movl    20(%esp),%edi  
         movl    24(%esp),%eax  
   
         /*  
          * We check that the end of the destination buffer is not past the end  
          * of the user's address space.  
          */  
         movl    %edi,%edx  
         addl    %eax,%edx  
         jc      _C_LABEL(copy_efault)  
         cmpl    $VM_MAXUSER_ADDRESS,%edx  
         ja      _C_LABEL(copy_efault)  
   
         GET_CURPCB(%edx)  
         movl    $_C_LABEL(copy_fault),PCB_ONFAULT(%edx)  
   
         /* bcopy(%esi, %edi, %eax); */  
         cld  
         movl    %eax,%ecx  
         shrl    $2,%ecx  
         rep  
         movsl  
         movl    %eax,%ecx  
         andl    $3,%ecx  
         rep  
         movsb  
   
         popl    PCB_ONFAULT(%edx)  
         popl    %edi  
         popl    %esi  
         xorl    %eax,%eax  
         ret  
 #endif /* I486_CPU || I586_CPU || I686_CPU */  
   
 /*  
  * int copyin(const void *from, void *to, size_t len);  
  * Copy len bytes from the user's address space.  
  * see copyin(9)  
  */  
 /* LINTSTUB: Func: int copyin(const void *uaddr, void *kaddr, size_t len) */  
 ENTRY(copyin)  
         DO_DEFERRED_SWITCH(%eax)  
         jmp     *_C_LABEL(copyin_func)  
   
 #if defined(I386_CPU) || defined(I486_CPU) || defined(I586_CPU) || \  
     defined(I686_CPU)  
 /* LINTSTUB: Func: int i386_copyin(const void *uaddr, void *kaddr, size_t len) */  
 ENTRY(i386_copyin)  
         pushl   %esi  
         pushl   %edi  
         GET_CURPCB(%eax)  
         pushl   $0  
         movl    $_C_LABEL(copy_fault),PCB_ONFAULT(%eax)  
   
         movl    16(%esp),%esi  
         movl    20(%esp),%edi  
         movl    24(%esp),%eax  
   
         /*  
          * We check that the end of the destination buffer is not past the end  
          * of the user's address space.  If it's not, then we only need to  
          * check that each page is readable, and the CPU will do that for us.  
          */  
         movl    %esi,%edx  
         addl    %eax,%edx  
         jc      _C_LABEL(copy_efault)  
         cmpl    $VM_MAXUSER_ADDRESS,%edx  
         ja      _C_LABEL(copy_efault)  
   
         /* bcopy(%esi, %edi, %eax); */  
         cld  
         movl    %eax,%ecx  
         shrl    $2,%ecx  
         rep  
         movsl  
         movl    %eax,%ecx  
         andl    $3,%ecx  
         rep  
         movsb  
   
         GET_CURPCB(%edx)  
         popl    PCB_ONFAULT(%edx)  
         popl    %edi  
         popl    %esi  
         xorl    %eax,%eax  
         ret  
 #endif /* I386_CPU || I486_CPU || I586_CPU || I686_CPU */  
   
 /* LINTSTUB: Ignore */  
 NENTRY(copy_efault)  
         movl    $EFAULT,%eax  
   
 /*  
  * kcopy_fault is used by kcopy and copy_fault is used by copyin/out.  
  *  
  * they're distinguished for lazy pmap switching.  see trap().  
  */  
 /* LINTSTUB: Ignore */  
 NENTRY(kcopy_fault)  
         GET_CURPCB(%edx)  
         popl    PCB_ONFAULT(%edx)  
         popl    %edi  
         popl    %esi  
         ret  
   
 /* LINTSTUB: Ignore */  
 NENTRY(copy_fault)  
         GET_CURPCB(%edx)  
         popl    PCB_ONFAULT(%edx)  
         popl    %edi  
         popl    %esi  
         ret  
   
 /*  
  * int copyoutstr(const void *from, void *to, size_t maxlen, size_t *lencopied);  
  * Copy a NUL-terminated string, at most maxlen characters long, into the  
  * user's address space.  Return the number of characters copied (including the  
  * NUL) in *lencopied.  If the string is too long, return ENAMETOOLONG; else  
  * return 0 or EFAULT.  
  * see copyoutstr(9)  
  */  
 /* LINTSTUB: Func: int copyoutstr(const void *kaddr, void *uaddr, size_t len, size_t *done) */  
 ENTRY(copyoutstr)  
         pushl   %esi  
         pushl   %edi  
   
         DO_DEFERRED_SWITCH(%eax)  
   
         movl    12(%esp),%esi           # esi = from  
         movl    16(%esp),%edi           # edi = to  
         movl    20(%esp),%edx           # edx = maxlen  
   
 #if defined(I386_CPU)  
 #if defined(I486_CPU) || defined(I586_CPU) || defined(I686_CPU)  
         cmpl    $CPUCLASS_386,_C_LABEL(cpu_class)  
         jne     5f  
 #endif /* I486_CPU || I586_CPU || I686_CPU */  
   
         /* Compute number of bytes in first page. */  
         movl    %edi,%eax  
         andl    $PGOFSET,%eax  
         movl    $PAGE_SIZE,%ecx  
         subl    %eax,%ecx               # ecx = PAGE_SIZE - (src % PAGE_SIZE)  
   
         GET_CURPCB(%eax)  
         movl    $6f,PCB_ONFAULT(%eax)  
   
 1:      /*  
          * Once per page, check that we are still within the bounds of user  
          * space, and check for a write fault.  
          */  
         cmpl    $VM_MAXUSER_ADDRESS,%edi  
         jae     _C_LABEL(copystr_efault)  
   
         /* Compute PTE offset. */  
         movl    %edi,%eax  
         shrl    $PGSHIFT,%eax           # calculate pte address  
   
         testb   $PG_RW,_C_LABEL(PTmap)(,%eax,4)  
         jnz     2f  
   
 6:      /* Simulate a trap. */  
         pushl   %edx  
         pushl   %edi  
         call    _C_LABEL(trapwrite)     # trapwrite(addr)  
         addl    $4,%esp                 # clear argument from stack  
         popl    %edx  
         testl   %eax,%eax  
         jnz     _C_LABEL(copystr_efault)  
   
 2:      /* Copy up to end of this page. */  
         subl    %ecx,%edx               # predecrement total count  
         jnc     3f  
         addl    %edx,%ecx               # ecx += (edx - ecx) = edx  
         xorl    %edx,%edx  
   
 3:      decl    %ecx  
         js      4f  
         lodsb  
         stosb  
         testb   %al,%al  
         jnz     3b  
   
         /* Success -- 0 byte reached. */  
         addl    %ecx,%edx               # add back residual for this page  
         xorl    %eax,%eax  
         jmp     copystr_return  
   
 4:      /* Go to next page, if any. */  
         movl    $PAGE_SIZE,%ecx  
         testl   %edx,%edx  
         jnz     1b  
   
         /* edx is zero -- return ENAMETOOLONG. */  
         movl    $ENAMETOOLONG,%eax  
         jmp     copystr_return  
 #endif /* I386_CPU */  
   
 #if defined(I486_CPU) || defined(I586_CPU) || defined(I686_CPU)  
 5:      GET_CURPCB(%eax)  
         movl    $_C_LABEL(copystr_fault),PCB_ONFAULT(%eax)  
         /*  
          * Get min(%edx, VM_MAXUSER_ADDRESS-%edi).  
          */  
         movl    $VM_MAXUSER_ADDRESS,%eax  
         subl    %edi,%eax  
         cmpl    %edx,%eax  
         jae     1f  
         movl    %eax,%edx  
         movl    %eax,20(%esp)  
   
 1:      incl    %edx  
         cld  
   
 1:      decl    %edx  
         jz      2f  
         lodsb  
         stosb  
         testb   %al,%al  
         jnz     1b  
   
         /* Success -- 0 byte reached. */  
         decl    %edx  
         xorl    %eax,%eax  
         jmp     copystr_return  
   
 2:      /* edx is zero -- return EFAULT or ENAMETOOLONG. */  
         cmpl    $VM_MAXUSER_ADDRESS,%edi  
         jae     _C_LABEL(copystr_efault)  
         movl    $ENAMETOOLONG,%eax  
         jmp     copystr_return  
 #endif /* I486_CPU || I586_CPU || I686_CPU */  
   
 /*  
  * int copyinstr(const void *from, void *to, size_t maxlen, size_t *lencopied);  
  * Copy a NUL-terminated string, at most maxlen characters long, from the  
  * user's address space.  Return the number of characters copied (including the  
  * NUL) in *lencopied.  If the string is too long, return ENAMETOOLONG; else  
  * return 0 or EFAULT.  
  * see copyinstr(9)  
  */  
 /* LINTSTUB: Func: int copyinstr(const void *uaddr, void *kaddr, size_t len, size_t *done) */  
 ENTRY(copyinstr)  
         pushl   %esi  
         pushl   %edi  
   
         DO_DEFERRED_SWITCH(%eax)  
   
         GET_CURPCB(%ecx)  
         movl    $_C_LABEL(copystr_fault),PCB_ONFAULT(%ecx)  
   
         movl    12(%esp),%esi           # %esi = from  
         movl    16(%esp),%edi           # %edi = to  
         movl    20(%esp),%edx           # %edx = maxlen  
   
         /*  
          * Get min(%edx, VM_MAXUSER_ADDRESS-%esi).  
          */  
         movl    $VM_MAXUSER_ADDRESS,%eax  
         subl    %esi,%eax  
         cmpl    %edx,%eax  
         jae     1f  
         movl    %eax,%edx  
         movl    %eax,20(%esp)  
   
 1:      incl    %edx  
         cld  
   
 1:      decl    %edx  
         jz      2f  
         lodsb  
         stosb  
         testb   %al,%al  
         jnz     1b  
   
         /* Success -- 0 byte reached. */  
         decl    %edx  
         xorl    %eax,%eax  
         jmp     copystr_return  
   
 2:      /* edx is zero -- return EFAULT or ENAMETOOLONG. */  
         cmpl    $VM_MAXUSER_ADDRESS,%esi  
         jae     _C_LABEL(copystr_efault)  
         movl    $ENAMETOOLONG,%eax  
         jmp     copystr_return  
   
 /* LINTSTUB: Ignore */  
 NENTRY(copystr_efault)  
         movl    $EFAULT,%eax  
   
 /* LINTSTUB: Ignore */  
 NENTRY(copystr_fault)  
 copystr_return:  
         /* Set *lencopied and return %eax. */  
         GET_CURPCB(%ecx)  
         movl    $0,PCB_ONFAULT(%ecx)  
         movl    20(%esp),%ecx  
         subl    %edx,%ecx  
         movl    24(%esp),%edx  
         testl   %edx,%edx  
         jz      8f  
         movl    %ecx,(%edx)  
   
 8:      popl    %edi  
         popl    %esi  
         ret  
   
 /*  
  * int copystr(const void *from, void *to, size_t maxlen, size_t *lencopied);  
  * Copy a NUL-terminated string, at most maxlen characters long.  Return the  
  * number of characters copied (including the NUL) in *lencopied.  If the  
  * string is too long, return ENAMETOOLONG; else return 0.  
  * see copystr(9)  
  */  
 /* LINTSTUB: Func: int copystr(const void *kfaddr, void *kdaddr, size_t len, size_t *done) */  
 ENTRY(copystr)  
         pushl   %esi  
         pushl   %edi  
   
         movl    12(%esp),%esi           # esi = from  
         movl    16(%esp),%edi           # edi = to  
         movl    20(%esp),%edx           # edx = maxlen  
         incl    %edx  
         cld  
   
 1:      decl    %edx  
         jz      4f  
         lodsb  
         stosb  
         testb   %al,%al  
         jnz     1b  
   
         /* Success -- 0 byte reached. */  
         decl    %edx  
         xorl    %eax,%eax  
         jmp     6f  
   
 4:      /* edx is zero -- return ENAMETOOLONG. */  
         movl    $ENAMETOOLONG,%eax  
   
 6:      /* Set *lencopied and return %eax. */  
         movl    20(%esp),%ecx  
         subl    %edx,%ecx  
         movl    24(%esp),%edx  
         testl   %edx,%edx  
         jz      7f  
         movl    %ecx,(%edx)  
   
 7:      popl    %edi  
         popl    %esi  
         ret  
   
 /*  
  * long fuword(const void *uaddr);  
  * Fetch an int from the user's address space.  
  * see fuword(9)  
  */  
 /* LINTSTUB: Func: long fuword(const void *base) */  
 ENTRY(fuword)  
         DO_DEFERRED_SWITCH(%eax)  
         movl    4(%esp),%edx  
         cmpl    $VM_MAXUSER_ADDRESS-4,%edx  
         ja      _C_LABEL(fusuaddrfault)  
         GET_CURPCB(%ecx)  
         movl    $_C_LABEL(fusufault),PCB_ONFAULT(%ecx)  
         movl    (%edx),%eax  
         movl    $0,PCB_ONFAULT(%ecx)  
         ret  
   
 /*  
  * int fusword(const void *uaddr);  
  * Fetch a short from the user's address space.  
  * see fusword(9)  
  */  
 /* LINTSTUB: Func: int fusword(const void *base) */  
 ENTRY(fusword)  
         DO_DEFERRED_SWITCH(%eax)  
         movl    4(%esp),%edx  
         cmpl    $VM_MAXUSER_ADDRESS-2,%edx  
         ja      _C_LABEL(fusuaddrfault)  
         GET_CURPCB(%ecx)  
         movl    $_C_LABEL(fusufault),PCB_ONFAULT(%ecx)  
         movzwl  (%edx),%eax  
         movl    $0,PCB_ONFAULT(%ecx)  
         ret  
   
 /*  
  * int fuswintr(const void *uaddr);  
  * Fetch a short from the user's address space.  Can be called during an  
  * interrupt.  
  * see fuswintr(9)  
  */  
 /* LINTSTUB: Func: int fuswintr(const void *base) */  
 ENTRY(fuswintr)  
         cmpl    $TLBSTATE_VALID, CPUVAR(TLBSTATE)  
         jnz     _C_LABEL(fusuaddrfault)  
         movl    4(%esp),%edx  
         cmpl    $VM_MAXUSER_ADDRESS-2,%edx  
         ja      _C_LABEL(fusuaddrfault)  
         movl    CPUVAR(CURLWP),%ecx  
         movl    L_ADDR(%ecx),%ecx  
         movl    $_C_LABEL(fusubail),PCB_ONFAULT(%ecx)  
         movzwl  (%edx),%eax  
         movl    $0,PCB_ONFAULT(%ecx)  
         ret  
   
 /*  
  * int fubyte(const void *uaddr);  
  * Fetch a byte from the user's address space.  
  * see fubyte(9)  
  */  
 /* LINTSTUB: Func: int fubyte(const void *base) */  
 ENTRY(fubyte)  
         DO_DEFERRED_SWITCH(%eax)  
         movl    4(%esp),%edx  
         cmpl    $VM_MAXUSER_ADDRESS-1,%edx  
         ja      _C_LABEL(fusuaddrfault)  
         GET_CURPCB(%ecx)  
         movl    $_C_LABEL(fusufault),PCB_ONFAULT(%ecx)  
         movzbl  (%edx),%eax  
         movl    $0,PCB_ONFAULT(%ecx)  
         ret  
   
 /*  
  * Handle faults from [fs]u*().  Clean up and return -1.  
  */  
 /* LINTSTUB: Ignore */  
 NENTRY(fusufault)  
         movl    $0,PCB_ONFAULT(%ecx)  
         movl    $-1,%eax  
         ret  
   
 /*  
  * Handle faults from [fs]u*().  Clean up and return -1.  This differs from  
  * fusufault() in that trap() will recognize it and return immediately rather  
  * than trying to page fault.  
  */  
 /* LINTSTUB: Ignore */  
 NENTRY(fusubail)  
         movl    $0,PCB_ONFAULT(%ecx)  
         movl    $-1,%eax  
         ret  
   
 /*  
  * Handle earlier faults from [fs]u*(), due to our of range addresses.  
  */  
 /* LINTSTUB: Ignore */  
 NENTRY(fusuaddrfault)  
         movl    $-1,%eax  
         ret  
   
 /*  
  * int suword(void *uaddr, long x);  
  * Store an int in the user's address space.  
  * see suword(9)  
  */  
 /* LINTSTUB: Func: int suword(void *base, long c) */  
 ENTRY(suword)  
         DO_DEFERRED_SWITCH(%eax)  
         movl    4(%esp),%edx  
         cmpl    $VM_MAXUSER_ADDRESS-4,%edx  
         ja      _C_LABEL(fusuaddrfault)  
   
 #if defined(I386_CPU)  
 #if defined(I486_CPU) || defined(I586_CPU) || defined(I686_CPU)  
         cmpl    $CPUCLASS_386,_C_LABEL(cpu_class)  
         jne     2f  
 #endif /* I486_CPU || I586_CPU || I686_CPU */  
   
         GET_CURPCB(%eax)  
         movl    $3f,PCB_ONFAULT(%eax)  
   
         movl    %edx,%eax  
         shrl    $PGSHIFT,%eax           # calculate pte address  
         testb   $PG_RW,_C_LABEL(PTmap)(,%eax,4)  
         jnz     1f  
   
 3:      /* Simulate a trap. */  
         pushl   %edx  
         pushl   %edx  
         call    _C_LABEL(trapwrite)     # trapwrite(addr)  
         addl    $4,%esp                 # clear parameter from the stack  
         popl    %edx  
         GET_CURPCB(%ecx)  
         testl   %eax,%eax  
         jnz     _C_LABEL(fusufault)  
   
 1:      /* XXX also need to check the following 3 bytes for validity! */  
 #endif  
   
 2:      GET_CURPCB(%ecx)  
         movl    $_C_LABEL(fusufault),PCB_ONFAULT(%ecx)  
   
         movl    8(%esp),%eax  
         movl    %eax,(%edx)  
         xorl    %eax,%eax  
         movl    %eax,PCB_ONFAULT(%ecx)  
         ret  
   
 /*  
  * int susword(void *uaddr, short x);  
  * Store a short in the user's address space.  
  * see susword(9)  
  */  
 /* LINTSTUB: Func: int susword(void *base, short c) */  
 ENTRY(susword)  
         DO_DEFERRED_SWITCH(%eax)  
         movl    4(%esp),%edx  
         cmpl    $VM_MAXUSER_ADDRESS-2,%edx  
         ja      _C_LABEL(fusuaddrfault)  
   
 #if defined(I386_CPU)  
 #if defined(I486_CPU) || defined(I586_CPU) || defined(I686_CPU)  
         cmpl    $CPUCLASS_386,_C_LABEL(cpu_class)  
         jne     2f  
 #endif /* I486_CPU || I586_CPU || I686_CPU */  
   
         GET_CURPCB(%eax)  
         movl    $3f,PCB_ONFAULT(%eax)  
   
         movl    %edx,%eax  
         shrl    $PGSHIFT,%eax           # calculate pte address  
         testb   $PG_RW,_C_LABEL(PTmap)(,%eax,4)  
         jnz     1f  
   
 3:      /* Simulate a trap. */  
         pushl   %edx  
         pushl   %edx  
         call    _C_LABEL(trapwrite)     # trapwrite(addr)  
         addl    $4,%esp                 # clear parameter from the stack  
         popl    %edx  
         GET_CURPCB(%ecx)  
         testl   %eax,%eax  
         jnz     _C_LABEL(fusufault)  
   
 1:      /* XXX also need to check the following byte for validity! */  
 #endif  
   
 2:      GET_CURPCB(%ecx)  
         movl    $_C_LABEL(fusufault),PCB_ONFAULT(%ecx)  
   
         movl    8(%esp),%eax  
         movw    %ax,(%edx)  
         xorl    %eax,%eax  
         movl    %eax,PCB_ONFAULT(%ecx)  
         ret  
   
 /*  
  * int suswintr(void *uaddr, short x);  
  * Store a short in the user's address space.  Can be called during an  
  * interrupt.  
  * see suswintr(9)  
  */  
 /* LINTSTUB: Func: int suswintr(void *base, short c) */  
 ENTRY(suswintr)  
         cmpl    $TLBSTATE_VALID, CPUVAR(TLBSTATE)  
         jnz     _C_LABEL(fusuaddrfault)  
         movl    4(%esp),%edx  
         cmpl    $VM_MAXUSER_ADDRESS-2,%edx  
         ja      _C_LABEL(fusuaddrfault)  
         movl    CPUVAR(CURLWP),%ecx  
         movl    L_ADDR(%ecx),%ecx  
         movl    $_C_LABEL(fusubail),PCB_ONFAULT(%ecx)  
   
 #if defined(I386_CPU)  
 #if defined(I486_CPU) || defined(I586_CPU) || defined(I686_CPU)  
         cmpl    $CPUCLASS_386,_C_LABEL(cpu_class)  
         jne     2f  
 #endif /* I486_CPU || I586_CPU || I686_CPU */  
   
         movl    %edx,%eax  
         shrl    $PGSHIFT,%eax           # calculate pte address  
         testb   $PG_RW,_C_LABEL(PTmap)(,%eax,4)  
         jnz     1f  
   
         /* Simulate a trap. */  
         jmp     _C_LABEL(fusubail)  
   
 1:      /* XXX also need to check the following byte for validity! */  
 #endif  
   
 2:      movl    8(%esp),%eax  
         movw    %ax,(%edx)  
         xorl    %eax,%eax  
         movl    %eax,PCB_ONFAULT(%ecx)  
         ret  
   
 /*  
  * int subyte(void *uaddr, char x);  
  * Store a byte in the user's address space.  
  * see subyte(9)  
  */  
 /* LINTSTUB: Func: int subyte(void *base, int c) */  
 ENTRY(subyte)  
         DO_DEFERRED_SWITCH(%eax)  
         movl    4(%esp),%edx  
         cmpl    $VM_MAXUSER_ADDRESS-1,%edx  
         ja      _C_LABEL(fusuaddrfault)  
   
 #if defined(I386_CPU)  
 #if defined(I486_CPU) || defined(I586_CPU) || defined(I686_CPU)  
         cmpl    $CPUCLASS_386,_C_LABEL(cpu_class)  
         jne     2f  
 #endif /* I486_CPU || I586_CPU || I686_CPU */  
   
         GET_CURPCB(%eax)  
         movl    $3f,PCB_ONFAULT(%eax)  
   
         movl    %edx,%eax  
         shrl    $PGSHIFT,%eax           # calculate pte address  
         testb   $PG_RW,_C_LABEL(PTmap)(,%eax,4)  
         jnz     1f  
   
 3:      /* Simulate a trap. */  
         pushl   %edx  
         pushl   %edx  
         call    _C_LABEL(trapwrite)     # trapwrite(addr)  
         addl    $4,%esp                 # clear parameter from the stack  
         popl    %edx  
         GET_CURPCB(%ecx)  
         testl   %eax,%eax  
         jnz     _C_LABEL(fusufault)  
   
 1:  
 #endif  
   
 2:      GET_CURPCB(%ecx)  
         movl    $_C_LABEL(fusufault),PCB_ONFAULT(%ecx)  
   
         movb    8(%esp),%al  
         movb    %al,(%edx)  
         xorl    %eax,%eax  
         movl    %eax,PCB_ONFAULT(%ecx)  
         ret  
   
 /*****************************************************************************/  
   
 /*  
  * The following is i386-specific nonsense.  
  */  
   
 /*  
  * void lgdt(struct region_descriptor *rdp);  
  * Load a new GDT pointer (and do any necessary cleanup).  
  * XXX It's somewhat questionable whether reloading all the segment registers  
  * is necessary, since the actual descriptor data is not changed except by  
  * process creation and exit, both of which clean up via task switches.  OTOH,  
  * this only happens at run time when the GDT is resized.  
  */  
 /* LINTSTUB: Func: void lgdt(struct region_descriptor *rdp) */  
 NENTRY(lgdt)  
         /* Reload the descriptor table. */  
         movl    4(%esp),%eax  
         lgdt    (%eax)  
         /* Flush the prefetch queue. */  
         jmp     1f  
         nop  
 1:      /* Reload "stale" selectors. */  
         movl    $GSEL(GDATA_SEL, SEL_KPL),%eax  
         movw    %ax,%ds  
         movw    %ax,%es  
         movw    %ax,%gs  
         movw    %ax,%ss  
         movl    $GSEL(GCPU_SEL, SEL_KPL),%eax  
         movw    %ax,%fs  
         /* Reload code selector by doing intersegment return. */  
         popl    %eax  
         pushl   $GSEL(GCODE_SEL, SEL_KPL)  
         pushl   %eax  
         lret  
   
 /*****************************************************************************/  
   
 /*  
  * These functions are primarily used by DDB.  
  */  
   
 /* LINTSTUB: Func: int setjmp (label_t *l) */  
 ENTRY(setjmp)  
         movl    4(%esp),%eax  
         movl    %ebx,(%eax)             # save ebx  
         movl    %esp,4(%eax)            # save esp  
         movl    %ebp,8(%eax)            # save ebp  
         movl    %esi,12(%eax)           # save esi  
         movl    %edi,16(%eax)           # save edi  
         movl    (%esp),%edx             # get rta  
         movl    %edx,20(%eax)           # save eip  
         xorl    %eax,%eax               # return (0);  
         ret  
   
 /* LINTSTUB: Func: void longjmp (label_t *l) */  
 ENTRY(longjmp)  ENTRY(longjmp)
         movl    4(%esp),%eax          movl    4(%esp),%eax
         movl    (%eax),%ebx             # restore ebx          movl    (%eax),%ebx             # restore ebx
Line 1674  ENTRY(longjmp)
Line 954  ENTRY(longjmp)
         movl    16(%eax),%edi           # restore edi          movl    16(%eax),%edi           # restore edi
         movl    20(%eax),%edx           # get rta          movl    20(%eax),%edx           # get rta
         movl    %edx,(%esp)             # put in return frame          movl    %edx,(%esp)             # put in return frame
         xorl    %eax,%eax               # return (1);          movl    $1,%eax                 # return 1
         incl    %eax  
         ret          ret
   END(longjmp)
   
 /*****************************************************************************/  /*
    * void dumpsys(void)
         .globl  _C_LABEL(sched_whichqs),_C_LABEL(sched_qs)   *
         .globl  _C_LABEL(uvmexp),_C_LABEL(panic)   * Mimic cpu_switchto() for postmortem debugging.
    */
 #ifdef DIAGNOSTIC  ENTRY(dumpsys)
 NENTRY(switch_error)          pushl   %ebx                    # set up fake switchframe
         pushl   $1f          pushl   %esi                    #   and save context
         call    _C_LABEL(panic)          pushl   %edi
         /* NOTREACHED */          movl    %esp,_C_LABEL(dumppcb)+PCB_ESP
 1:      .asciz  "cpu_switch"          movl    %ebp,_C_LABEL(dumppcb)+PCB_EBP
 #endif /* DIAGNOSTIC */          call    _C_LABEL(dodumpsys)     # dump!
           addl    $(3*4), %esp            # unwind switchframe
           ret
   END(dumpsys)
   
 /*  /*
  * void cpu_switch(struct lwp *)   * struct lwp *cpu_switchto(struct lwp *oldlwp, struct lwp *newlwp,
  * Find a runnable process and switch to it.  Wait if necessary.  If the new   *                          bool returning)
  * process is the same as the old one, we short-circuit the context save and   *
  * restore.   *      1. if (oldlwp != NULL), save its context.
  *   *      2. then, restore context of newlwp.
  * Note that the stack frame layout is known to "struct switchframe"   *
  * in <machine/frame.h> and to the code in cpu_fork() which initializes   * Note that the stack frame layout is known to "struct switchframe" in
    * <machine/frame.h> and to the code in cpu_lwp_fork() which initializes
  * it for a new lwp.   * it for a new lwp.
  */   */
 ENTRY(cpu_switch)  ENTRY(cpu_switchto)
         pushl   %ebx          pushl   %ebx
         pushl   %esi          pushl   %esi
         pushl   %edi          pushl   %edi
   
 #ifdef DEBUG  #if defined(DIAGNOSTIC) && !defined(XEN)
         cmpl    $IPL_SCHED,CPUVAR(ILEVEL)          cmpl    $IPL_SCHED,CPUVAR(ILEVEL)
         jae     1f          jbe     0f
         pushl   $2f          pushl   CPUVAR(ILEVEL)
           pushl   $.Lstr
         call    _C_LABEL(panic)          call    _C_LABEL(panic)
         /* NOTREACHED */          addl    $8,%esp
 2:      .asciz  "not splsched() in cpu_switch!"  .Lstr:  .string "cpu_switchto: switching above IPL_SCHED (%d)\0"
 1:  0:
 #endif /* DEBUG */  
   
         movl    16(%esp),%esi           # current  
   
         /*  
          * Clear curlwp so that we don't accumulate system time while idle.  
          * This also insures that schedcpu() will move the old lwp to  
          * the correct queue if it happens to get called from the spllower()  
          * below and changes the priority.  (See corresponding comment in  
          * userret()).  
          */  
         movl    $0,CPUVAR(CURLWP)  
         /*  
          * First phase: find new lwp.  
          *  
          * Registers:  
          *   %eax - queue head, scratch, then zero  
          *   %ebx - queue number  
          *   %ecx - cached value of whichqs  
          *   %edx - next lwp in queue  
          *   %esi - old lwp  
          *   %edi - new lwp  
          */  
   
         /* Look for new lwp. */  
         cli                             # splhigh doesn't do a cli  
         movl    _C_LABEL(sched_whichqs),%ecx  
         bsfl    %ecx,%ebx               # find a full q  
         jnz     switch_dequeue  
   
         /*  
          * idling:      save old context.  
          *  
          * Registers:  
          *   %eax, %ecx - scratch  
          *   %esi - old lwp, then old pcb  
          *   %edi - idle pcb  
          */  
   
         pushl   %esi  
         call    _C_LABEL(pmap_deactivate2)      # pmap_deactivate(oldproc)  
         addl    $4,%esp  
   
         movl    L_ADDR(%esi),%esi  
   
         /* Save stack pointers. */  
         movl    %esp,PCB_ESP(%esi)  
         movl    %ebp,PCB_EBP(%esi)  
   
         /* Find idle PCB for this CPU */  
 #ifndef MULTIPROCESSOR  
         movl    $_C_LABEL(lwp0),%ebx  
         movl    L_ADDR(%ebx),%edi  
         movl    L_MD_TSS_SEL(%ebx),%edx  
 #else  
         movl    CPUVAR(IDLE_PCB),%edi  
         movl    CPUVAR(IDLE_TSS_SEL),%edx  
 #endif  
         movl    $0,CPUVAR(CURLWP)               /* In case we fault... */  
   
         /* Restore the idle context (avoid interrupts) */  
         cli  
   
         /* Restore stack pointers. */  
         movl    PCB_ESP(%edi),%esp  
         movl    PCB_EBP(%edi),%ebp  
   
         /* Switch TSS. Reset "task busy" flag before loading. */  
         movl    %cr3,%eax  
         movl    %eax,PCB_CR3(%edi)  
 #ifdef MULTIPROCESSOR  
         movl    CPUVAR(GDT),%eax  
 #else  
         movl    _C_LABEL(gdt),%eax  
 #endif  
         andl    $~0x0200,4-SEL_KPL(%eax,%edx,1)  
         ltr     %dx  
   
         /* We're always in the kernel, so we don't need the LDT. */  
   
         /* Restore cr0 (including FPU state). */  
         movl    PCB_CR0(%edi),%ecx  
         movl    %ecx,%cr0  
   
         /* Record new pcb. */  
         SET_CURPCB(%edi)  
   
         xorl    %esi,%esi  
         sti  
 idle_unlock:  
 #if defined(MULTIPROCESSOR) || defined(LOCKDEBUG)  
         call    _C_LABEL(sched_unlock_idle)  
 #endif  
         /* Interrupts are okay again. */  
         pushl   $IPL_NONE               # spl0()  
         call    _C_LABEL(Xspllower)     # process pending interrupts  
         addl    $4,%esp  
         jmp     idle_start  
 idle_zero:  
         sti  
         call    _C_LABEL(uvm_pageidlezero)  
         cli  
         cmpl    $0,_C_LABEL(sched_whichqs)  
         jnz     idle_exit  
 idle_loop:  
         /* Try to zero some pages. */  
         movl    _C_LABEL(uvm)+UVM_PAGE_IDLE_ZERO,%ecx  
         testl   %ecx,%ecx  
         jnz     idle_zero  
         sti  
         hlt  
 NENTRY(mpidle)  
 idle_start:  
         cli  
         cmpl    $0,_C_LABEL(sched_whichqs)  
         jz      idle_loop  
 idle_exit:  
         movl    $IPL_HIGH,CPUVAR(ILEVEL)                # splhigh  
         sti  
 #if defined(MULTIPROCESSOR) || defined(LOCKDEBUG)  
         call    _C_LABEL(sched_lock_idle)  
 #endif  #endif
         movl    _C_LABEL(sched_whichqs),%ecx  
         bsfl    %ecx,%ebx  
         jz      idle_unlock  
   
 switch_dequeue:  
         /*  
          * we're running at splhigh(), but it's otherwise okay to take  
          * interrupts here.  
          */  
         sti  
         leal    _C_LABEL(sched_qs)(,%ebx,8),%eax # select q  
   
         movl    L_FORW(%eax),%edi       # unlink from front of process q  
 #ifdef  DIAGNOSTIC  
         cmpl    %edi,%eax               # linked to self (i.e. nothing queued)?  
         je      _C_LABEL(switch_error)  # not possible  
 #endif /* DIAGNOSTIC */  
         movl    L_FORW(%edi),%edx  
         movl    %edx,L_FORW(%eax)  
         movl    %eax,L_BACK(%edx)  
   
         cmpl    %edx,%eax               # q empty?  
         jne     3f  
   
         btrl    %ebx,%ecx               # yes, clear to indicate empty          movl    16(%esp),%esi           # oldlwp
         movl    %ecx,_C_LABEL(sched_whichqs) # update q status          movl    20(%esp),%edi           # newlwp
           movl    24(%esp),%edx           # returning
 3:      /* We just did it. */  
         xorl    %eax,%eax  
         CLEAR_RESCHED(%eax)  
   
 switch_resume:  
 #ifdef  DIAGNOSTIC  
         cmpl    %eax,L_WCHAN(%edi)      # Waiting for something?  
         jne     _C_LABEL(switch_error)  # Yes; shouldn't be queued.  
         cmpb    $LSRUN,L_STAT(%edi)     # In run state?  
         jne     _C_LABEL(switch_error)  # No; shouldn't be queued.  
 #endif /* DIAGNOSTIC */  
   
         /* Isolate lwp.  XXX Is this necessary? */  
         movl    %eax,L_BACK(%edi)  
   
         /* Record new lwp. */  
         movb    $LSONPROC,L_STAT(%edi)  # l->l_stat = LSONPROC  
         SET_CURLWP(%edi,%ecx)  
   
         /* Skip context switch if same lwp. */  
         xorl    %ebx,%ebx  
         cmpl    %edi,%esi  
         je      switch_return  
   
         /* If old lwp exited, don't bother. */  
         testl   %esi,%esi          testl   %esi,%esi
         jz      switch_exited          jz      1f
   
         /*  
          * Second phase: save old context.  
          *  
          * Registers:  
          *   %eax, %ecx - scratch  
          *   %esi - old lwp, then old pcb  
          *   %edi - new lwp  
          */  
   
         pushl   %esi  
         call    _C_LABEL(pmap_deactivate2)      # pmap_deactivate(oldproc)  
         addl    $4,%esp  
   
         movl    L_ADDR(%esi),%esi  
   
         /* Save stack pointers. */          /* Save old context. */
         movl    %esp,PCB_ESP(%esi)          movl    L_PCB(%esi),%eax
         movl    %ebp,PCB_EBP(%esi)          movl    %esp,PCB_ESP(%eax)
           movl    %ebp,PCB_EBP(%eax)
   
           /* Switch to newlwp's stack. */
   1:      movl    L_PCB(%edi),%ebx
           movl    PCB_EBP(%ebx),%ebp
           movl    PCB_ESP(%ebx),%esp
   
 switch_exited:  
         /*          /*
          * Third phase: restore saved context.           * Set curlwp.  This must be globally visible in order to permit
          *           * non-interlocked mutex release.
          * Registers:  
          *   %eax, %ebx, %ecx, %edx - scratch  
          *   %esi - new pcb  
          *   %edi - new lwp  
          */           */
           movl    %edi,%ecx
           xchgl   %ecx,CPUVAR(CURLWP)
   
         /* No interrupts while loading new state. */          /* Skip the rest if returning to a pinned LWP. */
         cli          testl   %edx,%edx
         movl    L_ADDR(%edi),%esi          jnz     4f
   
         /* Restore stack pointers. */  #ifdef XEN
         movl    PCB_ESP(%esi),%esp          pushl   %edi
         movl    PCB_EBP(%esi),%ebp          call    _C_LABEL(i386_switch_context)
           addl    $4,%esp
   #else /* !XEN */
           /* Switch ring0 esp */
           movl    PCB_ESP0(%ebx),%eax
           movl    %eax,CPUVAR(ESP0)
   #endif /* !XEN */
   
 #if 0  
         /* Don't bother with the rest if switching to a system process. */          /* Don't bother with the rest if switching to a system process. */
         testl   $P_SYSTEM,L_FLAG(%edi); XXX NJWLWP lwp's don't have P_SYSTEM!          testl   $LW_SYSTEM,L_FLAG(%edi)
         jnz     switch_restored          jnz     4f
 #endif  
   
         /* Switch TSS. Reset "task busy" flag before loading. */  
         movl    %cr3,%eax  
         movl    %eax,PCB_CR3(%esi) /* XXX should be done by pmap_activate? */  
 #ifdef MULTIPROCESSOR  
         movl    CPUVAR(GDT),%eax  
 #else  
         /* Load TSS info. */  
         movl    _C_LABEL(gdt),%eax  
 #endif  
         movl    L_MD_TSS_SEL(%edi),%edx  
   
         andl    $~0x0200,4(%eax,%edx, 1)  #ifndef XEN
         ltr     %dx          /* Restore thread-private %fs/%gs descriptors. */
           movl    CPUVAR(GDT),%ecx
           movl    PCB_FSD(%ebx), %eax
           movl    PCB_FSD+4(%ebx), %edx
           movl    %eax, (GUFS_SEL*8)(%ecx)
           movl    %edx, (GUFS_SEL*8+4)(%ecx)
           movl    PCB_GSD(%ebx), %eax
           movl    PCB_GSD+4(%ebx), %edx
           movl    %eax, (GUGS_SEL*8)(%ecx)
           movl    %edx, (GUGS_SEL*8+4)(%ecx)
   #endif /* !XEN */
   
           /* Switch I/O bitmap */
           movl    PCB_IOMAP(%ebx),%eax
           orl     %eax,%eax
           jnz     .Lcopy_iobitmap
           movl    $(IOMAP_INVALOFF << 16),CPUVAR(IOBASE)
   .Liobitmap_done:
   
           /* Is this process using RAS (restartable atomic sequences)? */
           movl    L_PROC(%edi),%eax
           cmpl    $0,P_RASLIST(%eax)
           jne     5f
   
           /*
            * Restore cr0 (including FPU state).  Raise the IPL to IPL_HIGH.
            * FPU IPIs can alter the LWP's saved cr0.  Dropping the priority
            * is deferred until mi_switch(), when cpu_switchto() returns.
            */
   2:
   #ifdef XEN
         pushl   %edi          pushl   %edi
         call    _C_LABEL(pmap_activate)         # pmap_activate(p)          call    _C_LABEL(i386_tls_switch)
         addl    $4,%esp          addl    $4,%esp
   #else /* !XEN */
           movl    $IPL_HIGH,CPUVAR(ILEVEL)
           movl    PCB_CR0(%ebx),%ecx              /* has CR0_TS clear */
           movl    %cr0,%edx
   
 #if 0          /*
 switch_restored:  
 #endif  
         /* Restore cr0 (including FPU state). */  
         movl    PCB_CR0(%esi),%ecx  
 #ifdef MULTIPROCESSOR  
         /*  
          * If our floating point registers are on a different CPU,           * If our floating point registers are on a different CPU,
          * clear CR0_TS so we'll trap rather than reuse bogus state.           * set CR0_TS so we'll trap rather than reuse bogus state.
          */           */
         movl    PCB_FPCPU(%esi),%ebx          cmpl    CPUVAR(FPCURLWP),%edi
         cmpl    CPUVAR(SELF),%ebx          je      3f
         jz      1f  
         orl     $CR0_TS,%ecx          orl     $CR0_TS,%ecx
 1:  
 #endif  
         movl    %ecx,%cr0  
   
         /* Record new pcb. */  
         SET_CURPCB(%esi)  
   
         /* Interrupts are okay again. */  
         sti  
   
 /*  
  *  Check for restartable atomic sequences (RAS)  
  */  
         movl    CPUVAR(CURLWP),%edi  
         movl    L_PROC(%edi),%esi  
         cmpl    $0,P_RASLIST(%esi)  
         jne     2f  
 1:  
         movl    $1,%ebx  
   
 switch_return:          /* Reloading CR0 is very expensive - avoid if possible. */
 #if defined(MULTIPROCESSOR) || defined(LOCKDEBUG)  3:      cmpl    %edx,%ecx
         call    _C_LABEL(sched_unlock_idle)          je      4f
 #endif          movl    %ecx,%cr0
         cmpl    $0,CPUVAR(IPENDING)  #endif /* !XEN */
         jz      3f  
         pushl   $IPL_NONE               # spl0()  
         call    _C_LABEL(Xspllower)     # process pending interrupts  
         addl    $4,%esp  
 3:  
         movl    $IPL_HIGH,CPUVAR(ILEVEL)        # splhigh()  
   
         movl    %ebx,%eax          /* Return to the new LWP, returning 'oldlwp' in %eax. */
   4:      movl    %esi,%eax
         popl    %edi          popl    %edi
         popl    %esi          popl    %esi
         popl    %ebx          popl    %ebx
         ret          ret
   
 2:                                      # check RAS list          /* Check for restartable atomic sequences (RAS). */
         movl    L_MD_REGS(%edi),%ebx  5:      movl    L_MD_REGS(%edi),%ecx
         movl    TF_EIP(%ebx),%eax          pushl   TF_EIP(%ecx)
         pushl   %eax          pushl   %eax
         pushl   %esi  
         call    _C_LABEL(ras_lookup)          call    _C_LABEL(ras_lookup)
         addl    $8,%esp          addl    $8,%esp
         cmpl    $-1,%eax          cmpl    $-1,%eax
         je      1b          je      2b
         movl    %eax,TF_EIP(%ebx)          movl    L_MD_REGS(%edi),%ecx
         jmp     1b          movl    %eax,TF_EIP(%ecx)
           jmp     2b
   
 /*  .Lcopy_iobitmap:
  * void cpu_switchto(struct lwp *current, struct lwp *next)          /* Copy I/O bitmap. */
  * Switch to the specified next LWP.          incl    _C_LABEL(pmap_iobmp_evcnt)+EV_COUNT
  */          movl    $(IOMAPSIZE/4),%ecx
 ENTRY(cpu_switchto)  
         pushl   %ebx  
         pushl   %esi          pushl   %esi
         pushl   %edi          pushl   %edi
           movl    %eax,%esi               /* pcb_iomap */
 #ifdef DEBUG          movl    CPUVAR(SELF),%edi
         cmpl    $IPL_SCHED,CPUVAR(ILEVEL)          leal    CPU_INFO_IOMAP(%edi),%edi
         jae     1f          rep
         pushl   $2f          movsl
         call    _C_LABEL(panic)          popl    %edi
         /* NOTREACHED */          popl    %esi
 2:      .asciz  "not splsched() in cpu_switchto!"          movl    $((CPU_INFO_IOMAP - CPU_INFO_TSS) << 16),CPUVAR(IOBASE)
 1:          jmp     .Liobitmap_done
 #endif /* DEBUG */  END(cpu_switchto)
   
         movl    16(%esp),%esi           # current  
         movl    20(%esp),%edi           # next  
   
         /*  
          * Clear curlwp so that we don't accumulate system time while idle.  
          * This also insures that schedcpu() will move the old process to  
          * the correct queue if it happens to get called from the spllower()  
          * below and changes the priority.  (See corresponding comment in  
          * usrret()).  
          *  
          * XXX Is this necessary?  We know we won't go idle.  
          */  
         movl    $0,CPUVAR(CURLWP)  
   
         /*  
          * We're running at splhigh(), but it's otherwise okay to take  
          * interrupts here.  
          */  
         sti  
   
         /* Jump into the middle of cpu_switch */  
         xorl    %eax,%eax  
         jmp     switch_resume  
   
 /*  
  * void cpu_exit(struct lwp *l)  
  * Switch to the appropriate idle context (lwp0's if uniprocessor; the CPU's  
  * if multiprocessor) and deallocate the address space and kernel stack for p.  
  * Then jump into cpu_switch(), as if we were in the idle proc all along.  
  */  
 #ifndef MULTIPROCESSOR  
         .globl  _C_LABEL(lwp0)  
 #endif  
         .globl  _C_LABEL(uvmspace_free),_C_LABEL(kernel_map)  
         .globl  _C_LABEL(uvm_km_free),_C_LABEL(tss_free)  
 /* LINTSTUB: Func: void cpu_exit(struct lwp *l) */  
 ENTRY(cpu_exit)  
         movl    4(%esp),%edi            # old process  
 #ifndef MULTIPROCESSOR  
         movl    $_C_LABEL(lwp0),%ebx  
         movl    L_ADDR(%ebx),%esi  
         movl    L_MD_TSS_SEL(%ebx),%edx  
 #else  
         movl    CPUVAR(IDLE_PCB),%esi  
         movl    CPUVAR(IDLE_TSS_SEL),%edx  
 #endif  
         /* In case we fault... */  
         movl    $0,CPUVAR(CURLWP)  
   
         /* Restore the idle context. */  
         cli  
   
         /* Restore stack pointers. */  
         movl    PCB_ESP(%esi),%esp  
         movl    PCB_EBP(%esi),%ebp  
   
         /* Switch TSS. Reset "task busy" flag before loading. */  
         movl    %cr3,%eax  
         movl    %eax,PCB_CR3(%esi)  
 #ifdef MULTIPROCESSOR  
         movl    CPUVAR(GDT),%eax  
 #else  
         /* Load TSS info. */  
         movl    _C_LABEL(gdt),%eax  
 #endif  
   
         andl    $~0x0200,4-SEL_KPL(%eax,%edx,1)  
         ltr     %dx  
   
         /* We're always in the kernel, so we don't need the LDT. */  
   
         /* Restore cr0 (including FPU state). */  
         movl    PCB_CR0(%esi),%ecx  
         movl    %ecx,%cr0  
   
         /* Record new pcb. */  
         SET_CURPCB(%esi)  
   
         /* Interrupts are okay again. */  
         sti  
   
         /*  
          * Schedule the dead LWP's stack to be freed.  
          */  
         pushl   %edi  
         call    _C_LABEL(lwp_exit2)  
         addl    $4,%esp  
   
         /* Jump into cpu_switch() with the right state. */  
         xorl    %esi,%esi  
         movl    %esi,CPUVAR(CURLWP)  
         jmp     idle_start  
   
 /*  /*
  * void savectx(struct pcb *pcb);   * void savectx(struct pcb *pcb);
    *
  * Update pcb, saving current processor state.   * Update pcb, saving current processor state.
  */   */
 /* LINTSTUB: Func: void savectx(struct pcb *pcb) */  
 ENTRY(savectx)  ENTRY(savectx)
         movl    4(%esp),%edx            # edx = p->p_addr          movl    4(%esp),%edx            # edx = pcb
   
         /* Save stack pointers. */  
         movl    %esp,PCB_ESP(%edx)          movl    %esp,PCB_ESP(%edx)
         movl    %ebp,PCB_EBP(%edx)          movl    %ebp,PCB_EBP(%edx)
   
         ret          ret
   END(savectx)
   
 /*  /*
    * osyscall()
    *
  * Old call gate entry for syscall   * Old call gate entry for syscall
  */   */
 /* LINTSTUB: Var: char Xosyscall[1]; */  
 IDTVEC(osyscall)  IDTVEC(osyscall)
         /* Set eflags in trap frame. */  #ifndef XEN
         pushfl          /* XXX we are in trouble! interrupts be off here. */
           cli                     # must be first instruction
   #endif
           pushfl                  # set eflags in trap frame
         popl    8(%esp)          popl    8(%esp)
           orl     $PSL_I,8(%esp)  # re-enable ints on return to user
         pushl   $7              # size of instruction for restart          pushl   $7              # size of instruction for restart
         jmp     syscall1          jmp     syscall1
   IDTVEC_END(osyscall)
   
 /*  /*
    * syscall()
    *
  * Trap gate entry for syscall   * Trap gate entry for syscall
  */   */
 /* LINTSTUB: Var: char Xsyscall[1]; */  
 IDTVEC(syscall)  IDTVEC(syscall)
         pushl   $2              # size of instruction for restart          pushl   $2              # size of instruction for restart
 syscall1:  syscall1:
         pushl   $T_ASTFLT       # trap # for doing ASTs          pushl   $T_ASTFLT       # trap # for doing ASTs
         INTRENTRY          INTRENTRY
           STI(%eax)
 #ifdef DIAGNOSTIC  #ifdef DIAGNOSTIC
         cmpl    $0, CPUVAR(WANT_PMAPLOAD)  
         jz      1f  
         pushl   $6f  
         call    _C_LABEL(printf)  
         addl    $4, %esp  
 1:  
         movl    CPUVAR(ILEVEL),%ebx          movl    CPUVAR(ILEVEL),%ebx
         testl   %ebx,%ebx          testl   %ebx,%ebx
         jz      1f          jz      1f
         pushl   $5f          pushl   $5f
         call    _C_LABEL(printf)          call    _C_LABEL(panic)
         addl    $4,%esp          addl    $4,%esp
 #ifdef DDB  #ifdef DDB
         int     $3          int     $3
 #endif  #endif
 1:  1:
 #endif /* DIAGNOSTIC */  #endif /* DIAGNOSTIC */
         movl    CPUVAR(CURLWP),%edx          addl    $1,CPUVAR(NSYSCALL)     # count it atomically
         movl    %esp,L_MD_REGS(%edx)    # save pointer to frame          adcl    $0,CPUVAR(NSYSCALL)+4   # count it atomically
         movl    L_PROC(%edx),%edx          movl    CPUVAR(CURLWP),%edi
           movl    L_PROC(%edi),%edx
           movl    %esp,L_MD_REGS(%edi)    # save pointer to frame
         pushl   %esp          pushl   %esp
         call    *P_MD_SYSCALL(%edx)     # get pointer to syscall() function          call    *P_MD_SYSCALL(%edx)     # get pointer to syscall() function
         addl    $4,%esp          addl    $4,%esp
 .Lsyscall_checkast:  .Lsyscall_checkast:
         /* Check for ASTs on exit to user mode. */          /* Check for ASTs on exit to user mode. */
           CLI(%eax)
           movl    L_MD_ASTPENDING(%edi), %eax
           orl     CPUVAR(WANT_PMAPLOAD), %eax
           jnz     9f
   #ifdef XEN
           STIC(%eax)
           jz      14f
           call    _C_LABEL(stipending)
           testl   %eax,%eax
           jz      14f
           /* process pending interrupts */
           CLI(%eax)
           movl    CPUVAR(ILEVEL), %ebx
           movl    $.Lsyscall_resume, %esi # address to resume loop at
   .Lsyscall_resume:
           movl    %ebx,%eax       # get cpl
           movl    CPUVAR(IUNMASK)(,%eax,4),%eax
           andl    CPUVAR(IPENDING),%eax   # any non-masked bits left?
           jz      17f
           bsrl    %eax,%eax
           btrl    %eax,CPUVAR(IPENDING)
           movl    CPUVAR(ISOURCES)(,%eax,4),%eax
           jmp     *IS_RESUME(%eax)
   17:     movl    %ebx, CPUVAR(ILEVEL)    #restore cpl
           jmp     .Lsyscall_checkast
   14:
   #endif /* XEN */
   #ifndef DIAGNOSTIC
           INTRFASTEXIT
   #else /* DIAGNOSTIC */
           cmpl    $IPL_NONE,CPUVAR(ILEVEL)
           jne     3f
           INTRFASTEXIT
   3:      STI(%eax)
           pushl   $4f
           call    _C_LABEL(panic)
           addl    $4,%esp
           pushl   $IPL_NONE
           call    _C_LABEL(spllower)
           addl    $4,%esp
           jmp     .Lsyscall_checkast
   4:      .asciz  "SPL NOT LOWERED ON SYSCALL EXIT\n"
   5:      .asciz  "SPL NOT ZERO ON SYSCALL ENTRY\n"
   #endif /* DIAGNOSTIC */
   9:
           cmpl    $0, CPUVAR(WANT_PMAPLOAD)
           jz      10f
           STI(%eax)
           call    _C_LABEL(pmap_load)
           jmp     .Lsyscall_checkast      /* re-check ASTs */
   10:
           /* Always returning to user mode here. */
           movl    $0, L_MD_ASTPENDING(%edi)
           STI(%eax)
           /* Pushed T_ASTFLT into tf_trapno on entry. */
           pushl   %esp
           call    _C_LABEL(trap)
           addl    $4,%esp
           jmp     .Lsyscall_checkast      /* re-check ASTs */
   IDTVEC_END(syscall)
   
   IDTVEC(svr4_fasttrap)
           pushl   $2              # size of instruction for restart
           pushl   $T_ASTFLT       # trap # for doing ASTs
           INTRENTRY
           STI(%eax)
           pushl   $RW_READER
           pushl   $_C_LABEL(svr4_fasttrap_lock)
           call    _C_LABEL(rw_enter)
           addl    $8,%esp
           call    *_C_LABEL(svr4_fasttrap_vec)
           pushl   $_C_LABEL(svr4_fasttrap_lock)
           call    _C_LABEL(rw_exit)
           addl    $4,%esp
   2:      /* Check for ASTs on exit to user mode. */
         cli          cli
         CHECK_ASTPENDING(%eax)          CHECK_ASTPENDING(%eax)
         je      1f          je      1f
         /* Always returning to user mode here. */          /* Always returning to user mode here. */
         CLEAR_ASTPENDING(%eax)          CLEAR_ASTPENDING(%eax)
Line 2200  syscall1:
Line 1279  syscall1:
         pushl   %esp          pushl   %esp
         call    _C_LABEL(trap)          call    _C_LABEL(trap)
         addl    $4,%esp          addl    $4,%esp
         jmp     .Lsyscall_checkast      /* re-check ASTs */          jmp     2b
 1:      CHECK_DEFERRED_SWITCH(%eax)  1:      CHECK_DEFERRED_SWITCH
         jnz     9f          jnz     9f
 #ifndef DIAGNOSTIC  
         INTRFASTEXIT  
 #else /* DIAGNOSTIC */  
         cmpl    $IPL_NONE,CPUVAR(ILEVEL)  
         jne     3f  
         INTRFASTEXIT          INTRFASTEXIT
 3:      sti  
         pushl   $4f  
         call    _C_LABEL(printf)  
         addl    $4,%esp  
 #ifdef DDB  
         int     $3  
 #endif /* DDB */  
         movl    $IPL_NONE,CPUVAR(ILEVEL)  
         jmp     2b  
 4:      .asciz  "WARNING: SPL NOT LOWERED ON SYSCALL EXIT\n"  
 5:      .asciz  "WARNING: SPL NOT ZERO ON SYSCALL ENTRY\n"  
 6:      .asciz  "WARNING: WANT PMAPLOAD ON SYSCALL ENTRY\n"  
 #endif /* DIAGNOSTIC */  
 9:      sti  9:      sti
         call    _C_LABEL(pmap_load)          call    _C_LABEL(pmap_load)
         jmp     .Lsyscall_checkast      /* re-check ASTs */          cli
           jmp     2b
   
 #if NNPX > 0  #if NNPX > 0
 /*  /*
Line 2233  syscall1:
Line 1295  syscall1:
  * latch stuff in probintr() can be moved to npxprobe().   * latch stuff in probintr() can be moved to npxprobe().
  */   */
   
 /* LINTSTUB: Func: void probeintr(void) */  /*
    * void probeintr(void)
    */
 NENTRY(probeintr)  NENTRY(probeintr)
         ss          ss
         incl    _C_LABEL(npx_intrs_while_probing)          incl    _C_LABEL(npx_intrs_while_probing)
Line 2245  NENTRY(probeintr)
Line 1309  NENTRY(probeintr)
         outb    %al,$0xf0       # clear BUSY# latch          outb    %al,$0xf0       # clear BUSY# latch
         popl    %eax          popl    %eax
         iret          iret
   END(probeintr)
   
 /* LINTSTUB: Func: void probetrap(void) */  /*
    * void probetrap(void)
    */
 NENTRY(probetrap)  NENTRY(probetrap)
         ss          ss
         incl    _C_LABEL(npx_traps_while_probing)          incl    _C_LABEL(npx_traps_while_probing)
         fnclex          fnclex
         iret          iret
   END(probetrap)
   
 /* LINTSTUB: Func: int npx586bug1(int a, int b) */  /*
    * int npx586bug1(int a, int b)
    */
 NENTRY(npx586bug1)  NENTRY(npx586bug1)
         fildl   4(%esp)         # x          fildl   4(%esp)         # x
         fildl   8(%esp)         # y          fildl   8(%esp)         # y
Line 2265  NENTRY(npx586bug1)
Line 1335  NENTRY(npx586bug1)
         fistpl  (%esp)          fistpl  (%esp)
         popl    %eax          popl    %eax
         ret          ret
   END(npx586bug1)
 #endif /* NNPX > 0 */  #endif /* NNPX > 0 */
   
   /*
    * void sse2_idlezero_page(void *pg)
    *
    * Zero a page without polluting the cache.  Preemption must be
    * disabled by the caller. Abort if a preemption is pending.
    */
   ENTRY(sse2_idlezero_page)
           pushl   %ebp
           movl    %esp,%ebp
           movl    8(%esp), %edx
           movl    $(PAGE_SIZE/32), %ecx
           xorl    %eax, %eax
           .align  16
   1:
           testl   $RESCHED_KPREEMPT, CPUVAR(RESCHED)
           jnz     2f
           movnti  %eax, 0(%edx)
           movnti  %eax, 4(%edx)
           movnti  %eax, 8(%edx)
           movnti  %eax, 12(%edx)
           movnti  %eax, 16(%edx)
           movnti  %eax, 20(%edx)
           movnti  %eax, 24(%edx)
           movnti  %eax, 28(%edx)
           addl    $32, %edx
           decl    %ecx
           jnz     1b
           sfence
           incl    %eax
           pop     %ebp
           ret
   2:
           sfence
           popl    %ebp
           ret
   END(sse2_idlezero_page)

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.109

CVSweb <webmaster@jp.NetBSD.org>