Added dbsym.c
This commit is contained in:
		
							parent
							
								
									d0179d6790
								
							
						
					
					
						commit
						56ab70f21f
					
				
					 1 changed files with 43 additions and 0 deletions
				
			
		
							
								
								
									
										43
									
								
								util/ceg/ce_back/obj_back/dbsym.c
									
										
									
									
									
										Normal file
									
								
							
							
						
						
									
										43
									
								
								util/ceg/ce_back/obj_back/dbsym.c
									
										
									
									
									
										Normal file
									
								
							|  | @ -0,0 +1,43 @@ | ||||||
|  | #include "header.h" | ||||||
|  | #include "back.h" | ||||||
|  | #include <em.h> | ||||||
|  | #include <out.h> | ||||||
|  | 
 | ||||||
|  | B_symbstr(s, len, type, add, val, added) | ||||||
|  | char *s, *val; | ||||||
|  | arith added; | ||||||
|  | { | ||||||
|  | 	int i = find_sym(val, STORE_STRING); | ||||||
|  | 	register struct outname *p; | ||||||
|  | 
 | ||||||
|  | 	if (! s) s = ""; | ||||||
|  | 	p = &symbol_table[find_sym(s, FORCE_DEF)]; | ||||||
|  | 	p->on_type = S_CRS | (type << 8); | ||||||
|  | 	p->on_desc = add; | ||||||
|  | 	p->on_valu = i; | ||||||
|  | } | ||||||
|  | 
 | ||||||
|  | B_symbcst(s, len, type, add, val) | ||||||
|  | char *s; | ||||||
|  | arith val; | ||||||
|  | { | ||||||
|  | 	register struct outname *p; | ||||||
|  | 
 | ||||||
|  | 	if (! s) s = ""; | ||||||
|  | 	p = &symbol_table[find_sym(s, FORCE_DEF)]; | ||||||
|  | 	p->on_type = S_ABS | (type << 8); | ||||||
|  | 	p->on_desc = add; | ||||||
|  | 	p->on_valu = val; | ||||||
|  | } | ||||||
|  | 
 | ||||||
|  | B_symd(s, len, type, add) | ||||||
|  | char *s; | ||||||
|  | { | ||||||
|  | 	register struct outname *p; | ||||||
|  | 
 | ||||||
|  | 	if (! s) s = ""; | ||||||
|  | 	p = &symbol_table[find_sym(s, FORCE_DEF)]; | ||||||
|  | 	p->on_type = S_MIN | (type << 8); | ||||||
|  | 	p->on_desc = add; | ||||||
|  | 	p->on_valu = text-text_area; | ||||||
|  | } | ||||||
		Loading…
	
	Add table
		
		Reference in a new issue