Removes several times warning C4133 in MSVC.
* Removes incompatible types warning by adding casts.
This commit is contained in:
@@ -1690,7 +1690,7 @@ schema_decl : schema_header schema_body TOK_END_SCHEMA
|
||||
;
|
||||
|
||||
schema_header : TOK_SCHEMA TOK_IDENTIFIER semicolon
|
||||
{ Schema schema = DICTlookup(CURRENT_SCOPE->symbol_table,$2->name);
|
||||
{ Schema schema = ( Schema ) DICTlookup(CURRENT_SCOPE->symbol_table,$2->name);
|
||||
|
||||
if (print_objects_while_running & OBJ_SCHEMA_BITS){
|
||||
fprintf(stdout,"parse: %s (schema)\n",$2->name);
|
||||
|
||||
@@ -384,7 +384,7 @@ EXP_resolve( Expression expr, Scope scope, Type typecheck ) {
|
||||
/* add function or entity as first element of list */
|
||||
LISTadd_first( expr->u.list, x );
|
||||
#endif
|
||||
expr->u.funcall.function = x;
|
||||
expr->u.funcall.function = ( struct Scope_ * ) x;
|
||||
|
||||
resolved_all( expr );
|
||||
break;
|
||||
|
||||
@@ -675,7 +675,7 @@ ENTITYput_superclass( Entity entity ) {
|
||||
|
||||
tag = ( EntityTag ) malloc( sizeof( struct EntityTag_ ) );
|
||||
tag -> superclass = super;
|
||||
TYPEput_clientData( ENTITYget_type( entity ), tag );
|
||||
TYPEput_clientData( ENTITYget_type( entity ), ( ClientData ) tag );
|
||||
return super;
|
||||
}
|
||||
return 0;
|
||||
@@ -684,7 +684,7 @@ ENTITYput_superclass( Entity entity ) {
|
||||
Entity
|
||||
ENTITYget_superclass( Entity entity ) {
|
||||
EntityTag tag;
|
||||
tag = TYPEget_clientData( ENTITYget_type( entity ) );
|
||||
tag = ( EntityTag ) TYPEget_clientData( ENTITYget_type( entity ) );
|
||||
return ( tag ? tag -> superclass : 0 );
|
||||
}
|
||||
|
||||
|
||||
@@ -1979,7 +1979,7 @@ TYPEselect_print( Type t, FILES * files, Schema schema ) {
|
||||
FILE * inc = files->inc;
|
||||
|
||||
/* if type is already marked, return */
|
||||
if( ( SelectTag )( tmp = TYPEget_clientData( t ) ) ) {
|
||||
if( tmp = ( SelectTag ) TYPEget_clientData( t ) ) {
|
||||
if( ( tmp ->started ) && ( ! tmp ->complete ) )
|
||||
fprintf( stderr, "WARNING: SELECT type %s causes circular references\n",
|
||||
TYPEget_name( t ) );
|
||||
@@ -1990,7 +1990,7 @@ TYPEselect_print( Type t, FILES * files, Schema schema ) {
|
||||
tag = ( SelectTag ) malloc( sizeof( struct SelectTag_ ) );
|
||||
tag -> started = 1;
|
||||
tag -> complete = 0;
|
||||
TYPEput_clientData( t, tag );
|
||||
TYPEput_clientData( t, ( ClientData ) tag );
|
||||
|
||||
|
||||
/* Check if we're a renamed type, e.g., TYPE B (sel) = A. If so, if A has
|
||||
|
||||
Reference in New Issue
Block a user