ref: b7ecf84c597a332ae0c1bb1534b61cfed573c92c
parent: 8a6851fa526de6f5dcf5ddabb5609f3a85929e6f
author: sirjofri <[email protected]>
date: Sat Feb 17 15:34:26 EST 2024
adds rudimentary (and buggy) support for OpEntryPoint and a few other important instructions
--- a/dops.c
+++ b/dops.c
@@ -6,6 +6,38 @@
extern int debug;
+char *executionmodel[] = {
+ "Vertex",
+ "TessellationControl",
+ "TessellationEvaluation",
+ "Geometry",
+ "Fragment",
+ "GLCompute",
+ "Kernel",
+ nil
+};
+
+char*
+getexecutionmodel(u32int i)
+{
+ if (i >= sizeof(executionmodel))
+ return nil;
+ return executionmodel[i];
+}
+
+char*
+getfunctioncontrol(u32int i)
+{
+ switch (i) {
+ case 0x0: return "None";
+ case 0x2: return "DontInline";
+ case 0x4: return "Pure";
+ case 0x8: return "Const";
+ case 0x10000: return "OptNoneINTEL";
+ }
+ return nil;
+}
+
void
printresult(int should, uint varid)
{
@@ -15,7 +47,7 @@
print("%10s ", " ");
return;
}
- s = smprint("$%d", varid);
+ s = smprint("%%%d", varid);
print("%10s = ", s);
free(s);
}
@@ -66,7 +98,7 @@
u32int tlen = f->pc[3];
printresult(1, varid);
- print("OpTypeFloat $%d %d\n", ttype, tlen);
+ print("OpTypeFloat %%%d %d\n", ttype, tlen);
}
void
@@ -77,7 +109,7 @@
u32int tlen = f->pc[3];
printresult(1, varid);
- print("OpTypeFloat $%d %d\n", ctype, tlen);
+ print("OpTypeFloat %%%d %d\n", ctype, tlen);
}
void
@@ -89,7 +121,7 @@
nameadd(varid, varname);
printresult(0, 0);
- print("OpName $%d \"%s\"\n", varid, varname);
+ print("OpName %%%d \"%s\"\n", varid, varname);
}
void
@@ -135,30 +167,85 @@
u32int varid = f->pc[1];
u32int rettype = f->pc[2];
u32int* argv = &f->pc[3];
- u32int argc = len - 2;
+ u32int argc = len - 3;
printresult(1, varid);
- print("OpTypeFunction $%d", rettype);
+ print("OpTypeFunction %%%d", rettype);
for (int i = 0; i < argc; i++) {
u32int v = argv[i];
- print(" $%d", v);
+ print(" %%%d", v);
}
print("\n");
}
+void
+OpEntryPoint(Frame *f, u32int len)
+{
+ u32int emodel = f->pc[1];
+ u32int epoint = f->pc[2];
+ char *name = (char*)&f->pc[3];
+ int l = strlen(name)+1;
+ l = (l%4 == 0 ? l/4 : l/4+1);
+ u32int *argv = &f->pc[l+3];
+ u32int argc = len - (l+2);
+
+ printresult(0, 0);
+ print("OpEntryPoint %s %%%d \"%s\"", getexecutionmodel(emodel), epoint, name);
+
+ for (int i = 0; i < argc; i++) {
+ u32int v = argv[i];
+ print(" %%%d", v);
+ }
+ print("\n");
+}
+
+void
+OpFunction(Frame *f, u32int)
+{
+ u32int result = f->pc[1];
+ u32int retvar = f->pc[2];
+ u32int fctl = f->pc[3];
+ u32int ftype = f->pc[4];
+
+ printresult(1, result);
+ print("OpFunction %%%d %s %%%d\n",
+ retvar,
+ getfunctioncontrol(fctl),
+ ftype);
+}
+
+void
+OpFunctionEnd(Frame*, u32int)
+{
+ printresult(0, 0);
+ print("OpFunctionEnd\n");
+}
+
+void
+OpLabel(Frame *f, u32int)
+{
+ u32int retvar = f->pc[1];
+ printresult(1, retvar);
+ print("OpLabel\n");
+}
+
Op oplist[] = {
- { 1, OpUndef },
- { 3, OpSource },
- { 5, OpName },
- { 19, OpTypeVoid },
- { 20, OpTypeBool },
- { 21, OpTypeInt },
- { 22, OpTypeFloat },
- { 23, OpTypeVector },
- { 24, OpTypeMatrix },
- { 33, OpTypeFunction },
- { nil, OpNop },
+ { 1, OpUndef },
+ { 3, OpSource },
+ { 5, OpName },
+ { 15, OpEntryPoint },
+ { 19, OpTypeVoid },
+ { 20, OpTypeBool },
+ { 21, OpTypeInt },
+ { 22, OpTypeFloat },
+ { 23, OpTypeVector },
+ { 24, OpTypeMatrix },
+ { 33, OpTypeFunction },
+ { 54, OpFunction },
+ { 56, OpFunctionEnd },
+ { 248, OpLabel },
+ { nil, OpNop },
};
int