source: golgotha/src/i4/lisp/msvc_lip.cc @ 80

Last change on this file since 80 was 80, checked in by Sam Hocevar, 12 years ago
  • Adding the Golgotha source code. Not sure what's going to be interesting in there, but since it's all public domain, there's certainly stuff to pick up.
File size: 796 bytes
Line 
1/********************************************************************** <BR>
2  This file is part of Crack dot Com's free source code release of
3  Golgotha. <a href="http://www.crack.com/golgotha_release"> <BR> for
4  information about compiling & licensing issues visit this URL</a>
5  <PRE> If that doesn't help, contact Jonathan Clark at
6  golgotha_source@usa.net (Subject should have "GOLG" in it)
7***********************************************************************/
8
9#include "lisp/lisp.hh"
10
11#ifdef _WINDOWS
12static li_object *msvc_inspect=0;
13static char FP_SAVE[108];
14
15void msvc_lip()
16{
17  __asm {
18    pushfd
19    pushad
20    fsave FP_SAVE
21    frstor FP_SAVE   
22  }
23
24  lip(msvc_inspect);
25
26  __asm {
27    frstor FP_SAVE   
28    popad
29    popfd
30  }
31}
32#endif
33
Note: See TracBrowser for help on using the repository browser.