diff options
Diffstat (limited to 'toplevel/class.ml')
| -rw-r--r-- | toplevel/class.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/toplevel/class.ml b/toplevel/class.ml index be2482a2b..9adf68031 100644 --- a/toplevel/class.ml +++ b/toplevel/class.ml @@ -160,6 +160,10 @@ let strength_of_cl = function | CL_SECVAR id -> Local | _ -> Global +let strength_of_global = function + | VarRef _ -> Local + | _ -> Global + let get_strength stre ref cls clt = let stres = strength_of_cl cls in let stret = strength_of_cl clt in |