github.com/mikpe.pdp10-tools
1
0
Fork 0
mirror of https://github.com/mikpe/pdp10-tools.git synced 2026-01-23 10:59:42 +00:00
Code Issues Projects Releases Wiki Activity

as: assemble: process stmts in dot order

Browse Source
This commit is contained in:
Mikael Pettersson 2020-02-02 18:14:41 +01:00
parent d6eef91276
commit e8ecd6126f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
erlang/apps/as/src/assemble.erl
View File

@ -65,7 +65,7 @@ section(Section, Tunit) ->
%% The image starts with a NUL, followed by the strings, all NUL-terminated.
comment(Section = #section{data = {stmts, Stmts}}, Tunit) ->
Image = comment_image(Stmts),
Image = comment_image(lists:reverse(Stmts)),
NewSection = Section#section{data = {image, Image}, dot = image_size(Image)},
{ok, tunit:put_section(Tunit, NewSection)}.
@ -87,7 +87,7 @@ image_size(TByte, Acc) when is_integer(TByte), 0 =< TByte, TByte =< 511 ->
%% Assemble user-defined contents ----------------------------------------------
stmts(Section = #section{data = {stmts, Stmts}}, Tunit) ->
case stmts_image(Stmts, Tunit) of
case stmts_image(lists:reverse(Stmts), Tunit) of
{ok, Image} ->
{ok, tunit:put_section(Tunit, Section#section{data = {image, Image}})};
{error, _Reason} = Error -> Error
@ -95,7 +95,7 @@ stmts(Section = #section{data = {stmts, Stmts}}, Tunit) ->
stmts_image(Stmts, Tunit) -> stmts_image(Stmts, Tunit, []).
stmts_image([], _Tunit, Acc) -> {ok, Acc}; % the input Stmts were in reverse order
stmts_image([], _Tunit, Acc) -> {ok, lists:reverse(Acc)};
stmts_image([Stmt | Stmts], Tunit, Acc) ->
case stmt_image(Stmt, Tunit) of
{ok, Image} -> stmts_image(Stmts, Tunit, [Image | Acc]);