git-svn-id: https://projects.brucker.ch/su4sml/svn/su4sml/trunk@7524 3260e6d1-4efc-4170-b0a7-36055960796d
This commit is contained in:
parent
0541357cb7
commit
b9cb0a1069
|
@ -420,7 +420,7 @@ let
|
||||||
val typ = type_of_path path model
|
val typ = type_of_path path model
|
||||||
handle GetClassifierError s => raise TC_OperationWithTypeError ("Wrong or ommited package in a OperationWithType call. Please ajust the the package of the type.\n" ^ "OclTerm is: " ^ ocl2string true opcall ^ "\n")
|
handle GetClassifierError s => raise TC_OperationWithTypeError ("Wrong or ommited package in a OperationWithType call. Please ajust the the package of the type.\n" ^ "OclTerm is: " ^ ocl2string true opcall ^ "\n")
|
||||||
val _ = trace low ("res OpCall: oclTypeOf 4:" ^ "... " ^ "\n")
|
val _ = trace low ("res OpCall: oclTypeOf 4:" ^ "... " ^ "\n")
|
||||||
val res = OperationWithType (rterm,rtyp,"oclIsTypeOf",typ,Boolean)
|
val res = OperationWithType (rterm,rtyp,"oclIsKindOf",typ,Boolean)
|
||||||
val _ = trace function_ends ("TypeChecker.resolve_OclTerm\n")
|
val _ = trace function_ends ("TypeChecker.resolve_OclTerm\n")
|
||||||
in
|
in
|
||||||
res
|
res
|
||||||
|
@ -443,7 +443,7 @@ let
|
||||||
val typ = type_of_path path model
|
val typ = type_of_path path model
|
||||||
handle GetClassifierError s => raise TC_OperationWithTypeError ("Wrong or ommited package in a OperationWithType call. Please ajust the the package of the type.\n" ^ "OclTerm is: " ^ ocl2string true opcall ^ "\n")
|
handle GetClassifierError s => raise TC_OperationWithTypeError ("Wrong or ommited package in a OperationWithType call. Please ajust the the package of the type.\n" ^ "OclTerm is: " ^ ocl2string true opcall ^ "\n")
|
||||||
val _ = trace low ("res OpCall: oclTypeOf 4:" ^ "... " ^ "\n")
|
val _ = trace low ("res OpCall: oclTypeOf 4:" ^ "... " ^ "\n")
|
||||||
val res = OperationWithType (rterm,rtyp,"oclIsTypeOf",typ,Boolean)
|
val res = OperationWithType (rterm,rtyp,"oclAsType",typ,typ)
|
||||||
val _ = trace function_ends ("TypeChecker.resolve_OclTerm\n")
|
val _ = trace function_ends ("TypeChecker.resolve_OclTerm\n")
|
||||||
in
|
in
|
||||||
res
|
res
|
||||||
|
|
Loading…
Reference in New Issue