move lots of source files around to match their actual placement in the original treemain

1 files changed, 0 insertions, 1488 deletions

diff --git a/compiler_and_linker/unsorted/CMachine.c b/compiler_and_linker/unsorted/CMachine.c
deleted file mode 100644
index bfa7023..0000000
--- a/compiler_and_linker/unsorted/CMachine.c
+++ /dev/null
@@ -1,1488 +0,0 @@
-#include "compiler/CMachine.h"
-#include "compiler/CClass.h"
-#include "compiler/CError.h"
-#include "compiler/CInt64.h"
-#include "compiler/CParser.h"
-#include "compiler/CPrep.h"
-#include "compiler/CPrepTokenizer.h"
-#include "compiler/CompilerTools.h"
-#include "compiler/ScanFloat.h"
-#include "compiler/objects.h"
-#include "compiler/types.h"
-
-TypeIntegral stbool = {TYPEINT, 1, IT_BOOL};
-TypeIntegral stchar = {TYPEINT, 1, IT_CHAR};
-TypeIntegral stsignedchar = {TYPEINT, 1, IT_SCHAR};
-TypeIntegral stunsignedchar = {TYPEINT, 1, IT_UCHAR};
-TypeIntegral stwchar = {TYPEINT, 4, IT_WCHAR_T};
-TypeIntegral stsignedshort = {TYPEINT, 2, IT_SHORT};
-TypeIntegral stunsignedshort = {TYPEINT, 2, IT_USHORT};
-TypeIntegral stsignedint = {TYPEINT, 4, IT_INT};
-TypeIntegral stunsignedint = {TYPEINT, 4, IT_UINT};
-TypeIntegral stsignedlong = {TYPEINT, 4, IT_LONG};
-TypeIntegral stunsignedlong = {TYPEINT, 4, IT_ULONG};
-TypeIntegral stsignedlonglong = {TYPEINT, 8, IT_LONGLONG};
-TypeIntegral stunsignedlonglong = {TYPEINT, 8, IT_ULONGLONG};
-TypeIntegral stfloat = {TYPEFLOAT, 4, IT_FLOAT};
-TypeIntegral stshortdouble = {TYPEFLOAT, 8, IT_SHORTDOUBLE};
-TypeIntegral stdouble = {TYPEFLOAT, 8, IT_DOUBLE};
-TypeIntegral stlongdouble = {TYPEFLOAT, 8, IT_LONGDOUBLE};
-
-static StructMember stVUC_unsignedchar15 = {NULL, (Type *) &stunsignedchar, NULL, 15, 0};
-static StructMember stVUC_unsignedchar14 = {&stVUC_unsignedchar15, (Type *) &stunsignedchar, NULL, 14, 0};
-static StructMember stVUC_unsignedchar13 = {&stVUC_unsignedchar14, (Type *) &stunsignedchar, NULL, 13, 0};
-static StructMember stVUC_unsignedchar12 = {&stVUC_unsignedchar13, (Type *) &stunsignedchar, NULL, 12, 0};
-static StructMember stVUC_unsignedchar11 = {&stVUC_unsignedchar12, (Type *) &stunsignedchar, NULL, 11, 0};
-static StructMember stVUC_unsignedchar10 = {&stVUC_unsignedchar11, (Type *) &stunsignedchar, NULL, 10, 0};
-static StructMember stVUC_unsignedchar9 = {&stVUC_unsignedchar10, (Type *) &stunsignedchar, NULL, 9, 0};
-static StructMember stVUC_unsignedchar8 = {&stVUC_unsignedchar9, (Type *) &stunsignedchar, NULL, 8, 0};
-static StructMember stVUC_unsignedchar7 = {&stVUC_unsignedchar7, (Type *) &stunsignedchar, NULL, 7, 0};
-static StructMember stVUC_unsignedchar6 = {&stVUC_unsignedchar7, (Type *) &stunsignedchar, NULL, 6, 0};
-static StructMember stVUC_unsignedchar5 = {&stVUC_unsignedchar6, (Type *) &stunsignedchar, NULL, 5, 0};
-static StructMember stVUC_unsignedchar4 = {&stVUC_unsignedchar5, (Type *) &stunsignedchar, NULL, 4, 0};
-static StructMember stVUC_unsignedchar3 = {&stVUC_unsignedchar4, (Type *) &stunsignedchar, NULL, 3, 0};
-static StructMember stVUC_unsignedchar2 = {&stVUC_unsignedchar3, (Type *) &stunsignedchar, NULL, 2, 0};
-static StructMember stVUC_unsignedchar1 = {&stVUC_unsignedchar2, (Type *) &stunsignedchar, NULL, 1, 0};
-static StructMember stVUC_unsignedchar0 = {&stVUC_unsignedchar1, (Type *) &stunsignedchar, NULL, 0, 0};
-
-static StructMember stVSC_signedchar15 = {NULL, (Type *) &stsignedchar, NULL, 15, 0};
-static StructMember stVSC_signedchar14 = {&stVSC_signedchar15, (Type *) &stsignedchar, NULL, 14, 0};
-static StructMember stVSC_signedchar13 = {&stVSC_signedchar14, (Type *) &stsignedchar, NULL, 13, 0};
-static StructMember stVSC_signedchar12 = {&stVSC_signedchar13, (Type *) &stsignedchar, NULL, 12, 0};
-static StructMember stVSC_signedchar11 = {&stVSC_signedchar12, (Type *) &stsignedchar, NULL, 11, 0};
-static StructMember stVSC_signedchar10 = {&stVSC_signedchar11, (Type *) &stsignedchar, NULL, 10, 0};
-static StructMember stVSC_signedchar9 = {&stVSC_signedchar10, (Type *) &stsignedchar, NULL, 9, 0};
-static StructMember stVSC_signedchar8 = {&stVSC_signedchar9, (Type *) &stsignedchar, NULL, 8, 0};
-static StructMember stVSC_signedchar7 = {&stVSC_signedchar7, (Type *) &stsignedchar, NULL, 7, 0};
-static StructMember stVSC_signedchar6 = {&stVSC_signedchar7, (Type *) &stsignedchar, NULL, 6, 0};
-static StructMember stVSC_signedchar5 = {&stVSC_signedchar6, (Type *) &stsignedchar, NULL, 5, 0};
-static StructMember stVSC_signedchar4 = {&stVSC_signedchar5, (Type *) &stsignedchar, NULL, 4, 0};
-static StructMember stVSC_signedchar3 = {&stVSC_signedchar4, (Type *) &stsignedchar, NULL, 3, 0};
-static StructMember stVSC_signedchar2 = {&stVSC_signedchar3, (Type *) &stsignedchar, NULL, 2, 0};
-static StructMember stVSC_signedchar1 = {&stVSC_signedchar2, (Type *) &stsignedchar, NULL, 1, 0};
-static StructMember stVSC_signedchar0 = {&stVSC_signedchar1, (Type *) &stsignedchar, NULL, 0, 0};
-
-static StructMember stVUS_unsignedshort7 = {NULL, (Type *) &stunsignedshort, NULL, 14, 0};
-static StructMember stVUS_unsignedshort6 = {&stVUS_unsignedshort7, (Type *) &stunsignedshort, NULL, 12, 0};
-static StructMember stVUS_unsignedshort5 = {&stVUS_unsignedshort7, (Type *) &stunsignedshort, NULL, 10, 0};
-static StructMember stVUS_unsignedshort4 = {&stVUS_unsignedshort5, (Type *) &stunsignedshort, NULL, 8, 0};
-static StructMember stVUS_unsignedshort3 = {&stVUS_unsignedshort4, (Type *) &stunsignedshort, NULL, 6, 0};
-static StructMember stVUS_unsignedshort2 = {&stVUS_unsignedshort3, (Type *) &stunsignedshort, NULL, 4, 0};
-static StructMember stVUS_unsignedshort1 = {&stVUS_unsignedshort2, (Type *) &stunsignedshort, NULL, 2, 0};
-static StructMember stVUS_unsignedshort0 = {&stVUS_unsignedshort1, (Type *) &stunsignedshort, NULL, 0, 0};
-
-static StructMember stVSS_signedshort7 = {NULL, (Type *) &stsignedshort, NULL, 14, 0};
-static StructMember stVSS_signedshort6 = {&stVSS_signedshort7, (Type *) &stsignedshort, NULL, 12, 0};
-static StructMember stVSS_signedshort5 = {&stVSS_signedshort7, (Type *) &stsignedshort, NULL, 10, 0};
-static StructMember stVSS_signedshort4 = {&stVSS_signedshort5, (Type *) &stsignedshort, NULL, 8, 0};
-static StructMember stVSS_signedshort3 = {&stVSS_signedshort4, (Type *) &stsignedshort, NULL, 6, 0};
-static StructMember stVSS_signedshort2 = {&stVSS_signedshort3, (Type *) &stsignedshort, NULL, 4, 0};
-static StructMember stVSS_signedshort1 = {&stVSS_signedshort2, (Type *) &stsignedshort, NULL, 2, 0};
-static StructMember stVSS_signedshort0 = {&stVSS_signedshort1, (Type *) &stsignedshort, NULL, 0, 0};
-
-static StructMember stVUL_unsignedlong3 = {NULL, (Type *) &stunsignedlong, NULL, 12, 0};
-static StructMember stVUL_unsignedlong2 = {&stVUL_unsignedlong3, (Type *) &stunsignedlong, NULL, 8, 0};
-static StructMember stVUL_unsignedlong1 = {&stVUL_unsignedlong2, (Type *) &stunsignedlong, NULL, 4, 0};
-static StructMember stVUL_unsignedlong0 = {&stVUL_unsignedlong1, (Type *) &stunsignedlong, NULL, 0, 0};
-
-static StructMember stVSL_signedlong3 = {NULL, (Type *) &stsignedlong, NULL, 12, 0};
-static StructMember stVSL_signedlong2 = {&stVSL_signedlong3, (Type *) &stsignedlong, NULL, 8, 0};
-static StructMember stVSL_signedlong1 = {&stVSL_signedlong2, (Type *) &stsignedlong, NULL, 4, 0};
-static StructMember stVSL_signedlong0 = {&stVSL_signedlong1, (Type *) &stsignedlong, NULL, 0, 0};
-
-static StructMember stVF_float3 = {NULL, (Type *) &stfloat, NULL, 12, 0};
-static StructMember stVF_float2 = {&stVF_float3, (Type *) &stfloat, NULL, 8, 0};
-static StructMember stVF_float1 = {&stVF_float2, (Type *) &stfloat, NULL, 4, 0};
-static StructMember stVF_float0 = {&stVF_float1, (Type *) &stfloat, NULL, 0, 0};
-
-TypeStruct stvectorunsignedchar = {TYPESTRUCT, 16, NULL, &stVUC_unsignedchar0, STRUCT_VECTOR_UCHAR, 16};
-TypeStruct stvectorsignedchar = {TYPESTRUCT, 16, NULL, &stVSC_signedchar0, STRUCT_VECTOR_SCHAR, 16};
-TypeStruct stvectorboolchar = {TYPESTRUCT, 16, NULL, &stVSC_signedchar0, STRUCT_VECTOR_BCHAR, 16};
-
-TypeStruct stvectorunsignedshort = {TYPESTRUCT, 16, NULL, &stVUS_unsignedshort0, STRUCT_VECTOR_USHORT, 16};
-TypeStruct stvectorsignedshort = {TYPESTRUCT, 16, NULL, &stVSS_signedshort0, STRUCT_VECTOR_SSHORT, 16};
-TypeStruct stvectorboolshort = {TYPESTRUCT, 16, NULL, &stVSS_signedshort0, STRUCT_VECTOR_BSHORT, 16};
-
-TypeStruct stvectorunsignedlong = {TYPESTRUCT, 16, NULL, &stVUL_unsignedlong0, STRUCT_VECTOR_UINT, 16};
-TypeStruct stvectorsignedlong = {TYPESTRUCT, 16, NULL, &stVSL_signedlong0, STRUCT_VECTOR_SINT, 16};
-TypeStruct stvectorboollong = {TYPESTRUCT, 16, NULL, &stVSL_signedlong0, STRUCT_VECTOR_BINT, 16};
-
-TypeStruct stvectorfloat = {TYPESTRUCT, 16, NULL, &stVF_float0, STRUCT_VECTOR_FLOAT, 16};
-
-TypeStruct stvectorpixel = {TYPESTRUCT, 16, NULL, &stVUS_unsignedshort0, STRUCT_VECTOR_PIXEL, 16};
-
-TypeStruct stvector = {TYPESTRUCT, 16, NULL, NULL, STRUCT_VECTOR_UINT, 16};
-
-static SInt32 cmach_structoffset;
-static UInt8 cmach_structalign;
-static short cmach_curbfsize;
-static short cmach_curbfbasesize;
-static int cmach_curbfoffset;
-
-static short cmach_packsize[] = {
-        1, 2, 4, 8, 16
-};
-
-// forward declarations
-static SInt16 CMach_GetQualifiedTypeAlign(Type *type, Boolean flag);
-static SInt16 CMach_GetMemberAlignment(Type *type, SInt32 align, Boolean flag);
-
-void CMach_Configure(void) {
-}
-
-SInt32 CMach_GetQUALalign(UInt32 qual) {
-    SInt32 result = 0;
-    UInt32 chk;
-
-    if ((chk = (qual & Q_ALIGNED_MASK))) {
-        if (chk == Q_ALIGNED_1)
-            result = 1;
-        else if (chk == Q_ALIGNED_2)
-            result = 2;
-        else if (chk == Q_ALIGNED_4)
-            result = 4;
-        else if (chk == Q_ALIGNED_8)
-            result = 8;
-        else if (chk == Q_ALIGNED_16)
-            result = 16;
-        else if (chk == Q_ALIGNED_32)
-            result = 32;
-        else if (chk == Q_ALIGNED_64)
-            result = 64;
-        else if (chk == Q_ALIGNED_128)
-            result = 128;
-        else if (chk == Q_ALIGNED_256)
-            result = 256;
-        else if (chk == Q_ALIGNED_512)
-            result = 512;
-        else if (chk == Q_ALIGNED_1024)
-            result = 1024;
-        else if (chk == Q_ALIGNED_2048)
-            result = 2048;
-        else if (chk == Q_ALIGNED_4096)
-            result = 4096;
-        else if (chk == Q_ALIGNED_8192)
-            result = 8192;
-        else
-            CError_FATAL(226);
-    }
-
-    return result;
-}
-
-SInt32 CMach_ArgumentAlignment(Type *type) {
-    char save_align_mode;
-    UInt8 save_oldalignment;
-    SInt32 align;
-
-    save_align_mode = copts.structalignment;
-    save_oldalignment = copts.oldalignment;
-    copts.structalignment = AlignMode2_PPC;
-    copts.oldalignment = 0;
-    align = CMach_GetQualifiedTypeAlign(type, 0);
-    copts.structalignment = save_align_mode;
-    copts.oldalignment = save_oldalignment;
-
-    if (type->type == TYPESTRUCT && !TYPE_STRUCT(type)->members) {
-        if (TYPE_STRUCT(type)->align > align)
-            return TYPE_STRUCT(type)->align;
-        else
-            return align;
-    } else {
-        return align;
-    }
-}
-
-// TODO: investigate if this returns SInt16 actually
-SInt32 CMach_AllocationAlignment(Type *type, UInt32 qual) {
-    SInt32 align;
-    SInt32 qualalign;
-    SInt32 argalign;
-    SInt32 anotheralign;
-
-    qualalign = CMach_GetQUALalign(qual);
-    align = CMach_GetQualifiedTypeAlign(type, 1);
-    if (qualalign > align)
-        align = qualalign;
-    argalign = CMach_ArgumentAlignment(type);
-    if (argalign > align)
-        align = argalign;
-
-    switch (type->type) {
-        case TYPEVOID:
-        case TYPEMEMBERPOINTER:
-        case TYPEPOINTER:
-            anotheralign = 4;
-            break;
-        default:
-            anotheralign = 1;
-    }
-    if (anotheralign > align)
-        align = anotheralign;
-
-    if (copts.optimizationlevel > 0) {
-        if (type->type == TYPEARRAY || (type->type == TYPESTRUCT && (TYPE_STRUCT(type)->stype < STRUCT_VECTOR_UCHAR || TYPE_STRUCT(type)->stype > STRUCT_VECTOR_PIXEL)) || type->type == TYPECLASS || (type->type == TYPEMEMBERPOINTER && (UInt32) type->size == 12)) {
-            return (copts.min_struct_alignment > align) ? copts.min_struct_alignment : align;
-        }
-    }
-
-    return align;
-}
-
-CInt64 CMach_CalcIntDiadic(Type *type, CInt64 left, short op, CInt64 right) {
-    if (is_unsigned(type)) {
-        switch (type->size) {
-            case 1:
-                CInt64_ConvertUInt8(&left);
-                CInt64_ConvertUInt8(&right);
-                break;
-            case 2:
-                CInt64_ConvertUInt16(&left);
-                CInt64_ConvertUInt16(&right);
-                break;
-            case 4:
-                CInt64_ConvertUInt32(&left);
-                CInt64_ConvertUInt32(&right);
-                break;
-            case 8:
-                break;
-            default:
-                CError_FATAL(327);
-        }
-
-        switch (op) {
-            case '*':
-                left = CInt64_MulU(left, right);
-                break;
-            case '/':
-                if (CInt64_IsZero(&right))
-                    CError_Warning(CErrorStr139);
-                else
-                    left = CInt64_DivU(left, right);
-                break;
-            case '%':
-                if (CInt64_IsZero(&right))
-                    CError_Warning(CErrorStr139);
-                else
-                    left = CInt64_ModU(left, right);
-                break;
-            case '+':
-                left = CInt64_Add(left, right);
-                break;
-            case '-':
-                left = CInt64_Sub(left, right);
-                break;
-            case TK_SHL:
-                left = CInt64_Shl(left, right);
-                break;
-            case TK_SHR:
-                left = CInt64_ShrU(left, right);
-                break;
-            case '<':
-                CInt64_SetLong(&left, CInt64_LessU(left, right));
-                break;
-            case '>':
-                CInt64_SetLong(&left, CInt64_GreaterU(left, right));
-                break;
-            case TK_LESS_EQUAL:
-                CInt64_SetLong(&left, CInt64_LessEqualU(left, right));
-                break;
-            case TK_GREATER_EQUAL:
-                CInt64_SetLong(&left, CInt64_GreaterEqualU(left, right));
-                break;
-            case TK_LOGICAL_EQ:
-                CInt64_SetLong(&left, CInt64_Equal(left, right));
-                break;
-            case TK_LOGICAL_NE:
-                CInt64_SetLong(&left, CInt64_NotEqual(left, right));
-                break;
-            case '&':
-                left = CInt64_And(left, right);
-                break;
-            case '^':
-                left = CInt64_Xor(left, right);
-                break;
-            case '|':
-                left = CInt64_Or(left, right);
-                break;
-            case TK_LOGICAL_AND:
-                CInt64_SetLong(&left, (!CInt64_IsZero(&left) && !CInt64_IsZero(&right)));
-                break;
-            case TK_LOGICAL_OR:
-                CInt64_SetLong(&left, (!CInt64_IsZero(&left) || !CInt64_IsZero(&right)));
-                break;
-            default:
-                CError_Error(CErrorStr120);
-        }
-
-        switch (type->size) {
-            case 1:
-                CInt64_ConvertUInt8(&left);
-                break;
-            case 2:
-                CInt64_ConvertUInt16(&left);
-                break;
-            case 4:
-                CInt64_ConvertUInt32(&left);
-                break;
-            case 8:
-                break;
-        }
-    } else {
-        switch (type->size) {
-            case 1:
-                CInt64_ConvertInt8(&left);
-                CInt64_ConvertInt8(&right);
-                break;
-            case 2:
-                CInt64_ConvertInt16(&left);
-                CInt64_ConvertInt16(&right);
-                break;
-            case 4:
-                CInt64_ConvertInt32(&left);
-                CInt64_ConvertInt32(&right);
-                break;
-            case 8:
-                break;
-            default:
-                CError_FATAL(389);
-        }
-
-        switch (op) {
-            case '*':
-                left = CInt64_Mul(left, right);
-                break;
-            case '/':
-                if (CInt64_IsZero(&right))
-                    CError_Warning(CErrorStr139);
-                else
-                    left = CInt64_Div(left, right);
-                break;
-            case '%':
-                if (CInt64_IsZero(&right))
-                    CError_Warning(CErrorStr139);
-                else
-                    left = CInt64_Mod(left, right);
-                break;
-            case '+':
-                left = CInt64_Add(left, right);
-                break;
-            case '-':
-                left = CInt64_Sub(left, right);
-                break;
-            case TK_SHL:
-                left = CInt64_Shl(left, right);
-                break;
-            case TK_SHR:
-                left = CInt64_Shr(left, right);
-                break;
-            case '<':
-                CInt64_SetLong(&left, CInt64_Less(left, right));
-                break;
-            case '>':
-                CInt64_SetLong(&left, CInt64_Greater(left, right));
-                break;
-            case TK_LESS_EQUAL:
-                CInt64_SetLong(&left, CInt64_LessEqual(left, right));
-                break;
-            case TK_GREATER_EQUAL:
-                CInt64_SetLong(&left, CInt64_GreaterEqual(left, right));
-                break;
-            case TK_LOGICAL_EQ:
-                CInt64_SetLong(&left, CInt64_Equal(left, right));
-                break;
-            case TK_LOGICAL_NE:
-                CInt64_SetLong(&left, CInt64_NotEqual(left, right));
-                break;
-            case '&':
-                left = CInt64_And(left, right);
-                break;
-            case '^':
-                left = CInt64_Xor(left, right);
-                break;
-            case '|':
-                left = CInt64_Or(left, right);
-                break;
-            case TK_LOGICAL_AND:
-                CInt64_SetLong(&left, (!CInt64_IsZero(&left) && !CInt64_IsZero(&right)));
-                break;
-            case TK_LOGICAL_OR:
-                CInt64_SetLong(&left, (!CInt64_IsZero(&left) || !CInt64_IsZero(&right)));
-                break;
-            default:
-                CError_Error(CErrorStr120);
-        }
-
-        switch (type->size) {
-            case 1:
-                CInt64_ConvertInt8(&left);
-                break;
-            case 2:
-                CInt64_ConvertInt16(&left);
-                break;
-            case 4:
-                CInt64_ConvertInt32(&left);
-                break;
-            case 8:
-                break;
-        }
-    }
-
-    return left;
-}
-
-CInt64 CMach_CalcIntMonadic(Type *type, short op, CInt64 val) {
-    if (is_unsigned(type)) {
-        switch (type->size) {
-            case 1:
-                CInt64_ConvertUInt8(&val);
-                break;
-            case 2:
-                CInt64_ConvertUInt16(&val);
-                break;
-            case 4:
-                CInt64_ConvertUInt32(&val);
-                break;
-            case 8:
-                break;
-            default:
-                CError_FATAL(448);
-        }
-
-        switch (op) {
-            case '-':
-                val = CInt64_Neg(val);
-                break;
-            case '~':
-                val = CInt64_Inv(val);
-                break;
-            case '!':
-                val = CInt64_Not(val);
-                break;
-            default:
-                CError_Error(CErrorStr120);
-        }
-
-        switch (type->size) {
-            case 1:
-                CInt64_ConvertUInt8(&val);
-                break;
-            case 2:
-                CInt64_ConvertUInt16(&val);
-                break;
-            case 4:
-                CInt64_ConvertUInt32(&val);
-                break;
-            case 8:
-                break;
-        }
-    } else {
-        switch (type->size) {
-            case 1:
-                CInt64_ConvertInt8(&val);
-                break;
-            case 2:
-                CInt64_ConvertInt16(&val);
-                break;
-            case 4:
-                CInt64_ConvertInt32(&val);
-                break;
-            case 8:
-                break;
-            default:
-                CError_FATAL(478);
-        }
-
-        switch (op) {
-            case '-':
-                val = CInt64_Neg(val);
-                break;
-            case '~':
-                val = CInt64_Inv(val);
-                break;
-            case '!':
-                val = CInt64_Not(val);
-                break;
-            default:
-                CError_Error(CErrorStr120);
-        }
-
-        switch (type->size) {
-            case 1:
-                CInt64_ConvertInt8(&val);
-                break;
-            case 2:
-                CInt64_ConvertInt16(&val);
-                break;
-            case 4:
-                CInt64_ConvertInt32(&val);
-                break;
-            case 8:
-                break;
-        }
-    }
-
-    return val;
-}
-
-CInt64 CMach_CalcIntConvertFromFloat(Type *type, Float fval) {
-    CInt64 result;
-
-    if ((type->type == TYPEINT || type->type == TYPEENUM) && (type->size == 8)) {
-        if (is_unsigned(type))
-            CInt64_ConvertUFromLongDouble(&result, fval.value);
-        else
-            CInt64_ConvertFromLongDouble(&result, fval.value);
-    } else {
-        if (is_unsigned(type))
-            CInt64_SetULong(&result, fval.value);
-        else
-            CInt64_SetLong(&result, fval.value);
-    }
-
-    return result;
-}
-
-void CMach_InitIntMem(Type *type, CInt64 val, void *mem) {
-    SInt32 lg;
-    SInt16 sh;
-    SInt8 ch;
-
-    switch (type->type) {
-        case TYPEINT:
-            switch (type->size) {
-                case 1:
-                    ch = CInt64_GetULong(&val);
-                    memcpy(mem, &ch, 1);
-                    break;
-                case 2:
-                    sh = CTool_EndianConvertWord16(CInt64_GetULong(&val));
-                    memcpy(mem, &sh, 2);
-                    break;
-                case 4:
-                    lg = CTool_EndianConvertWord32(CInt64_GetULong(&val));
-                    memcpy(mem, &lg, 4);
-                    break;
-                case 8:
-                    CTool_EndianConvertWord64(val, mem);
-                    break;
-                default:
-                    CError_FATAL(566);
-            }
-            break;
-        default:
-            CError_FATAL(570);
-    }
-}
-
-void CMach_InitVectorMem(Type *type, MWVector128 val, void *mem, Boolean flag) {
-    unsigned char uc[16];
-    unsigned short us[8];
-    unsigned int ul[4];
-    float f[4];
-    int i;
-
-    switch (type->type) {
-        case TYPESTRUCT:
-            switch (TYPE_STRUCT(type)->stype) {
-                case STRUCT_VECTOR_UCHAR:
-                case STRUCT_VECTOR_SCHAR:
-                case STRUCT_VECTOR_BCHAR:
-                    for (i = 0; i < 16; i++)
-                        uc[i] = val.uc[i];
-                    memcpy(mem, uc, 16);
-                    break;
-                case STRUCT_VECTOR_USHORT:
-                case STRUCT_VECTOR_SSHORT:
-                case STRUCT_VECTOR_BSHORT:
-                case STRUCT_VECTOR_PIXEL:
-                    for (i = 0; i < 8; i++)
-                        us[i] = val.us[i];
-                    memcpy(mem, us, 16);
-                    break;
-                case STRUCT_VECTOR_UINT:
-                case STRUCT_VECTOR_SINT:
-                case STRUCT_VECTOR_BINT:
-                    for (i = 0; i < 4; i++)
-                        ul[i] = val.ul[i];
-                    memcpy(mem, ul, 16);
-                    break;
-                case STRUCT_VECTOR_FLOAT:
-                    for (i = 0; i < 4; i++)
-                        f[i] = val.f[i];
-                    memcpy(mem, f, 16);
-                    break;
-                default:
-                    CError_FATAL(655);
-            }
-            break;
-        default:
-            CError_FATAL(659);
-    }
-}
-
-Float CMach_CalcFloatDiadic(Type *type, Float left, short op, Float right) {
-    switch (op) {
-        case '+':
-            left.value += right.value;
-            break;
-        case '-':
-            left.value -= right.value;
-            break;
-        case '*':
-            left.value *= right.value;
-            break;
-        case '/':
-            left.value /= right.value;
-            break;
-        default:
-            CError_FATAL(679);
-    }
-
-    return CMach_CalcFloatConvert(type, left);
-}
-
-Float CMach_CalcFloatMonadic(Type *type, short op, Float fval) {
-    if (op != '-')
-        CError_FATAL(692);
-
-    fval.value = -fval.value;
-    return CMach_CalcFloatConvert(type, fval);
-}
-
-Boolean CMach_CalcFloatDiadicBool(Type *type, Float left, short op, Float right) {
-    switch (op) {
-        case TK_LOGICAL_EQ:
-            return left.value == right.value;
-        case TK_LOGICAL_NE:
-            return left.value != right.value;
-        case TK_LESS_EQUAL:
-            return left.value <= right.value;
-        case TK_GREATER_EQUAL:
-            return left.value >= right.value;
-        case '>':
-            return left.value > right.value;
-        case '<':
-            return left.value < right.value;
-        default:
-            CError_FATAL(714);
-            return 0;
-    }
-}
-
-Boolean CMach_CalcVectorDiadicBool(Type *type, MWVector128 *left, short op, MWVector128 *right) {
-    switch (op) {
-        case TK_LOGICAL_EQ:
-            return (left->ul[0] == right->ul[0]) && (left->ul[1] == right->ul[1]) && (left->ul[2] == right->ul[2]) && (left->ul[3] == right->ul[3]);
-        case TK_LOGICAL_NE:
-            return (left->ul[0] != right->ul[0]) && (left->ul[1] != right->ul[1]) && (left->ul[2] != right->ul[2]) && (left->ul[3] != right->ul[3]);
-        default:
-            CError_FATAL(740);
-            return 0;
-    }
-}
-
-char *CMach_FloatScan(char *input, Float *result, Boolean *fail) {
-    double resultval;
-    char *outpos;
-
-    if (!(outpos = ScanFloat(input, &resultval, fail)))
-        CError_ErrorTerm(CErrorStr154);
-
-    if (*fail)
-        result->value = 0.0;
-    else
-        result->value = resultval;
-
-    return outpos;
-}
-
-Float CMach_CalcFloatConvertFromInt(Type *type, CInt64 val) {
-    Float result;
-
-    if ((type->type == TYPEINT || type->type == TYPEENUM) && (type->size == 8)) {
-        if (is_unsigned(type))
-            result.value = CInt64_ConvertUToLongDouble(&val);
-        else
-            result.value = CInt64_ConvertToLongDouble(&val);
-    } else {
-        if (is_unsigned(type))
-            result.value = val.lo;
-        else
-            result.value = (SInt32) val.lo;
-    }
-
-    return result;
-}
-
-Float CMach_CalcFloatConvert(Type *type, Float fval) {
-    switch (type->size) {
-        case 4:
-            fval.value = (float) fval.value;
-            break;
-        case 8:
-            fval.value = (double) fval.value;
-            break;
-        case 10:
-        case 12:
-            break;
-        default:
-            CError_FATAL(801);
-    }
-    return fval;
-}
-
-Boolean CMach_FloatIsZero(Float fval) {
-    return fval.value == 0.0;
-}
-
-Boolean CMach_FloatIsOne(Float fval) {
-    return fval.value == 1.0;
-}
-
-Boolean CMach_FloatIsNegOne(Float fval) {
-    return fval.value == -1.0;
-}
-
-void CMach_InitFloatMem(Type *type, Float val, void *mem) {
-    float f;
-    double d;
-
-    if (type->type == TYPEFLOAT) {
-        switch (type->size) {
-            case 4:
-                f = val.value;
-                memcpy(mem, &f, 4);
-                CTool_EndianConvertMem(mem, 4);
-                return;
-            case 8:
-                d = val.value;
-                memcpy(mem, &d, 8);
-                CTool_EndianConvertMem(mem, 8);
-                return;
-        }
-    }
-
-    CError_FATAL(866);
-}
-
-void CMach_PrintFloat(char *buf, Float val) {
-    double f;
-    CMach_InitFloatMem((Type *) &stshortdouble, val, &f);
-    sprintf(buf, "%g", f);
-}
-
-void CMach_PragmaParams(void) {
-    if (copts.warn_illpragma)
-        CError_Warning(CErrorStr186, 0);
-
-    while (notendofline())
-        lex();
-}
-
-void CMach_AdjustFuntionArgs() {
-    // not called so we will never know what the args should have been :(
-}
-
-static SInt32 CMach_GetPPCTypeAlign(Type *type, Boolean flag1, Boolean flag2) {
-    ClassList *base;
-    ObjMemberVar *ivar;
-    StructMember *member;
-    SInt32 best;
-    SInt32 ivarAlign;
-    SInt32 qualAlign;
-
-    SInt32 align = CMach_GetQualifiedTypeAlign(type, flag2);
-    if (align <= 8) {
-        while (type->type == TYPEARRAY)
-            type = TYPE_POINTER(type)->target;
-
-        if (flag1) {
-            if (type->type == TYPEFLOAT && type->size > 4 && align < 8)
-                return 8;
-        } else if (align == 8) {
-            if (type->type == TYPECLASS) {
-                best = 4;
-                for (base = TYPE_CLASS(type)->bases; base; base = base->next) {
-                    if (base->base->align > best)
-                        best = base->base->align;
-                }
-                for (ivar = TYPE_CLASS(type)->ivars; ivar; ivar = ivar->next) {
-                    ivarAlign = CMach_GetPPCTypeAlign(ivar->type, 0, flag2);
-                    if (ivarAlign > best)
-                        best = ivarAlign;
-                    if (flag2) {
-                        qualAlign = CMach_GetQUALalign(ivar->qual);
-                        if (qualAlign > best)
-                            best = qualAlign;
-                    }
-                }
-                return best;
-            }
-            if (type->type == TYPESTRUCT) {
-                best = 4;
-                for (member = TYPE_STRUCT(type)->members; member; member = member->next) {
-                    ivarAlign = CMach_GetPPCTypeAlign(member->type, 0, flag2);
-                    if (ivarAlign > best)
-                        best = ivarAlign;
-                    if (flag2) {
-                        qualAlign = CMach_GetQUALalign(member->qual);
-                        if (qualAlign > best)
-                            best = qualAlign;
-                    }
-                }
-                return best;
-            }
-        }
-    }
-
-    return align;
-}
-
-static SInt16 CMach_GetQualifiedStructAlign(const TypeStruct *tstruct, Boolean flag) {
-    StructMember *member;
-    SInt32 best;
-    SInt32 align;
-    Boolean isFirst;
-
-    if (tstruct->stype >= STRUCT_VECTOR_UCHAR && tstruct->stype <= STRUCT_VECTOR_PIXEL)
-        return 16;
-
-    switch (copts.structalignment) {
-        case AlignMode3_1Byte:
-        case AlignMode8_Packed:
-            return 1;
-        case AlignMode0_Mac68k:
-            return 2;
-        case AlignMode1_Mac68k4byte:
-            return (tstruct->size <= 2) ? 2 : 4;
-    }
-
-    if (tstruct->size <= 1)
-        return 1;
-
-    best = 1;
-    switch (copts.structalignment) {
-        default:
-            CError_FATAL(1026);
-        case AlignMode4_2Byte:
-        case AlignMode5_4Byte:
-        case AlignMode6_8Byte:
-        case AlignMode7_16Byte:
-            for (member = tstruct->members; member; member = member->next) {
-                align = CMach_GetQualifiedTypeAlign(member->type, flag);
-                if (align > best)
-                    best = align;
-                if (flag) {
-                    align = CMach_GetQUALalign(member->qual);
-                    if (align > best)
-                        best = align;
-                }
-            }
-            return best;
-        case AlignMode2_PPC:
-            if (copts.oldalignment) {
-                for (member = tstruct->members; member; member = member->next) {
-                    align = CMach_GetQualifiedTypeAlign(member->type, flag);
-                    if (align > best)
-                        best = align;
-                    if (flag) {
-                        align = CMach_GetQUALalign(member->qual);
-                        if (align > best)
-                            best = align;
-                    }
-                }
-            } else if (TYPE_STRUCT(tstruct)->stype == STRUCT_TYPE_UNION) {
-                for (member = tstruct->members; member; member = member->next) {
-                    align = CMach_GetPPCTypeAlign(member->type, 1, flag);
-                    if (align > best)
-                        best = align;
-                    if (flag) {
-                        align = CMach_GetQUALalign(member->qual);
-                        if (align > best)
-                            best = align;
-                    }
-                }
-            } else {
-                isFirst = 1;
-                for (member = tstruct->members; member; member = member->next) {
-                    align = CMach_GetPPCTypeAlign(member->type, isFirst || (best >= 8), flag);
-                    if (align > best)
-                        best = align;
-                    if (flag) {
-                        align = CMach_GetQUALalign(member->qual);
-                        if (align > best)
-                            best = align;
-                    }
-                    isFirst = 0;
-                }
-            }
-            return best;
-    }
-}
-
-SInt16 CMach_GetStructAlign(TypeStruct *tstruct) {
-    return CMach_GetQualifiedStructAlign(tstruct, 1);
-}
-
-static SInt16 CMach_GetQualifiedClassAlign(TypeClass *tclass, Boolean flag) {
-    ClassList *base;
-    ObjMemberVar *ivar;
-    SInt32 best;
-    SInt32 align;
-    Boolean isFirst;
-
-    switch (copts.structalignment) {
-        case AlignMode3_1Byte:
-        case AlignMode8_Packed:
-            return 1;
-        case AlignMode0_Mac68k:
-            return 2;
-        case AlignMode1_Mac68k4byte:
-            return (tclass->size <= 2) ? 2 : 4;
-    }
-    if (tclass->size <= 1)
-        return 1;
-    best = 1;
-    switch (copts.structalignment) {
-        default:
-            CError_FATAL(1149);
-        case AlignMode4_2Byte:
-        case AlignMode5_4Byte:
-        case AlignMode6_8Byte:
-        case AlignMode7_16Byte:
-            for (base = tclass->bases; base; base = base->next) {
-                if ((align = base->base->align) > best)
-                    best = align;
-            }
-            for (ivar = tclass->ivars; ivar; ivar = ivar->next) {
-                align = CMach_GetMemberAlignment(ivar->type, flag ? CMach_GetQUALalign(ivar->qual) : 0, flag);
-                if (align > best)
-                    best = align;
-            }
-            return best;
-        case AlignMode2_PPC:
-            best = 1;
-            if (copts.oldalignment) {
-                for (base = tclass->bases; base; base = base->next) {
-                    if ((align = base->base->align) > best)
-                        best = align;
-                }
-                for (ivar = tclass->ivars; ivar; ivar = ivar->next) {
-                    align = CMach_GetMemberAlignment(ivar->type, flag ? CMach_GetQUALalign(ivar->qual) : 0, flag);
-                    if (align > best)
-                        best = align;
-                }
-            } else {
-                isFirst = 1;
-                for (base = tclass->bases; base; base = base->next) {
-                    if ((align = base->base->align) > best)
-                        best = align;
-                    isFirst = 0;
-                }
-                if (tclass->mode == 1) {
-                    for (ivar = tclass->ivars; ivar; ivar = ivar->next) {
-                        align = CMach_GetPPCTypeAlign(ivar->type, 1, flag);
-                        if (align > best)
-                            best = align;
-                        if (flag) {
-                            align = CMach_GetQUALalign(ivar->qual);
-                            if (align > best)
-                                best = align;
-                        }
-                    }
-                } else {
-                    for (ivar = tclass->ivars; ivar; ivar = ivar->next) {
-                        if (ivar->offset && align != 8)
-                            isFirst = 0;
-                        align = CMach_GetPPCTypeAlign(ivar->type, isFirst || (best >= 8), flag);
-                        if (align > best)
-                            best = align;
-                        if (flag) {
-                            align = CMach_GetQUALalign(ivar->qual);
-                            if (align > best)
-                                best = align;
-                        }
-                    }
-                }
-            }
-            return best;
-    }
-}
-
-SInt16 CMach_GetClassAlign(TypeClass *tclass) {
-    return CMach_GetQualifiedClassAlign(tclass, 1);
-}
-
-static SInt16 CMach_GetWinTypeAlign(Type *type) {
-    int packoffs = copts.structalignment - 3;
-    SInt32 align = cmach_packsize[packoffs];
-    if (type->size < align)
-        align = type->size;
-    return align;
-}
-
-static SInt16 CMach_GetWinMinimizeAlign(SInt16 align) {
-    int packoffs = copts.structalignment - 3;
-    SInt16 minimum = cmach_packsize[packoffs];
-    if (minimum < align)
-        align = minimum;
-    return align;
-}
-
-static SInt16 CMach_GetQualifiedTypeAlign(Type *type, Boolean flag) {
-    Boolean isWin;
-    SInt16 align;
-
-    if (type->type == TYPESTRUCT && TYPE_STRUCT(type)->stype >= STRUCT_VECTOR_UCHAR && TYPE_STRUCT(type)->stype <= STRUCT_VECTOR_PIXEL)
-        return 16;
-
-    switch (copts.structalignment) {
-        case AlignMode3_1Byte:
-        case AlignMode8_Packed:
-            return 1;
-        case AlignMode4_2Byte:
-        case AlignMode5_4Byte:
-        case AlignMode6_8Byte:
-        case AlignMode7_16Byte:
-            isWin = 1;
-            break;
-        default:
-            isWin = 0;
-            break;
-    }
-
-restart:
-    switch (type->type) {
-        case TYPEVOID:
-            return 0;
-        case TYPEFUNC:
-            return 0;
-        case TYPEENUM:
-            type = TYPE_ENUM(type)->enumtype;
-        case TYPEINT:
-            if (isWin)
-                return CMach_GetWinTypeAlign(type);
-            if (type->size == 1)
-                return 1;
-            if (copts.oldalignment && type->size == 8)
-                return 8;
-            if (copts.structalignment != AlignMode0_Mac68k && type->size >= 4)
-                return 4;
-            return 2;
-        case TYPEFLOAT:
-            if (isWin)
-                return CMach_GetWinTypeAlign(type);
-            switch (copts.structalignment) {
-                case AlignMode0_Mac68k:
-                    return 2;
-                case AlignMode1_Mac68k4byte:
-                    return 4;
-                case AlignMode2_PPC:
-                    if (copts.oldalignment && type->size > 4)
-                        return 8;
-                    return 4;
-                default:
-                    CError_FATAL(1346);
-            }
-        case TYPEMEMBERPOINTER:
-        case TYPEPOINTER:
-            if (isWin)
-                return CMach_GetWinTypeAlign(type);
-            if (copts.structalignment == AlignMode0_Mac68k)
-                return 2;
-            else
-                return 4;
-        case TYPEARRAY:
-            if (copts.alignarraymembers) {
-                if (isWin)
-                    return CMach_GetWinTypeAlign(type);
-                if (type->size == 1)
-                    return 1;
-                if (copts.structalignment == AlignMode0_Mac68k || type->size <= 2)
-                    return 2;
-                if (copts.structalignment == AlignMode1_Mac68k4byte || type->size < 8)
-                    return 4;
-                align = CMach_GetQualifiedTypeAlign(TYPE_POINTER(type)->target, flag);
-                if (align > 4)
-                    return align;
-                else
-                    return 4;
-            } else {
-                type = TYPE_POINTER(type)->target;
-                goto restart;
-            }
-        case TYPESTRUCT:
-            if (flag)
-                align = TYPE_STRUCT(type)->align;
-            else
-                align = CMach_GetQualifiedStructAlign(TYPE_STRUCT(type), flag);
-            if (isWin)
-                return CMach_GetWinMinimizeAlign(align);
-            else
-                return align;
-        case TYPECLASS:
-            if (flag)
-                align = TYPE_CLASS(type)->align;
-            else
-                align = CMach_GetQualifiedClassAlign(TYPE_CLASS(type), flag);
-            if (isWin)
-                return CMach_GetWinMinimizeAlign(align);
-            else
-                return align;
-        case TYPEBITFIELD:
-            type = TYPE_BITFIELD(type)->bitfieldtype;
-            goto restart;
-        case TYPETEMPLATE:
-            return 1;
-        default:
-            CError_FATAL(1392);
-            return 0;
-    }
-}
-
-SInt16 CMach_GetTypeAlign(Type *type) {
-    return CMach_GetQualifiedTypeAlign(type, 1);
-}
-
-static SInt16 CMach_GetMemberAlignment(Type *type, SInt32 var, Boolean flag) {
-    SInt32 align;
-
-    align = CMach_GetQualifiedTypeAlign(type, flag);
-    if (align < 1)
-        align = 1;
-
-    if (IS_TYPE_VECTOR(type) && align < 16)
-        align = 16;
-
-    switch (copts.structalignment) {
-        case AlignMode8_Packed:
-            align = 1;
-            break;
-        case AlignMode0_Mac68k:
-            if (align > 2)
-                align = 2;
-            break;
-        case AlignMode1_Mac68k4byte:
-            if (align > 4)
-                align = 4;
-            break;
-        case AlignMode2_PPC:
-            if (!copts.oldalignment)
-                align = CMach_GetPPCTypeAlign(type, !cmach_structoffset || (cmach_structalign >= 8), flag);
-            if (var > align)
-                align = var;
-            break;
-    }
-
-    if (align > cmach_structalign)
-        cmach_structalign = align;
-    return align;
-}
-
-SInt16 CMach_MemberAlignValue(Type *type, SInt32 var) {
-    SInt16 align = CMach_GetMemberAlignment(type, 0, 1);
-    if (align <= 1)
-        return 0;
-
-    return (align - 1) & (align - (var & (align - 1)));
-}
-
-static SInt16 MemberAlignValue(Type *type, SInt32 var1, SInt32 var2) {
-    SInt16 align = CMach_GetMemberAlignment(type, var2, 1);
-    return (align - 1) & (align - (var1 & (align - 1)));
-}
-
-void CMach_StructLayoutInitOffset(SInt32 offset) {
-    cmach_structoffset = offset;
-    cmach_structalign = 4;
-    cmach_curbfsize = 0;
-}
-
-SInt32 CMach_StructLayoutGetCurSize(void) {
-    return cmach_structoffset;
-}
-
-SInt32 CMach_StructLayoutGetOffset(Type *type, UInt32 qual) {
-    SInt32 align;
-    SInt32 offset;
-
-    qual = CParser_GetTypeQualifiers(type, qual);
-
-    cmach_curbfsize = 0;
-    align = MemberAlignValue(type, cmach_structoffset, CMach_GetQUALalign(qual));
-    offset = cmach_structoffset + align;
-    cmach_structoffset = offset + type->size;
-    return offset;
-}
-
-SInt32 CMach_StructLayoutBitfield(TypeBitfield *tbitfield, UInt32 qual) {
-    SInt16 align;
-    SInt16 padding_at_start;
-    SInt16 basesize;
-    SInt16 basesize_bits;
-    SInt16 required_alignment;
-    SInt16 r4;
-
-    padding_at_start = 0;
-    required_alignment = 0;
-    align = CMach_GetQUALalign(qual);
-    if (align <= tbitfield->bitfieldtype->size)
-        align = 0;
-
-    switch (tbitfield->bitfieldtype->size) {
-        case 1:
-            basesize = 1;
-            basesize_bits = 8;
-            required_alignment = 0;
-            break;
-        case 2:
-            basesize = 2;
-            basesize_bits = 16;
-            required_alignment = 2;
-            break;
-        case 4:
-            if (copts.structalignment != AlignMode0_Mac68k && copts.structalignment != AlignMode4_2Byte)
-                required_alignment = 4;
-            else
-                required_alignment = 2;
-            basesize = 4;
-            basesize_bits = 32;
-            break;
-        default:
-            CError_FATAL(1620);
-    }
-
-    switch (copts.structalignment) {
-        case AlignMode3_1Byte:
-        case AlignMode8_Packed:
-            required_alignment = 0;
-            break;
-    }
-
-    r4 = required_alignment;
-    if (align > required_alignment)
-        r4 = align;
-    if (r4 && (cmach_structoffset & (r4 - 1)))
-        padding_at_start = r4 - (cmach_structoffset & (r4 - 1));
-
-    if (!cmach_curbfsize) {
-        cmach_structoffset += padding_at_start;
-        if (!tbitfield->bitlength)
-            return cmach_structoffset;
-        cmach_curbfsize = tbitfield->bitlength;
-        cmach_curbfbasesize = basesize;
-        cmach_curbfoffset = cmach_structoffset;
-        cmach_structoffset += basesize;
-        tbitfield->offset = 0;
-        return cmach_curbfoffset;
-    } else {
-        if (!tbitfield->bitlength || (cmach_curbfsize + tbitfield->bitlength) > basesize_bits || cmach_curbfbasesize != basesize) {
-            cmach_structoffset += padding_at_start;
-            cmach_curbfsize = 0;
-            cmach_curbfbasesize = basesize;
-            if (!tbitfield->bitlength)
-                return cmach_structoffset;
-            cmach_curbfoffset = cmach_structoffset;
-            cmach_structoffset += basesize;
-        }
-        tbitfield->offset = cmach_curbfsize;
-        cmach_curbfsize += tbitfield->bitlength;
-        return cmach_curbfoffset;
-    }
-}
-
-static Boolean CMach_IsTrivialClass(TypeClass *tclass) {
-    return !CClass_Constructor(tclass);
-}
-
-UInt8 CMach_GetFunctionResultClass(TypeFunc *tfunc) {
-    switch (tfunc->functype->type) {
-        case TYPESTRUCT:
-            if (tfunc->functype->type == TYPESTRUCT && TYPE_STRUCT(tfunc->functype)->stype >= STRUCT_VECTOR_UCHAR && TYPE_STRUCT(tfunc->functype)->stype <= STRUCT_VECTOR_PIXEL)
-                return 0;
-        case TYPECLASS:
-        case TYPEMEMBERPOINTER:
-            return CMach_PassResultInHiddenArg(tfunc->functype) != 0;
-        default:
-            return 0;
-    }
-}
-
-Boolean CMach_PassResultInHiddenArg(Type *type) {
-    switch (type->type) {
-        case TYPESTRUCT:
-            if (TYPE_STRUCT(type)->stype >= STRUCT_VECTOR_UCHAR && TYPE_STRUCT(type)->stype <= STRUCT_VECTOR_PIXEL)
-                return 0;
-            else
-                return 1;
-        case TYPECLASS:
-            return 1;
-        case TYPEMEMBERPOINTER:
-            return (type->size != 4);
-        default:
-            return 0;
-    }
-}
-
-char *CMach_GetCPU(void) {
-    switch (copts.processor) {
-        case CPU_PPC401: return "__PPC401__";
-        case CPU_PPC403: return "__PPC403__";
-        case CPU_PPC505: return "__PPC505__";
-        case CPU_PPC509: return "__PPC509__";
-        case CPU_PPC555: return "__PPC555__";
-        case CPU_PPC556: return "__PPC556__";
-        case CPU_PPC565: return "__PPC565__";
-        case CPU_PPC601: return "__PPC601__";
-        case CPU_PPC602: return "__PPC602__";
-        case CPU_PPC603: return "__PPC603__";
-        case CPU_PPC603e: return "__PPC603e__";
-        case CPU_PPC604: return "__PPC604__";
-        case CPU_PPC604e: return "__PPC604e__";
-        case CPU_PPC740: return "__PPC740__";
-        case CPU_PPC750: return "__PPC750__";
-        case CPU_PPC801: return "__PPC801__";
-        case CPU_PPC821: return "__PPC821__";
-        case CPU_PPC823: return "__PPC823__";
-        case CPU_PPC850: return "__PPC850__";
-        case CPU_PPC860: return "__PPC860__";
-        case CPU_PPC7400: return "__PPC7400__";
-        case CPU_PPC7450: return "__PPC7450__";
-        case CPU_PPC8240: return "__PPC8240__";
-        case CPU_PPC8260: return "__PPC8260__";
-        case CPU_PPCGEKKO: return "__PPCGEKKO__";
-        case CPU_PPCELF: return "__PPCELF__";
-        default: return NULL;
-    }
-}
-
-Boolean CMach_FloatIsPowerOf2(Float flt) {
-    return (flt.value == 2.0) ||
-            (flt.value == 4.0) ||
-            (flt.value == 8.0) ||
-            (flt.value == 16.0) ||
-            (flt.value == 32.0) ||
-            (flt.value == 64.0) ||
-            (flt.value == 128.0) ||
-            (flt.value == 256.0) ||
-            (flt.value == 512.0) ||
-            (flt.value == 1024.0);
-}
-
-Float CMach_FloatReciprocal(Float flt) {
-    flt.value = 1.0 / flt.value;
-    return flt;
-}
-
-SInt32 CMach_RoundedSizeOf(Object *object) {
-    SInt32 size = object->type->size;
-    SInt32 align = CMach_GetTypeAlign(object->type) - 1;
-    return (size + align) & ~align;
-}
-
-void CMach_ReInitRuntimeObjects(void) {
-    HashNameNode *e0 = GetHashNameNodeExport("[0]");
-    HashNameNode *e1 = GetHashNameNodeExport("[1]");
-    HashNameNode *e2 = GetHashNameNodeExport("[2]");
-    HashNameNode *e3 = GetHashNameNodeExport("[3]");
-    HashNameNode *e4 = GetHashNameNodeExport("[4]");
-    HashNameNode *e5 = GetHashNameNodeExport("[5]");
-    HashNameNode *e6 = GetHashNameNodeExport("[6]");
-    HashNameNode *e7 = GetHashNameNodeExport("[7]");
-    HashNameNode *e8 = GetHashNameNodeExport("[8]");
-    HashNameNode *e9 = GetHashNameNodeExport("[9]");
-    HashNameNode *e10 = GetHashNameNodeExport("[10]");
-    HashNameNode *e11 = GetHashNameNodeExport("[11]");
-    HashNameNode *e12 = GetHashNameNodeExport("[12]");
-    HashNameNode *e13 = GetHashNameNodeExport("[13]");
-    HashNameNode *e14 = GetHashNameNodeExport("[14]");
-    HashNameNode *e15 = GetHashNameNodeExport("[15]");
-    HashNameNode *vuc = GetHashNameNodeExport("vector unsigned char");
-    HashNameNode *vus = GetHashNameNodeExport("vector unsigned short");
-    HashNameNode *vui = GetHashNameNodeExport("vector unsigned int");
-    HashNameNode *vsc = GetHashNameNodeExport("vector signed char");
-    HashNameNode *vss = GetHashNameNodeExport("vector signed short");
-    HashNameNode *vsi = GetHashNameNodeExport("vector signed int");
-    HashNameNode *vbc = GetHashNameNodeExport("vector bool char");
-    HashNameNode *vbs = GetHashNameNodeExport("vector bool short");
-    HashNameNode *vbi = GetHashNameNodeExport("vector bool int");
-    HashNameNode *vf = GetHashNameNodeExport("vector float");
-    HashNameNode *vp = GetHashNameNodeExport("vector pixel");
-
-    stvectorunsignedchar.name = vuc;
-    stvectorunsignedshort.name = vus;
-    stvectorunsignedlong.name = vui;
-    stvectorsignedchar.name = vsc;
-    stvectorsignedshort.name = vss;
-    stvectorsignedlong.name = vsi;
-    stvectorboolchar.name = vbc;
-    stvectorboolshort.name = vbs;
-    stvectorboollong.name = vbi;
-    stvectorfloat.name = vf;
-    stvectorpixel.name = vp;
-
-    stVUC_unsignedchar0.name = e0;
-    stVUC_unsignedchar1.name = e1;
-    stVUC_unsignedchar2.name = e2;
-    stVUC_unsignedchar3.name = e3;
-    stVUC_unsignedchar4.name = e4;
-    stVUC_unsignedchar5.name = e5;
-    stVUC_unsignedchar6.name = e6;
-    stVUC_unsignedchar7.name = e7;
-    stVUC_unsignedchar8.name = e8;
-    stVUC_unsignedchar9.name = e9;
-    stVUC_unsignedchar10.name = e10;
-    stVUC_unsignedchar11.name = e11;
-    stVUC_unsignedchar12.name = e12;
-    stVUC_unsignedchar13.name = e13;
-    stVUC_unsignedchar14.name = e14;
-    stVUC_unsignedchar15.name = e15;
-    stVSC_signedchar0.name = e0;
-    stVSC_signedchar1.name = e1;
-    stVSC_signedchar2.name = e2;
-    stVSC_signedchar3.name = e3;
-    stVSC_signedchar4.name = e4;
-    stVSC_signedchar5.name = e5;
-    stVSC_signedchar6.name = e6;
-    stVSC_signedchar7.name = e7;
-    stVSC_signedchar8.name = e8;
-    stVSC_signedchar9.name = e9;
-    stVSC_signedchar10.name = e10;
-    stVSC_signedchar11.name = e11;
-    stVSC_signedchar12.name = e12;
-    stVSC_signedchar13.name = e13;
-    stVSC_signedchar14.name = e14;
-    stVSC_signedchar15.name = e15;
-
-    stVUS_unsignedshort0.name = e0;
-    stVUS_unsignedshort1.name = e1;
-    stVUS_unsignedshort2.name = e2;
-    stVUS_unsignedshort3.name = e3;
-    stVUS_unsignedshort4.name = e4;
-    stVUS_unsignedshort5.name = e5;
-    stVUS_unsignedshort6.name = e6;
-    stVUS_unsignedshort7.name = e7;
-    stVSS_signedshort0.name = e0;
-    stVSS_signedshort1.name = e1;
-    stVSS_signedshort2.name = e2;
-    stVSS_signedshort3.name = e3;
-    stVSS_signedshort4.name = e4;
-    stVSS_signedshort5.name = e5;
-    stVSS_signedshort6.name = e6;
-    stVSS_signedshort7.name = e7;
-
-    stVUL_unsignedlong0.name = e0;
-    stVUL_unsignedlong1.name = e1;
-    stVUL_unsignedlong2.name = e2;
-    stVUL_unsignedlong3.name = e3;
-    stVSL_signedlong0.name = e0;
-    stVSL_signedlong1.name = e1;
-    stVSL_signedlong2.name = e2;
-    stVSL_signedlong3.name = e3;
-
-    stVF_float0.name = e0;
-    stVF_float1.name = e1;
-    stVF_float2.name = e2;
-    stVF_float3.name = e3;
-}