From 487ca4806cc046076293cf6cc5fbba0db282bac7 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 17 Jan 2006 21:41:51 +0000 Subject: texk 1 git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/lib/mfmpw32.c | 189 ++++++++++++++++++++++++++++++++++ 1 file changed, 189 insertions(+) create mode 100644 Build/source/texk/web2c/lib/mfmpw32.c (limited to 'Build/source/texk/web2c/lib/mfmpw32.c') diff --git a/Build/source/texk/web2c/lib/mfmpw32.c b/Build/source/texk/web2c/lib/mfmpw32.c new file mode 100644 index 00000000000..de065fd96e2 --- /dev/null +++ b/Build/source/texk/web2c/lib/mfmpw32.c @@ -0,0 +1,189 @@ +/* i386 assembly routines for inner loop fraction routines in Metafont + and MetaPost. Included from texmfmp.c. By Wayne Sullivan + . */ + +/* + Converted to inline assembler for Visual C++ [45].xx + by Fabrice Popineau */ + +__declspec(naked) fraction __stdcall ztakefraction(integer p, integer q) { +__asm { + push ebp + mov ebp,esp + xor ecx,ecx + mov eax, p +; mov eax, [ebp+8] + cmp eax, 0x80000000 + jz LL5 + imul q + or edx,edx + jns LL2 + neg edx + neg eax + sbb edx, ecx + inc ecx +LL2: + add eax, 0x08000000 + adc edx, 0 + cmp edx, 0x07ffffff + ja LL3 + shrd eax,edx,28 +LL1: + jecxz LL4 + neg eax +LL4: + mov esp,ebp + pop ebp + ret 8 +LL5: + inc ecx +LL3: + mov eax, 0x7fffffff + mov aritherror, 1 + jmp LL1 +} +} + +__declspec(naked) integer __stdcall ztakescaled(integer p, scaled q) { +__asm { + push ebp + mov ebp,esp +; mov eax, [ebp+8] + xor ecx,ecx + mov eax, p + cmp eax, 0x80000000 + jz LL5 + imul q + or edx,edx + jns LL12 + neg edx + neg eax + sbb edx,ecx + inc ecx +LL12: + add eax, 0x00008000 + adc edx, 0x0 + cmp edx, 0x00007fff + ja LL3 + shrd eax,edx,16 +LL1: + jecxz LL4 + neg eax +LL4: + mov esp,ebp + pop ebp + ret 8 +LL5: + inc ecx +LL3: + mov eax, 0x7fffffff + mov aritherror, 1 + jmp LL1 + } +} + +__declspec(naked) scaled __stdcall zmakescaled(integer p, integer q) { + __asm { + mov cx, 16 + push ebp + mov ebp,esp + push ebx +; mov edx, [ebp+8] + mov edx, p + xor eax,eax + or edx,edx + jns LL32 + inc ch + neg edx +LL32: +; mov ebx, [ebp+12] + mov ebx,q + or ebx,ebx + jns LL33 + dec ch + neg ebx + or ebx,ebx + js LL34 +LL33: + or edx,edx + js LL34 + shrd eax,edx,cl + shr edx,cl + cmp edx,ebx + jae LL34 + div ebx + add edx,edx + inc edx + sub ebx,edx + adc eax, 0 + jc LL34 + cmp eax, 0x7fffffff + ja LL34 +LL31: or ch,ch + jz LL35 + neg eax +LL35: + pop ebx + mov esp, ebp + pop ebp + ret 8 +LL34: + mov eax, 0x7fffffff + mov aritherror, 1 + jmp LL31 + } +} + +__declspec(naked) fraction __stdcall zmakefraction(integer p, integer q) { + __asm { + mov cx, 4 + push ebp + mov ebp,esp + push ebx + mov edx, p +; mov [ebp+8],edx + xor eax,eax + or edx,edx + jns LL32 + inc ch + neg edx +LL32: +; mov [ebp+12],ebx + mov ebx, q + or ebx,ebx + jns LL33 + dec ch + neg ebx + or ebx,ebx + js LL34 +LL33: + or edx,edx + js LL34 + shrd eax,edx, cl + shr edx,cl + cmp edx,ebx + jae LL34 + div ebx + add edx,edx + inc edx + sub ebx,edx + adc eax, 0 + jc LL34 + cmp eax, 0x7fffffff + ja LL34 +LL31: or ch,ch + jz LL35 + neg eax +LL35: + pop ebx + mov esp, ebp + pop ebp + ret 8 +LL34: + mov eax, 0x7fffffff + mov aritherror, 1 + jmp LL31 + } +} + + -- cgit v1.2.3