What's wrong with your HEAD?

[DavidM]

(10-08-2018 03:42 PM)David Hayden Wrote:  How about this instead:

Code:

::
  CK1&Dispatch
  BINT5
  ::
    DUPNULLCOMP?
    NOTcase CARCOMP
    # 501
    ERROROUT
  ;
;

This is shorter and probably faster in the expected case because it doesn't have to skip the secondary for the error case.

That's a nice optimization!

It's similar to what I tested on the emulator when I posted the previous message, just in a reversed form:

Code:

::
  CK1&Dispatch
  list ::
    DUPNULLCOMP? case FLASHPTR ErrBadDim
    CARCOMP
  ;
;

For comparison to a similarly-modified version of Werner's code which doesn't include string support:

Code:

::
  CK1&Dispatch
  list ::
    >R
    ticR ITE
      RDROP
      FLASHPTR ErrBadDim
  ;
;

At least on my emulated 50g, their performance is equivalent. I'll check on real hardware later today (I hope).

Any other optimizations jump out?