hg/jv-dragonfly: asm/AJConstants.st@483729eb4432 (annotated)

3 483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jv:dragonfly/asm' }"
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	SharedPool subclass:#AJConstants
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:'CcA CcABOVE CcABOVEEQUAL CcAE CcB CcBE CcBELOW CcBELOWEQUAL CcC
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	CcE CcEQUAL CcFPNOTUNORDERED CcFPUNORDERED CcG CcGE CcGREATER
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	CcGREATEREQUAL CcL CcLE CcLESS CcLESSEQUAL CcNA CcNAE CcNB CcNBE
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	CcNC CcNE CcNEGATIVE CcNG CcNGE CcNL CcNLE CcNO CcNOCONDITION
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	CcNOOVERFLOW CcNOTEQUAL CcNOTSIGN CcNOTZERO CcNP CcNS CcNZ CcO
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	CcOVERFLOW CcP CcPARITYEVEN CcPARITYODD CcPE CcPO CcPOSITIVE CcS
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	CcSIGN CcZ CcZERO InstCMOVA InstJA O64Only OFM1 OFM10 OFM2 OFM24
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	OFM248 OFM4 OFM48 OFM4810 OFM8 OG16 OG163264 OG32 OG3264 OG64 OG8
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	OG8163264 OIMM OMEM OMM OMMMEM OMMXMM OMMXMMMEM ONOREX OXMM
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	OXMMMEM OpImm OpLabel OpMem OpNONE OpREG PrefetchNTA PrefetchT0
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	PrefetchT1 PrefetchT2 RIDEAX RIDEBP RIDEBX RIDECX RIDEDI RIDEDX
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	RIDESI RIDESP RegCodeMask RegGPB RegGPD RegGPQ RegGPW
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	RegHighByteMask RegMM RegProhibitsRexMask RegRequiresRexMask
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	RegTypeMask RegX87 RegXMM SegmentCS SegmentDS SegmentES SegmentFS
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	SegmentGS SegmentNONE SegmentSS SizeByte SizeDQWord SizeDWord
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	SizeQWord SizeTWord SizeWord'
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	poolDictionaries:''
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	category:'AsmJit-Core'
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	!
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	AJConstants comment:''
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	!
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	!AJConstants class methodsFor:'initialization'!
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	initOpCodes
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	" x86 "
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	OG8 := 16r01.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	OG16 := 16r02.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	OG32 := 16r04.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	OG64 := 16r08.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	OMEM := 16r40.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	OIMM := 16r80.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	O64Only := 16r100.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	OG8163264 := OG64 + OG32 + OG16 + OG8.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	OG163264 := OG64 + OG32 + OG16.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	OG3264 := OG64 + OG32.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	" x87"
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	OFM1 := 16r01.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	OFM2 := 16r02.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	OFM4 := 16r04.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	OFM8 := 16r08.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	OFM10 := 16r10.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	OFM24 := OFM2 + OFM4.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	OFM248 := OFM2 + OFM4 + OFM8.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	OFM48 := OFM4 + OFM8.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	OFM4810 := OFM4 + OFM8 + OFM10.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	" mm\|xmm"
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	ONOREX := 16r01. " Used by MMX/SSE instructions. OG8 is never used for them "
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	OMM := 16r10.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	OXMM := 16r20.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	OMMMEM := OMM + OMEM.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	OXMMMEM := OXMM + OMEM.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	OMMXMM := OMM + OXMM.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	OMMXMMMEM := OMM + OXMM + OMEM.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	!
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	initialize
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	"AJConstants initialize"
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	"Operand is none, used only internally."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	OpNONE := 0.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	"Operand is register"
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	OpREG := 1.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	"Operand is memory"
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	OpMem := 2.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	"Operand is immediate."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	OpImm := 3.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	"Operand is label. "
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	OpLabel := 4.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	RegTypeMask := 16rF0.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	RegCodeMask := 16r0F.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	RegRequiresRexMask := 16r100.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	RegProhibitsRexMask := 16r200.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	RegHighByteMask := 2r111100.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	"1 byte size."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	SizeByte := 1.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	"2 bytes size."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	SizeWord := 2.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	"4 bytes size."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	SizeDWord := 4.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	"8 bytes size."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	SizeQWord := 8.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	"10 bytes size."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	SizeTWord := 10.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	"16 bytes size."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	SizeDQWord := 16.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	"ID for AX/EAX/RAX registers."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	RIDEAX := 0.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	"ID for CX/ECX/RCX registers."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	RIDECX := 1.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	"ID for DX/EDX/RDX registers."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	RIDEDX := 2.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	"ID for BX/EBX/RBX registers."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	RIDEBX := 3.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	"ID for SP/ESP/RSP registers."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116	RIDESP := 4.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117	"ID for BP/EBP/RBP registers."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118	RIDEBP := 5.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119	"ID for SI/ESI/RSI registers."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	RIDESI := 6.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121	"ID for DI/EDI/RDI registers."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	RIDEDI := 7.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	"8 bit general purpose register type."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	RegGPB := 16r00.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	"16 bit general purpose register type."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	RegGPW := 16r10.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	"32 bit general purpose register type."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	RegGPD := 16r20.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	"64 bit general purpose register type. "
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131	RegGPQ := 16r30.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	"X87 (FPU) register type. "
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	RegX87 := 16r50.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	"64 bit mmx register type."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	RegMM := 16r60.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	"128 bit sse register type."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137	RegXMM := 16r70.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139	"Segment override prefixes."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	"No segment override prefix."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	SegmentNONE := 0.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	"Use 'cs' segment override prefix."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	SegmentCS := 1.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145	"Use 'ss' segment override prefix."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	SegmentSS := 2.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147	"Use 'ds' segment override prefix."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	SegmentDS := 3.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149	"Use 'es' segment override prefix."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	SegmentES := 4.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151	"Use 'fs' segment override prefix."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152	SegmentFS := 5.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	"Use 'gs' segment override prefix."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154	SegmentGS := 6.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156	self initializePrefetchHints.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	self initializeConditionCodes.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	self initOpCodes.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160	!
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162	initializeConditionCodes
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	"Condition codes."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	"No condition code."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	CcNOCONDITION := -1.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	"Condition codes from processor manuals."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	CcA := 16r7.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171	CcAE := 16r3.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172	CcB := 16r2.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173	CcBE := 16r6.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	CcC := 16r2.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175	CcE := 16r4.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	CcG := 16rF.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177	CcGE := 16rD.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178	CcL := 16rC.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179	CcLE := 16rE.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180	CcNA := 16r6.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181	CcNAE := 16r2.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182	CcNB := 16r3.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	CcNBE := 16r7.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184	CcNC := 16r3.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	CcNE := 16r5.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186	CcNG := 16rE.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	CcNGE := 16rC.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188	CcNL := 16rD.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	CcNLE := 16rF.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190	CcNO := 16r1.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	CcNP := 16rB.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	CcNS := 16r9.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193	CcNZ := 16r5.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194	CcO := 16r0.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195	CcP := 16rA.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	CcPE := 16rA.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	CcPO := 16rB.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	CcS := 16r8.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	CcZ := 16r4.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201	" Simplified condition codes"
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	CcOVERFLOW := 16r0.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	CcNOOVERFLOW := 16r1.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204	CcBELOW := 16r2.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	CcABOVEEQUAL := 16r3.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	CcEQUAL := 16r4.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	CcNOTEQUAL := 16r5.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	CcBELOWEQUAL := 16r6.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209	CcABOVE := 16r7.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	CcSIGN := 16r8.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	CcNOTSIGN := 16r9.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	CcPARITYEVEN := 16rA.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213	CcPARITYODD := 16rB.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214	CcLESS := 16rC.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215	CcGREATEREQUAL := 16rD.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216	CcLESSEQUAL := 16rE.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217	CcGREATER := 16rF.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	218
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	219	"aliases"
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	220	CcZERO := 16r4.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221	CcNOTZERO := 16r5.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222	CcNEGATIVE := 16r8.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	223	CcPOSITIVE := 16r9.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225	"x87 floating point only"
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226	CcFPUNORDERED := 16.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227	CcFPNOTUNORDERED := 17.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	!
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	initializePrefetchHints
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233	"Prefetch hints."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235	"Prefetch to L0 cache."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	236	PrefetchT0 := 1.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	"Prefetch to L1 cache."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	PrefetchT1 := 2.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	"Prefetch to L2 cache."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	PrefetchT2 := 3.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	"Prefetch using NT hint."
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242	PrefetchNTA := 0.
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243	! !
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	245
483729eb4432 Initial port ot Igor Stasenko's AsmJit Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246	AJConstants initialize!

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 15 Dec 2015 23:18:02 +0000
changeset 3	483729eb4432
child 17	54798ae989cc
permissions	-rw-r--r--