diff options
author | Vladimir Azarov <avm@intermediate-node.net> | 2025-08-06 05:14:27 +0200 |
---|---|---|
committer | Vladimir Azarov <avm@intermediate-node.net> | 2025-08-06 05:14:27 +0200 |
commit | 3a3220a049b9fef67ca0f85542654ab0a9de0914 (patch) | |
tree | 73a82d2579f74c02fb9a227e66f4ef219d44182f /emit.fun | |
parent | a4c60603f61dd1a9f0ce420be9067965586dd694 (diff) |
Most of conversion to il
Diffstat (limited to 'emit.fun')
-rw-r--r-- | emit.fun | 8 |
1 files changed, 1 insertions, 7 deletions
@@ -55,10 +55,6 @@ functor Emit(I: IL) = struct fprint `cmd `" " W w % end - fun emitScalarIni size w = ( - fprint `"\t" %; dd size w; fprint `"\n" % - ) - fun emitAggrLayout id = let val (_, size, layout) = D.get P.iniLayouts id @@ -93,13 +89,11 @@ functor Emit(I: IL) = struct fun emitLayout (id, _, t, ini, _) = let val align = P.alignOfType t - val size = P.sizeOfType t val () = fprinttn `"align\t" W align % val () = fprint PP.? id `":" % in case ini of - P.CiniConst w => emitScalarIni size w - | P.CiniLayout id => emitAggrLayout id + P.CiniLayout id => emitAggrLayout id | P.CiniExpr _ => raise Unreachable end in |