Commit ddd68e60 authored by simonmar's avatar simonmar
Browse files

[project @ 2002-03-13 13:48:32 by simonmar]

Cope with VoidRep fields in a static constructor.
parent eb7d1ef7
......@@ -231,10 +231,13 @@ Here we handle top-level things, like @CCodeBlock@s and
= returnUs (\xs -> table ++ xs)
table = StData PtrRep [StCLbl (infoTableLabelFromCI cl_info)] :
map do_one_amode amodes
foldr do_one_amode [] amodes
do_one_amode amode
= StData (promote_to_word (getAmodeRep amode)) [a2stix amode]
do_one_amode amode rest
| rep == VoidRep = rest
| otherwise = StData (promote_to_word rep) [a2stix amode] : rest
rep = getAmodeRep amode
-- We need to promote any item smaller than a word to a word
promote_to_word pk
Supports Markdown
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