From 3a3220a049b9fef67ca0f85542654ab0a9de0914 Mon Sep 17 00:00:00 2001 From: Vladimir Azarov Date: Wed, 6 Aug 2025 05:14:27 +0200 Subject: Most of conversion to il --- emit.fun | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'emit.fun') diff --git a/emit.fun b/emit.fun index cb77061..05e84f0 100644 --- a/emit.fun +++ b/emit.fun @@ -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 -- cgit v1.2.3