touched up primitive failure handling in exec.c

This commit is contained in:
hyunghwan.chung
2017-05-08 16:00:55 +00:00
parent 95f3df6424
commit a1782753a9
8 changed files with 124 additions and 132 deletions

View File

@ -413,8 +413,23 @@ class ProhibitedMessageException(Exception)
extend Apex
{
method(#dual) primitiveFailed
method(#dual,#variadic) primitiveFailed()
{
| a b |
thisContext vargCount dump.
a := 1.
b := thisContext vargCount.
'PRIMITIVE FAILED............................................' dump.
self dump.
while (a < b)
{
(thisContext vargAt: a) dump.
a := a + 1.
}.
('PRIMITIVE FAILED....' & (thisContext vargAt: 0)) dump.
PrimitiveFailureException signal: 'PRIMITIVE FAILED'.
}