WebSVN – tendra.SVN – Blame – /branches/tendra5/src/installers/mips/common/psu_ops.c

Rev	Author	Line No.	Line
2	7u83	1	`/*`
		2	`Crown Copyright (c) 1997`
		3
		4	`This TenDRA(r) Computer Program is subject to Copyright`
		5	`owned by the United Kingdom Secretary of State for Defence`
		6	`acting through the Defence Evaluation and Research Agency`
		7	`(DERA). It is made available to Recipients with a`
		8	`royalty-free licence for its use, reproduction, transfer`
		9	`to other parties and amendment for any purpose not excluding`
		10	`product development provided that any such use et cetera`
		11	`shall be deemed to be acceptance of the following conditions:-`
		12
		13	`(1) Its Recipients shall ensure that this Notice is`
		14	`reproduced upon any copies or amended versions of it;`
		15
		16	`(2) Any amended version of it shall be clearly marked to`
		17	`show both the nature of and the organisation responsible`
		18	`for the relevant amendment or amendments;`
		19
		20	`(3) Its onward transfer from a recipient to another`
		21	`party shall be deemed to be that party's acceptance of`
		22	`these conditions;`
		23
		24	`(4) DERA gives no warranty or assurance as to its`
		25	`quality or suitability for any purpose and DERA accepts`
		26	`no liability whatsoever in relation to any use to which`
		27	`it may be put.`
		28	`*/`
		29
		30
		31	`/**********************************************************************`
		32	$Author: release $
		33	$Date: 1998/01/17 15:56:06 $
		34	$Revision: 1.1.1.1 $
		35	$Log: psu_ops.c,v $
		36	`* Revision 1.1.1.1 1998/01/17 15:56:06 release`
		37	`* First version to be checked into rolling release.`
		38	`*`
		39	`* Revision 1.1 1995/04/13 09:08:06 currie`
		40	`* Initial revision`
		41	`*`
		42	`***********************************************************************/`
		43	`/* psu_ops.c`
		44	`Output various psuedo operations to assembler`
		45	`*/`
		46
		47	`#include "config.h"`
		48	`#include "ibinasm.h"`
		49	`#include "out_ba.h"`
		50	`#include "psu_ops.h"`
		51
		52	`extern FILE * as_file;`
		53
		54
		55	`void setnoreorder`
		56	`PROTO_Z ()`
		57	`{`
		58	`if (as_file)`
		59	`fprintf (as_file, "\t.set\tnoreorder\n");`
		60	`out_value (0, iset, set_noreorder, 0);`
		61	`}`
		62
		63	`void setreorder`
		64	`PROTO_Z ()`
		65	`{`
		66	`if (as_file)`
		67	`fprintf (as_file, "\t.set\treorder\n");`
		68	`out_value (0, iset, set_reorder, 0);`
		69	`}`
		70
		71	`void setnomove`
		72	`PROTO_Z ()`
		73	`{`
		74	`if (as_file)`
		75	`fprintf (as_file, "\t.set\tnomove\n");`
		76	`out_value (0, iset, set_nomove, 0);`
		77	`}`
		78
		79	`void setmove`
		80	`PROTO_Z ()`
		81	`{`
		82	`if (as_file)`
		83	`fprintf (as_file, "\t.set\tmove\n");`
		84	`out_value (0, iset, set_move, 0);`
		85	`}`
		86
		87	`void setvolatile`
		88	`PROTO_Z ()`
		89	`{`
		90	`if (as_file)`
		91	`fprintf (as_file, "\t.set\tvolatile\n");`
		92	`out_value (0, iset, set_volatile, 0);`
		93	`}`
		94
		95	`void setnovolatile`
		96	`PROTO_Z ()`
		97	`{`
		98	`if (as_file)`
		99	`fprintf (as_file, "\t.set\tnovolatile\n");`
		100	`out_value (0, iset, set_novolatile, 0);`
		101	`}`
		102
		103	`void setnoat`
		104	`PROTO_Z ()`
		105	`{`
		106	`if (as_file)`
		107	`fprintf (as_file, "\t.set\tnoat\n");`
		108	`out_value (0, iset, set_noat, 0);`
		109	`}`
		110
		111	`void setat`
		112	`PROTO_Z ()`
		113	`{`
		114	`if (as_file)`
		115	`fprintf (as_file, "\t.set\tat\n");`
		116	`out_value (0, iset, set_at, 0);`
		117	`}`
		118
		119	`void comment`
		120	`PROTO_N ( (mess) )`
		121	`PROTO_T ( char *mess )`
		122	`{`
		123	`if (as_file)`
		124	`fprintf (as_file, " ## %s\n", mess);`
		125	`}`
		126
		127	`void setframe`
		128	`PROTO_N ( (st) )`
		129	`PROTO_T ( long st )`
		130	`{`
		131	`if (as_file)`
		132	`fprintf (as_file, "\t.frame\t$sp, %ld, $31\n", st);`
		133	`out_frame (0, iframe, st, 29, 31);`
		134	`}`
		135
		136	`void settext`
		137	`PROTO_Z ()`
		138	`{`
		139	`if (as_file)`
		140	`fprintf (as_file, "\t.text\n");`
		141	`out_common (0, itext);`
		142	`}`
		143
		144	`void setmask`
		145	`PROTO_N ( (mask, disp) )`
		146	`PROTO_T ( long mask X long disp )`
		147	`{`
		148	`if (as_file)`
		149	`fprintf (as_file, "\t.mask\t0x%lx,%ld\n", mask, disp);`
		150	`out_mask (0, imask, mask, disp);`
		151	`}`
		152
		153	`void setfmask`
		154	`PROTO_N ( (mask, disp) )`
		155	`PROTO_T ( long mask X long disp )`
		156	`{`
		157	`if (as_file)`
		158	`fprintf (as_file, "\t.fmask\t0x%lx,%ld\n", mask, disp);`
		159	`out_mask (0, ifmask, mask, disp);`
		160	`}`

Subversion Repositories tendra.SVN

(root)/branches/tendra5/src/installers/mips/common/psu_ops.c – Rev 2