Skip to content
Snippets Groups Projects
Verified Commit 832093d4 authored by Moritz Angermann's avatar Moritz Angermann
Browse files

Adds `.string` and `.stringz` directives. Both without `\0` terminator.

parent 5b4bf845
No related branches found
No related tags found
No related merge requests found
......@@ -92,6 +92,11 @@ preprocess ('\t':attr) = let (h, t) = break isSpace attr
(".ascii":x:_) -> [mkAscii $ read x]
(".asciz":x:_) -> [mkAscii $ read x ++ "\0"]
-- found on nios, sh4, alpha, mk68k; all without \0.
(".string":x:_) -> [mkAscii $ read x ++ "\0"]
-- found on hppa
(".stringz":x:_) -> [mkAscii $ read x ++ "\0"]
-- ia64
("stringz":x:_) -> [mkAscii $ read x ++ "\0"]
_ -> []
where w = head . words
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment