t_del_reading(GapIO *io, int num) {
char gel[4096+1];
GReadings r;
io_deallocate_reading(io, num);
gel_read(io, NumReadings(io), r);
gel_write(io, num, r);
NumReadings(io)--;
Nreadings(io)--; /* GBUG: shouldn't be needed */
deallocate(io, arr(GCardinal, io->readings, Nreadings(io)));
/* YUK! should write database record back */
GT_Write(io,GR_Database,&io->db,sizeof(io->db),GT_Database);
/* write array */
ArrayWrite(io, io->db.readings, io->db.Nreadings, io->readings);
}
void Rebuild_Main()
{
ArrayInit(&RebuildArray, sizeof(char), 0);
ArrayInit(&LabelDone, sizeof(char), 0);
lastfileno = -1;
Rebuild_Mode = 1;
RebuildEmit("//****************************************\n");
RebuildEmit("// Generated code\n");
RebuildEmit("//****************************************\n\n");
RebuildEmit(".lfile 'rebuild.s'\n");
RebuildEmit(".code\n");
Rebuild_Code();
RebuildEmit(".data\n");
Rebuild_Memory();
ArrayWrite(&RebuildArray, "rebuild.s");
}
void RebuildCpp_Main()
{
if (ArgConstOpt != 0)
Error(Error_System, "(RebuildCpp_Main) ArgConstOpt must be switched off");
#ifdef CPP_SHOW_LINES
InitFiles();
#endif
ArrayInit(&RebuildArray, sizeof(char), 0);
ArrayInit(&LabelDone, sizeof(char), 0);
memset(CppSyscallUsed, 0, sizeof(CppSyscallUsed));
CppForceSysCallUsed("RBYTE");
CppForceSysCallUsed("WBYTE");
Rebuild_Mode = 1;
CppUsedCallReg = 0;
RebuildEmit("//****************************************\n");
RebuildEmit("// Generated Cpp code\n");
RebuildEmit("//****************************************\n");
RebuildEmit("\n");
RebuildEmit("#include \"mstypeinfo.h\"\n");
RebuildEmit("\n");
#if 0 //My Testing only
RebuildCpp_EmitExtensionsProto();
#endif
RebuildCpp_EmitProtos();
// RebuildCpp_EmitDS();
// RebuildEmit("class MoSyncCode\n");
// RebuildEmit("{\n");
// RebuildEmit("\n"); // Out in .h file
// RebuildEmit("int sp;\n");
// RebuildEmit("int __dbl_high;\n");
RebuildEmit("\n");
// RebuildCpp_EmitDS();
RebuildCpp_StartUp();
MaxEnumLabel = 0;
RebuildCpp_Code();
//RebuildCpp_EmitExtensions(1);
RebuildCpp_CallReg();
// RebuildEmit("}; // End of MosyncCode class\n");
// RebuildEmit("// MaxEnumLabel=%d\n", MaxEnumLabel);
// RebuildCpp_FlowClass();
#ifdef CPP_SHOW_LINES
FreeFiles();
#endif
ArrayWrite(&RebuildArray, "rebuild.build.cpp");
}
