Skip to content

gforth
gforth
Commit 4dd816ca authored by Bernd Paysan's avatar Bernd Paysan
Browse files
Options

Align LP stack for 32 bits in the new code

parent b37aa080
Pipeline #876 passed with stage
    in 10 minutes and 12 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 1 addition and 0 deletions
    kernel/int.fs
    View file @ 4dd816ca
    ...@@ -585,6 +585,7 @@ defer int-execute ( ... xt -- ... ) ...@@ -585,6 +585,7 @@ defer int-execute ( ... xt -- ... )
    : interpret ( ... -- ... ) \ gforth : interpret ( ... -- ... ) \ gforth
    \ interpret/compile the (rest of the) input buffer \ interpret/compile the (rest of the) input buffer
    [ cell 4 = [IF] ] false >l [ [THEN] ] \ align LP stack for 32 bit engine
    r> >l rp@ backtrace-rp0 ! r> >l rp@ backtrace-rp0 !
    [ has? EC 0= [IF] ] before-line [ [THEN] ] [ has? EC 0= [IF] ] before-line [ [THEN] ]
    BEGIN BEGIN
    ......
    Markdown is supported
    0% or
    You are about to add 0 people to the discussion. Proceed with caution.
    Finish editing this message first!
    Please register or to comment