mirror of
				https://github.com/KevinMidboe/linguist.git
				synced 2025-10-29 17:50:22 +00:00 
			
		
		
		
	
		
			
				
	
	
		
			24 lines
		
	
	
		
			290 B
		
	
	
	
		
			Common Lisp
		
	
	
	
	
	
			
		
		
	
	
			24 lines
		
	
	
		
			290 B
		
	
	
	
		
			Common Lisp
		
	
	
	
	
	
/* Old-style comment. */
 | 
						|
 | 
						|
// New-style comment.
 | 
						|
 | 
						|
typedef float foo_t;
 | 
						|
 | 
						|
#ifndef ZERO
 | 
						|
#define ZERO (0.0)
 | 
						|
#endif
 | 
						|
 | 
						|
#define FOO(x) ((x) + \
 | 
						|
  ZERO)
 | 
						|
 | 
						|
__kernel
 | 
						|
void foo(__global const foo_t * x, __local foo_t y, const uint n)
 | 
						|
{
 | 
						|
  barrier(CLK_LOCAL_MEM_FENCE);
 | 
						|
 | 
						|
  if (n > 42) {
 | 
						|
    *x += y;
 | 
						|
  }
 | 
						|
}
 | 
						|
 |