mirror of
				https://github.com/vim/vim.git
				synced 2025-10-30 09:47:20 -04:00 
			
		
		
		
	Problem: Compiler warnings to size casts in Perl interface. Solution: Use XS macros. (James McCoy)
		
			
				
	
	
		
			15 lines
		
	
	
		
			284 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			15 lines
		
	
	
		
			284 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
| TYPEMAP
 | |
| VIWIN	T_VIOBJNOMUNGE
 | |
| VIBUF	T_VIOBJNOMUNGE
 | |
| 
 | |
| INPUT
 | |
| T_VIOBJNOMUNGE
 | |
| 	if (sv_isa($arg, \"${ntype}\")) {
 | |
| 	    IV tmp = SvIV((SV*)SvRV($arg));
 | |
| 	    $var = INT2PTR($type, tmp);
 | |
| 	    if (!tmp)
 | |
| 		croak(\"$ntype no longer exists\");
 | |
| 	}
 | |
| 	else
 | |
| 	    croak(\"$var is not of type ${ntype}\")
 |