Changeset 10587


Ignore:
Timestamp:
Aug 31, 2008, 8:39:17 AM (11 years ago)
Author:
gb
Message:

Add stubs (at least) for win32 support stuff.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/x86-asmutils32.s

    r10091 r10587  
    168168_endfn                         
    169169
     170        __ifdef([WIN32])
     171_exportfn(C(restore_windows_context))
     172Xrestore_windows_context_start:
     173        __(hlt)
     174Xrestore_windows_context_load_rcx:               
     175        __(nop)
     176Xrestore_windows_context_iret:           
     177        __(iretl)
     178Xrestore_windows_context_end:             
     179        __(nop)
     180_endfn
     181       
     182_exportfn(C(windows_switch_to_foreign_stack))
     183        __(pop %eax)
     184        __(pop %ecx)            /* new %esp */
     185        __(pop %edx)            /* handler */
     186        __(pop %edx)            /* arg */
     187        __(movl %ecx,%esp)
     188        __(subl $0x10,%esp)
     189        __(movl %edx,(%esp))
     190        __(push %eax)
     191        __(jmp *%edx)
     192_endfn       
     193
     194        .data
     195        .globl C(restore_windows_context_start)
     196        .globl C(restore_windows_context_end)
     197        .globl C(restore_windows_context_load_rcx)
     198        .globl C(restore_windows_context_iret)
     199C(restore_windows_context_start):  .long Xrestore_windows_context_start
     200C(restore_windows_context_end): .long Xrestore_windows_context_end
     201C(restore_windows_context_load_rcx):  .long Xrestore_windows_context_load_rcx
     202C(restore_windows_context_iret): .long Xrestore_windows_context_iret
     203
     204        __endif
    170205        _endfile
    171206
Note: See TracChangeset for help on using the changeset viewer.