/* How much real code is there? */
CodeChunkSize = QUADUP(relativeCodePtr);
CodeSize = QUADUP(CodeSize); /* Align */
/* How much real code is there? */
CodeChunkSize = QUADUP(relativeCodePtr);
CodeSize = QUADUP(CodeSize); /* Align */
if( WriteChunkToFile( fid, ID_P4CD, (char *) CODE_BASE,
CodeChunkSize ) < 0 ) goto error;
if( WriteChunkToFile( fid, ID_P4CD, (char *) CODE_BASE,
CodeChunkSize ) < 0 ) goto error;
sdSeekFile( fid, 4, PF_SEEK_SET );
if( Write32ToFile( fid, FormSize ) < 0 ) goto error;
sdSeekFile( fid, 4, PF_SEEK_SET );
if( Write32ToFile( fid, FormSize ) < 0 ) goto error;