suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cpuid assembly fix Merge to 5.0.2

Browse Source 
(cherry picked from commit c1f2dea1ed)
This commit is contained in:
Kevin Tew 2010-10-22 21:21:38 -06:00 committed by Ryan Culpepper
parent 617daddbd7
commit 2da74632fe
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/racket/src/future.c
View File

@ -546,14 +546,24 @@ void scheme_future_block_until_gc()
} }
# else # else
{ {
# if defined(i386) || defined(__i386__)
# define MZ_PUSH_EBX "pushl %%ebx"
# define MZ_POP_EBX "popl %%ebx"
# endif
# if defined(__x86_64) || defined(__x86_64__) || defined(__amd64__)
# define MZ_PUSH_EBX "pushq %%rbx"
# define MZ_POP_EBX "popq %%rbx"
# endif
int _eax, _ebx, _ecx, _edx, op = 0; int _eax, _ebx, _ecx, _edx, op = 0;
/* we can't always use EBX, so save and restore it: */ /* we can't always use EBX, so save and restore it: */
asm ("pushl %%ebx \n\t" asm (MZ_PUSH_EBX "\n\t"
"cpuid \n\t" "cpuid \n\t"
"movl %%ebx, %1 \n\t" "movl %%ebx, %1 \n\t"
"popl %%ebx" MZ_POP_EBX
: "=a" (_eax), "=r" (_ebx), "=c" (_ecx), "=d" (_edx) : "a" (op)); : "=a" (_eax), "=r" (_ebx), "=c" (_ecx), "=d" (_edx) : "a" (op));
} }
# undef MZ_PUSH_EBX
# undef MZ_POP_EBX
# endif # endif
#endif #endif
} }