rem: printf ("Unable to load package %u\n", res_package);
add: fprintf (stderr, "Unable to load package %u\n", res_package);
context: GetResource (RESOURCE res){	MEM_HANDLE hData, hList;	RES_PACKAGE res_package;	RES_TYPE res_type;	RES_INSTANCE res_instance;	RES_HANDLE_LISTPTR ResourceHandleListPtr;	ENCODEPTR TypeEncodePtr;	DATAPTR DataPtr;	INDEX_HEADERPTR ResHeaderPtr;	UWORD hi;	ResHeaderPtr = _get_current_index_header ();	if (!ValidResource (ResHeaderPtr, res)){#ifdef DEBUGif (res) printf ("0x%08lx is not a valid resource!\n", res);#endif /* DEBUG */		return (NULL_HANDLE);}	res_package = GET_PACKAGE (res);	hi = HIWORD (ResHeaderPtr->PackageList[res_package - 1].flags_and_data_loc);	if (HIBYTE (hi) == 0)		hList = (MEM_HANDLE)LOWORD (				ResHeaderPtr->PackageList[res_package - 1].flags_and_data_loc);	else	{		if ((hList = load_package (ResHeaderPtr, res_package)) == NULL_HANDLE){#ifdef DEBUGprintf ("Unable to load package %u\n", res_package);#endif /* DEBUG */			return (NULL_HANDLE);}		ResHeaderPtr->PackageList[res_package - 1].flags_and_data_loc =				MAKE_DWORD (hList, 0);	}	res_type = GET_TYPE (res);	res_instance = GET_INSTANCE (res);	LockResourceHandleList (ResHeaderPtr, hList, res_package,			&ResourceHandleListPtr, &TypeEncodePtr, &DataPtr);	while (GET_TYPE (*TypeEncodePtr) != res_type)	{		DataPtr += (GET_PACKAGE (*TypeEncodePtr) << 1);		++TypeEncodePtr;	}	DataPtr += (res_instance - GET_INSTANCE (*TypeEncodePtr)) << 1;	hData = MAKE_WORD (DataPtr[0], DataPtr[1]);	UnlockResourceHandleList (hList);#ifdef DEBUGif (hData == 0) printf ("No data for res 0x%08lx\n", res);#endif /* DEBUG */	return (hData);}