| /dports/lang/mosml/mosml-ver-2.10.1/src/compiler.cminusminus/ |
| H A D | Match.sml | 24 (* To skip type constraints and aliases, and translate exnname accesses *)
33 let val exnname = Tr_env.translateExName env ii value
34 in RECpat(ref (TUPLErp [(loc, EXNAMEpat exnname), arg])) end
327 | mkSwitch (IfEq(obj, EExn exnname, thenact, elseact)) =
328 Lif(Lprim(Prim.Ptest Prim.Peq_test, [obj, exnname]),
|
| H A D | Tr_env.sml | 43 fun mkDynexn exnname =
45 [exnname, Lconst constUnit])
|
| H A D | Asynt.sml | 70 | EXNAMEpat of Lambda.Lambda (* The exnname rep used in Match.sml *)
|
| H A D | Front.sml | 153 fun mkDynexn1 exnname arg = Lprim(Pmakeblock (CONtag(0,1)), [exnname, arg])
154 fun mkDynexn0 exnname = mkDynexn1 exnname (Lconst constUnit)
|
| H A D | Asyntfn.sml | 364 (msgString "<exnname access>")
|
| /dports/lang/mosml/mosml-ver-2.10.1/src/compiler/ |
| H A D | Match.sml | 24 (* To skip type constraints and aliases, and translate exnname accesses *)
33 let val exnname = Tr_env.translateExName env ii value
34 in RECpat(ref (TUPLErp [(loc, EXNAMEpat exnname), arg])) end
327 | mkSwitch (IfEq(obj, EExn exnname, thenact, elseact)) =
328 Lif(Lprim(Prim.Ptest Prim.Peq_test, [obj, exnname]),
|
| H A D | Tr_env.sml | 43 fun mkDynexn exnname =
45 [exnname, Lconst constUnit])
|
| H A D | Asynt.sml | 70 | EXNAMEpat of Lambda.Lambda (* The exnname rep used in Match.sml *)
|
| H A D | Front.sml | 153 fun mkDynexn1 exnname arg = Lprim(Pmakeblock (CONtag(0,1)), [exnname, arg])
154 fun mkDynexn0 exnname = mkDynexn1 exnname (Lconst constUnit)
|
| H A D | Asyntfn.sml | 364 (msgString "<exnname access>")
|
| /dports/lang/mosml/mosml-ver-2.10.1/src/runtime/ |
| H A D | sys.c | 213 value mkexn0val(value exnname) { in mkexn0val() argument
215 modify(&Field(exnval, 0), Field(global_data, exnname)); in mkexn0val()
|
| /dports/lang/racket/racket-8.3/share/pkgs/rackunit-gui/rackunit/private/gui/ |
| H A D | model2rml.rkt | 182 (exnname (send/i model case<%> get-property prop:failure-assertion))]
185 (when exnname
187 (put '(fail-type) (format "~a" exnname)))
249 (exnname (send/i model case<%> get-property prop:failure-assertion))
260 (put '(fail-type) (format "~a" exnname))
|
| /dports/devel/jsl/jsl-0.3.0/src/ |
| H A D | jsexn.c | 883 static struct exnname { char *name; char *exception; } errortoexnname[] = { argument
|
| /dports/multimedia/avidemux-qt5/avidemux_2.7.6/avidemux_plugins/ADM_scriptEngines/spiderMonkey/src/smjs/ |
| H A D | jsexn.c | 1140 static struct exnname { char *name; char *exception; } errortoexnname[] = { struct
|
| /dports/multimedia/avidemux-cli/avidemux_2.7.6/avidemux_plugins/ADM_scriptEngines/spiderMonkey/src/smjs/ |
| H A D | jsexn.c | 1140 static struct exnname { char *name; char *exception; } errortoexnname[] = { argument
|
| /dports/multimedia/avidemux/avidemux_2.7.6/avidemux_plugins/ADM_scriptEngines/spiderMonkey/src/smjs/ |
| H A D | jsexn.c | 1140 static struct exnname { char *name; char *exception; } errortoexnname[] = { struct
|
| /dports/multimedia/avidemux-plugins/avidemux_2.7.6/avidemux_plugins/ADM_scriptEngines/spiderMonkey/src/smjs/ |
| H A D | jsexn.c | 1140 static struct exnname { char *name; char *exception; } errortoexnname[] = { struct
|
| /dports/lang/spidermonkey17/js/src/ |
| H A D | jsexn.c | 1140 static struct exnname { char *name; char *exception; } errortoexnname[] = { struct
|
| /dports/lang/mosml/mosml-ver-2.10.1/src/notes/ |
| H A D | TODO | 40 prim_val exnname : exn -> string = 1 "sml_exnname";
75 location. How fix it? Translate the exnname accesses early, and
|