Removes several times warning C4133 in MSVC.

* Removes incompatible types warning by adding casts.
This commit is contained in:
davyw
2011-12-12 15:00:05 +01:00
parent dcdd77a49d
commit 7712b9bb23
4 changed files with 6 additions and 6 deletions
+1 -1
View File
@@ -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);
+1 -1
View File
@@ -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;
+2 -2
View File
@@ -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 );
}
+2 -2
View File
@@ -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