More partial arith translations

Author: rurban

src/ari_asm_arm.d

@@ -1,6 +1,7 @@
-/* (c) Copyright 1994, 1997 P.J.Burwood
+/* -*- asm -*-
+ (c) Copyright 1994, 1997 P.J.Burwood
  bugfixes (c) Copyright 1996 B. Haible
- external routines for arilev1.d
+ External routines for arilev1.d
  Processor: ARM in APCS mode
  Assembler-Syntax: GAS
  Parameter passing conventions, per APCS:

src/ari_asm_hppa.d

@@ -1,5 +1,5 @@
-/*
- * External routines for ARILEV1.D
+/* -*- asm -*-
+ * External routines for arilev1.d
  * Processor: HPPA, because of XMPYU only on HPPA 1.1 (like HP9000/720)
  * Compiler: GNU-C or HP-C
  * Parameter passing conventions:

src/ari_asm_sparc.d

@@ -1,16 +1,18 @@
-# Externe Routinen zu ARILEV1.D
-# Prozessor: SPARC
-# Compiler: GNU-C oder SUN-C
-# Parameter passing conventions:
-#   Argument registers:
-#     %o0..%o5
-#   Return value register:
-#     %o0 for a single word; %o0 (high 32 bits), %o1 (low 32 bits) for a 'long long'.
-#   Call-used registers (do not have to be preserved across function calls):
-#     %o0..%o5, %g1..%g5
-#   Global register usage:
-#     see gcc-5.4.0/gcc/config/sparc/sparc.h comment before CALL_USED_REGISTERS.
-# Settings: intCsize=32, intDsize=32.
+/* -*- asm -*-
+ * External routines for arilev1.d
+ * Prozessor: SPARC
+ * Compiler: GNU-C oder SUN-C
+ * Parameter passing conventions:
+ *   Argument registers:
+ *     %o0..%o5
+ *   Return value register:
+ *     %o0 for a single word; %o0 (high 32 bits), %o1 (low 32 bits) for a 'long long'.
+ *   Call-used registers (do not have to be preserved across function calls):
+ *     %o0..%o5, %g1..%g5
+ *   Global register usage:
+ *     see gcc-5.4.0/gcc/config/sparc/sparc.h comment before CALL_USED_REGISTERS.
+ * Settings: intCsize=32, intDsize=32.
+ */
 
 #ifdef INCLUDED_FROM_C
 

src/ari_asm_sparc64.d

@@ -1,24 +1,26 @@
-# Externe Routinen zu ARILEV1.D
-# Prozessor: SPARC 64-bit
-# Compiler: GNU-C oder ...
-# Parameter passing conventions:
-#   Argument registers:
-#     %o0..%o5
-#   Arguments of type uint8, uint16, uint32 have already been converted to
-#   uint64 by the caller (zero-extend, "srl reg,0,reg").
-#   Arguments of type sint8, sint16, sint32 have already been converted to
-#   sint64 by the caller (sign-extend, "sra reg,0,reg").
-#   Return value register:
-#     %o0
-#   Return values of type uint8, uint16, uint32 must be converted to uint64
-#   before returning (zero-extend, "srl %o0,0,%o0").
-#   Return values of type sint8, sint16, sint32 must be converted to sint64
-#   before returning (sign-extend, "sra %o0,0,%o0").
-#   Call-used registers (do not have to be preserved across function calls):
-#     %o0..%o5, %g1..%g5
-#   Global register usage:
-#     see gcc-5.4.0/gcc/config/sparc/sparc.h comment before CALL_USED_REGISTERS.
-# Settings: intCsize=32, intDsize=32.
+/* -*- asm -*-
+ * External routines for arilev1.d
+ * Prozessor: SPARC 64-bit
+ * Compiler: GNU-C compatible
+ * Parameter passing conventions:
+ *   Argument registers:
+ *     %o0..%o5
+ *   Arguments of type uint8, uint16, uint32 have already been converted to
+ *   uint64 by the caller (zero-extend, "srl reg,0,reg").
+ *   Arguments of type sint8, sint16, sint32 have already been converted to
+ *   sint64 by the caller (sign-extend, "sra reg,0,reg").
+ *   Return value register:
+ *     %o0
+ *   Return values of type uint8, uint16, uint32 must be converted to uint64
+ *   before returning (zero-extend, "srl %o0,0,%o0").
+ *   Return values of type sint8, sint16, sint32 must be converted to sint64
+ *   before returning (sign-extend, "sra %o0,0,%o0").
+ *   Call-used registers (do not have to be preserved across function calls):
+ *     %o0..%o5, %g1..%g5
+ *   Global register usage:
+ *     see gcc-5.4.0/gcc/config/sparc/sparc.h comment before CALL_USED_REGISTERS.
+ * Settings: intCsize=32, intDsize=32.
+ */
 
 #ifdef INCLUDED_FROM_C
 

src/arilev0.d

@@ -1,10 +1,10 @@
-# Arithmetik, Level 0
-# operiert auf einzelnen 16-Bit-Wörtern und 32-Bit-Wörtern (unsigned).
+# Arithmetic, Level 0
+# works with 16-bit words and unsigned 32-bit words.
 
-# Vorzeichen einer 32-Bit-Zahl bestimmen
+# Get sign of a 32-bit int
 # sign_of_sint32(value)
-# > value: eine 32-Bit-Zahl
-# < sint16 result: 0 falls value>=0, -1 falls value<0.
+# > value: sint32
+# < sint16 result: 0 if value>=0, -1 if value<0.
   extern sint16 sign_of_sint32 (sint32 value);
   #if defined(SPARC64)
     #define sign_of_sint32(value)  (((sint64)(sint32)(value)) >> 63)
@@ -14,10 +14,10 @@
     #define sign_of_sint32(value)  ((sint32)(value) >= 0 ? 0 : -1)
   #endif
 
-# Vorzeichen einer 16-Bit-Zahl bestimmen
+# Get sign of a sint16
 # sign_of_sint16(value)
-# > value: eine 16-Bit-Zahl
-# < sint16 result: 0 falls value>=0, -1 falls value<0.
+# > value: sint16
+# < sint16 result: 0 if value>=0, -1 if value<0.
   extern sint16 sign_of_sint16 (sint16 value);
   #if defined(SPARC64)
     #define sign_of_sint16(value)  (((sint64)(sint16)(value)) >> 63)
@@ -27,12 +27,12 @@
     #define sign_of_sint16(value)  ((sint16)(value) >= 0 ? 0 : -1)
   #endif
 
-# High-Word einer 32-Bit-Zahl bestimmen
+# Get high-word of a uint32
 # high16(value)
   extern uint16 high16 (uint32 value);
   #define high16(value)  ((uint16)((uint32)(value)>>16))
 
-# Low-Word einer 32-Bit-Zahl bestimmen
+# Get low-word of a uint32
 # low16(value)
   extern uint16 low16 (uint32 value);
   #define low16(value)  ((uint16)(uint32)(value))

src/arilev1c.d

@@ -1,6 +1,6 @@
-# Definitionen und portabler C-Code zu ARILEV1.D
+# Definitions and portable C-code for arilev1.d
 
-# Kopierschleife:
+# copying loop:
 # destptr = copy_loop_up(sourceptr,destptr,count);
 # kopiert count (uintC>=0) Digits aufwärts von sourceptr nach destptr
 # und liefert das neue destptr.
@@ -12,7 +12,7 @@
     return destptr;
   }
 
-# Kopierschleife:
+# copying loop:
 # destptr = copy_loop_down(sourceptr,destptr,count);
 # kopiert count (uintC>=0) Digits abwärts von sourceptr nach destptr
 # und liefert das neue destptr.
@@ -24,7 +24,7 @@
     return destptr;
   }
 
-# Füllschleife:
+# fill loop:
 # destptr = fill_loop_up(destptr,count,filler);
 # kopiert count (uintC>=0) mal das Digit filler aufwärts nach destptr
 # und liefert das neue destptr.
@@ -36,7 +36,7 @@
     return destptr;
   }
 
-# Füllschleife:
+# fill loop:
 # destptr = fill_loop_down(destptr,count,filler);
 # kopiert count (uintC>=0) mal das Digit filler abwärts nach destptr
 # und liefert das neue destptr.
@@ -48,7 +48,7 @@
     return destptr;
   }
 
-# Lösch-Schleife:
+# clear loop:
 # destptr = clear_loop_up(destptr,count);
 # löscht count (uintC>=0) Digits aufwärts ab destptr
 # und liefert das neue destptr.
@@ -60,7 +60,7 @@
     return destptr;
   }
 
-# Lösch-Schleife:
+# clear loop:
 # destptr = clear_loop_down(destptr,count);
 # löscht count (uintC>=0) Digits abwärts ab destptr
 # und liefert das neue destptr.
@@ -72,7 +72,7 @@
     return destptr;
   }
 
-# OR-Schleife:
+# OR loop:
 # or_loop_up(xptr,yptr,count);
 # verknüpft count (uintC>=0) Digits aufwärts ab xptr und ab yptr
 # mit Ziel ab xptr durch OR.
@@ -83,7 +83,7 @@
     }
   }
 
-# XOR-Schleife:
+# XOR loop:
 # xor_loop_up(xptr,yptr,count);
 # verknüpft count (uintC>=0) Digits aufwärts ab xptr und ab yptr
 # mit Ziel ab xptr durch XOR.
@@ -94,7 +94,7 @@
     }
   }
 
-# AND-Schleife:
+# AND loop:
 # and_loop_up(xptr,yptr,count);
 # verknüpft count (uintC>=0) Digits aufwärts ab xptr und ab yptr
 # mit Ziel ab xptr durch AND.
@@ -105,7 +105,7 @@
     }
   }
 
-# EQV-Schleife:
+# EQV loop:
 # eqv_loop_up(xptr,yptr,count);
 # verknüpft count (uintC>=0) Digits aufwärts ab xptr und ab yptr
 # mit Ziel ab xptr durch EQV (NOT XOR).
@@ -118,7 +118,7 @@
     }
   }
 
-# NAND-Schleife:
+# NAND loop:
 # nand_loop_up(xptr,yptr,count);
 # verknüpft count (uintC>=0) Digits aufwärts ab xptr und ab yptr
 # mit Ziel ab xptr durch NAND (NOT AND).
@@ -131,7 +131,7 @@
     }
   }
 
-# NOR-Schleife:
+# NOR loop:
 # nor_loop_up(xptr,yptr,count);
 # verknüpft count (uintC>=0) Digits aufwärts ab xptr und ab yptr
 # mit Ziel ab xptr durch NOR (NOT OR).
@@ -144,7 +144,7 @@
     }
   }
 
-# ANDC2-Schleife:
+# ANDC2 loop:
 # andc2_loop_up(xptr,yptr,count);
 # verknüpft count (uintC>=0) Digits aufwärts ab xptr und ab yptr
 # mit Ziel ab xptr durch ANDC2 (AND NOT).
@@ -155,7 +155,7 @@
     }
   }
 
-# ORC2-Schleife:
+# ORC2 loop:
 # orc2_loop_up(xptr,yptr,count);
 # verknüpft count (uintC>=0) Digits aufwärts ab xptr und ab yptr
 # mit Ziel ab xptr durch ORC2 (OR NOT).
@@ -166,7 +166,7 @@
     }
   }
 
-# NOT-Schleife:
+# NOT loop:
 # not_loop_up(xptr,count);
 # verknüpft count (uintC>0) Digits aufwärts ab xptr mit Ziel ab xptr
 # durch NOT.
@@ -179,7 +179,7 @@
     } while (count != 0);
   }
 
-# AND-Test-Schleife:
+# AND-Test loop:
 # and_test_loop_up(xptr,yptr,count);
 # verknüpft count (uintC>=0) Digits aufwärts ab xptr und ab yptr durch AND
 # und testet, ob sich dabei ein Digit /=0 ergibt. Ergebnis /=0, falls ja.
@@ -193,7 +193,7 @@
     return false;
   }
 
-# Test-Schleife:
+# Test loop:
 # test_loop_up(ptr,count)
 # testet count (uintC>=0) Digits aufwärts ab ptr, ob darunter eines /=0 ist.
 # Ergebnis /=0, falls ja.
@@ -587,7 +587,7 @@
   #endif
   }
 
-# Schiebe- und Kopier-Schleife um i Bits nach rechts:
+# Move and copy loop by i bits to the right:
 # übertrag = shiftrightcopy_loop_up(sourceptr,destptr,count,i,carry);
 # kopiert count (uintC>=0) Digits aufwärts von sourceptr nach destptr
 # und schiebt sie dabei um i Bits (0<i<intDsize) nach rechts, wobei carry