All implementations of (+LOOP) are broken #10

krisbug commented 2026年01月23日 17:44:51 +01:00

arch/c's (+LOOP) and the fallback in src/forth/core fail the following tests:

TESTING DO +LOOP with large and small increments
INCORRECT RESULT: T{ 0 MAX-UINT 0 USTEP GD8 -> 256 }T
INCORRECT RESULT: T{ 0 0 MAX-UINT -USTEP GD8 -> 256 }T
INCORRECT RESULT: T{ 0 MAX-INT MIN-INT STEP GD8 -> 256 }T
INCORRECT RESULT: T{ 0 MIN-INT MAX-INT -STEP GD8 -> 256 }T
INCORRECT RESULT: T{ 0 0 0 USTEP +UWRAP? 256 GD9
TESTING DO +LOOP with maximum and minimum increments
INCORRECT RESULT: T{ 0 -MAX-INT NEGATE -MAX-INT OVER GD8 -> 2 }T
INCORRECT RESULT: T{ 0 MIN-INT 1+ 1 MIN-INT GD8 -> 2 }T

arch/c's (+LOOP) and the fallback in src/forth/core fail the following tests: ``` TESTING DO +LOOP with large and small increments INCORRECT RESULT: T{ 0 MAX-UINT 0 USTEP GD8 -> 256 }T INCORRECT RESULT: T{ 0 0 MAX-UINT -USTEP GD8 -> 256 }T INCORRECT RESULT: T{ 0 MAX-INT MIN-INT STEP GD8 -> 256 }T INCORRECT RESULT: T{ 0 MIN-INT MAX-INT -STEP GD8 -> 256 }T INCORRECT RESULT: T{ 0 0 0 USTEP +UWRAP? 256 GD9 TESTING DO +LOOP with maximum and minimum increments INCORRECT RESULT: T{ 0 -MAX-INT NEGATE -MAX-INT OVER GD8 -> 2 }T INCORRECT RESULT: T{ 0 MIN-INT 1+ 1 MIN-INT GD8 -> 2 }T ```