diff options
| author |  gregoire <gregoire@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-11-22 09:10:51 +0000 |
|---|---|---|
| committer | gregoire <gregoire@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-11-22 09:10:51 +0000 |
| commit | a215993ad9e073fc09825742494ec06a9f8d6c84 (patch) | |
| tree | a104125a1b9029473a05a36e70cfe9ce9e9c5212 /kernel/vm.ml | |
| parent | 7371c43d5b065e83bbaaba584dc163cac2005802 (diff) | |
compatibility with POWERPC
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6338 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/vm.ml')
| -rw-r--r-- | kernel/vm.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/kernel/vm.ml b/kernel/vm.ml index 4482696ae..0aa4f1ff4 100644 --- a/kernel/vm.ml +++ b/kernel/vm.ml @@ -432,6 +432,11 @@ let rec whd_stack v stk = if is_accu v then whd_accu (magic v) stk else whd_stack (apply_switch sw v) stkt +let rec force_whd v stk = + match whd_stack v stk with + | Vatom_stk(Aiddef(_,v),stk) -> force_whd v stk + | res -> res + (* Function *) |