diff options
| author | Akira TAGOH <akira@tagoh.org> | 2006-05-05 04:12:26 +0000 |
|---|---|---|
| committer | Akira TAGOH <akira@tagoh.org> | 2006-05-05 04:12:26 +0000 |
| commit | abd5557c7dc809895177893ccf5dce2b4200b141 (patch) | |
| tree | ef5f5e18f662ad1a0087ad4507380e9b742a35f4 /lib | |
| parent | 3c08c1e02ff4333731622cdf7d42c1395853f015 (diff) | |
* hieroglyph/hgdict.c (hg_dict_insert_forcibly): clean up.
* hieroglyph/hgarray.c (hg_array_replace_forcibly): clean up.
* hieroglyph/hgmem.c (hg_mem_pool_is_own_object): always return true
if current allocation mode is local.
* lib/hg_init.ps (.defaulterrorhandler): enter the local allocation
mode in advance to avoid /invalidaccess again.
* libretto/operator.c (_libretto_operator_op_astore): check
the allocation mode before an warning is output.
(_libretto_operator_op_put): likewise.
(_libretto_operator_op_private_dicttomark): likewise.
(_libretto_operator_op_def): likewise.
(_libretto_operator_op_private_hg_abort): possibly avoid /VMerror twice.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/hg_init.ps | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/hg_init.ps b/lib/hg_init.ps index 579437f..17e3b6e 100644 --- a/lib/hg_init.ps +++ b/lib/hg_init.ps @@ -199,8 +199,9 @@ systemdict /.statementedit known { } bind def % <command> <error> .defaulterrorhandler - /.defaulterrorhandler { - .seterror + % enter the local allocation mode in advance to avoid /invalidaccess again. false .setglobal + .seterror stop } bind def % - handleerror - |