* removed useless PowerPC and i386 code

rtl/sparc/set.inc

@@ -15,515 +15,12 @@
 
  **********************************************************************}
 
-{$define FPC_SYSTEM_HAS_FPC_SET_LOAD_SMALL}
-function fpc_set_load_small(l: fpc_small_set): fpc_normal_set;{assembler;}[public,alias:'FPC_SET_LOAD_SMALL']; compilerproc;
-{
-  load a normal set p from a smallset l
-
-  on entry: p in r3, l in r4
-}
-begin{asm}
-{        stw     r4,0(r3)
-        li      r0,0
-        stw     r0,4(r3)
-        stw     r0,8(r3)
-        stw     r0,12(r3)
-        stw     r0,16(r3)
-        stw     r0,20(r3)
-        stw     r0,24(r3)
-        stw     r0,28(r3)}
-end{ ['R0']};
-
-
-{$define FPC_SYSTEM_HAS_FPC_SET_CREATE_ELEMENT}
-{ checked 2001/09/28 (JM) }
-function fpc_set_create_element(b : byte): fpc_normal_set;{assembler;}[public,alias:'FPC_SET_CREATE_ELEMENT']; compilerproc;
-{
-  create a new set in p from an element b
-
-  on entry: pointer to result in r3, b in r4
-}
-begin{asm}
-{        li      r0,0
-        stw     r0,0(r3)
-        stw     r0,4(r3)
-        stw     r0,8(r3)
-        stw     r0,12(r3)
-        stw     r0,16(r3)
-        stw     r0,20(r3)
-        stw     r0,24(r3)
-        stw     r0,28(r3)
-
-        // r0 := 1 shl r4[27-31] -> bit index in dword (rotate instructions
-        // with count in register only consider lower 5 bits of this register)
-        li      r0,1
-        rlwnm   r0,r0,r4,0,31
-
-        // get the index of the correct *dword* in the set
-        // (((b div 8) div 4)*4= (b div 8) and not(3))
-        // r5 := (r4 rotl(32-3)) and (0x01ffffff8)
-        rlwinm  r4,r4,31-3+1,3,31-2
-
-        // store the result
-        stwx    r0,r3,r4}
-end{ ['R0','R4','R10']};
-
-
-{$define FPC_SYSTEM_HAS_FPC_SET_SET_BYTE}
-function fpc_set_set_byte(const source: fpc_normal_set; b : byte): fpc_normal_set;{assembler;} compilerproc;
-{
-  add the element b to the set pointed by p
-
-  on entry: result in r3, source in r4, b in r5
-}
-begin{asm}
-{       // copy source to result
-       li       r0,8
-       mtctr    r0
-       subi     r4,r4,4
-       subi     r3,r3,4
-Lset_set_byte_copy:
-       lwzu     r0,4(r4)
-       stwu     r0,4(r3)
-       bdnz     Lset_set_byte_copy
-       subi     r3,r3,32
-       // get the index of the correct *dword* in the set
-       // r0 := (r5 rotl(32-3)) and (0x0fffffff8)
-       rlwinm   r0,r5,31-3+1,3,31-2
-       // load dword in which the bit has to be set (and update r3 to this address)
-       lwzux    r4,r3,r0
-       li       r0,1
-       // generate bit which has to be inserted
-       // (can't use rlwimi, since that one only works for constants)
-       slw      r5,r0,r5
-       // insert it
-       or       r5,r4,r5
-       // store result
-       stw      r5,0(r3)}
-end{ ['R0','R3','R4','R5','CTR']};
-
-
-{$define FPC_SYSTEM_HAS_FPC_SET_UNSET_BYTE}
-function fpc_set_unset_byte(const source: fpc_normal_set; b : byte): fpc_normal_set;{assembler;} compilerproc;
-{
-  suppresses the element b to the set pointed by p
-  used for exclude(set,element)
-
-  on entry: p in r3, b in r4
-}
-begin{asm}
-{       // copy source to result
-       li       r0,8
-       mtctr    r0
-       subi     r4,r4,4
-       subi     r3,r3,4
-Lset_unset_byte_copy:
-       lwzu     r0,4(r4)
-       stwu     r0,4(r3)
-       bdnz     Lset_unset_byte_copy
-       subi     r3,r3,32
-       // get the index of the correct *dword* in the set
-       // r0 := (r4 rotl(32-3)) and (0x0fffffff8)
-       rlwinm   r0,r5,31-3+1,3,31-2
-       // load dword in which the bit has to be set (and update r3 to this address)
-       lwzux    r4,r3,r0
-       li       r0,1
-       // generate bit which has to be removed
-       rlwnm    r5,r0,r5,0,31
-       // remove it
-       andc     r5,r4,r5
-       // store result
-       stw      r4,0(r3)}
-end{ ['R0','R3','R4','R5','CTR']};
-
-
-{$define FPC_SYSTEM_HAS_FPC_SET_SET_RANGE}
-function fpc_set_set_range(const orgset: fpc_normal_set; l,h : byte): fpc_normal_set;{assembler;} compilerproc;
-{
-  on entry: result in r3, l in r4, h in r5
-
-  on entry: result in r3, ptr to orgset in r4, l in r5, h in r6
-}
-begin{asm}
-{  // copy source to result
-  li       r0,8
-  mtctr    r0
-  subi     r4,r4,4
-  subi     r3,r3,4
-Lset_set_range_copy:
-  lwzu     r0,4(r4)
-  stwu     r0,4(r3)
-  bdnz     Lset_set_range_copy
-  subi     r3,r3,32
-
-  cmplw  cr0,r5,r6
-  bgt    cr0,Lset_range_exit
-  rlwinm r4,r5,31-3+1,3,31-2  // divide by 8 to get starting and ending byte-}
-  { load the set the data cache }
-{  dcbst  r3,r4
-  rlwinm r9,r6,31-3+1,3,31-2  // address and clear two lowest bits to get
-                              //  start/end longint address
-  sub.   r9,r4,r9             // are bit lo and hi in the same longint?
-  rlwinm r6,r6,0,31-5+1,31    // hi := hi mod 32 (= "hi and 31", but the andi
-                              //  instr. only exists in flags modifying form)
-  li     r10,-1               // r10 = $0x0ffffffff = bitmask to be inserted
-  subfic r6,r6,31             // hi := 31 - (hi mod 32) = shift count for later
-  srw    r10,r10,r4           // shift bitmask to clear bits below lo
-                              // note: shift right = opposite little endian!!
-  lwzux  r5,r3,r4             // go to starting pos in set and load value
-                              //  (lo is not necessary anymore)
-  beq    Lset_range_hi        // if bit lo and hi in same longint, keep
-                              //  current mask and adjust for hi bit
-  subic. r9,r9,4              // bit hi in next longint?
-  or     r5,r5,r10            // merge and
-  stw    r5,0(r3)             // store current mask
-  li     r10,-1               // new mask
-  lwzu   r5,4(r3)             // load next longint of set
-  beq    Lset_range_hi        // bit hi in this longint -> go to adjust for hi
-Lset_range_loop:
-  subic. r9,r9,4
-  stwu   r10,4(r3)            // fill longints in between with full mask
-  bne    Lset_range_loop
-  lwzu   r5,4(r3)             // load next value from set
-Lset_range_hi:                // in all cases, r3 here contains the address of
-                              //  the longint which contains the hi bit and r4
-                              //  contains this longint
-  slw    r9,r10,r6            // r9 := bitmask shl (31 - (hi mod 32)) =
-                              //  bitmask with bits higher than hi cleared
-                              //  (r8 = $0xffffffff unless the first beq was
-                              //   taken)
-  and    r10,r9,r10           // combine lo and hi bitmasks for this longint
-  or     r5,r5,r10            // and combine with existing set
-  stw    r5,0(r3)             // store to set
-Lset_range_exit:}
-end{ ['R0','R3','R4','R5','R6','R9','R10','CR0','CTR']};
-
-
-{$define FPC_SYSTEM_HAS_FPC_SET_IN_BYTE}
-function fpc_set_in_byte(const p: fpc_normal_set; b : byte): boolean;compilerproc;{assembler;}
-{
-  tests if the element b is in the set p, the **zero** flag is cleared if it's present
-
-  on entry: p in r3, b in r4
-}
-begin{asm}
-{       // get the index of the correct *dword* in the set
-       // r0 := (r4 rotl(32-3)) and (0x0fffffff8)
-       rlwinm   r0,r4,31-3+1,3,31-2
-       // load dword in which the bit has to be tested
-       lwzx     r3,r3,r0
-
-       li       r0,1
-       // generate bit which has to be tested
-       rlwnm    r4,r0,r4,0,31
-       // test it
-       and.     r3,r3,r4}
-end{ ['R0','R3','R4','CR0']};
-
-
-
-{$define FPC_SYSTEM_HAS_FPC_SET_ADD_SETS}
-function fpc_set_add_sets(const set1,set2: fpc_normal_set): fpc_normal_set;{assembler;}[public,alias:'FPC_SET_ADD_SETS']; compilerproc;
-{
-  adds set1 and set2 into set dest
-  on entry: result in r3, set1 in r4, set2 in r5
-}
-begin{asm}
-       {  load the begin of the result set in the data cache }
-{       dcbst    0,r3
-       li       r0,8
-       mtctr    r0
-       subi     r5,r5,4
-       subi     r4,r4,4
-       subi     r3,r3,4
-   LMADDSETS1:
-      lwzu      r0,4(r4)
-      lwzu      r10,4(r5)
-      or        r0,r0,r10
-      stwu      r0,4(r3)
-      bdnz      LMADDSETS1}
-end{ ['R0','R3','R4','R5','R10','CTR']};
-
-
-{$define FPC_SYSTEM_HAS_FPC_SET_MUL_SETS}
-function fpc_set_mul_sets(const set1,set2: fpc_normal_set): fpc_normal_set;{assembler;}[public,alias:'FPC_SET_MUL_SETS']; compilerproc;
-{
-  multiplies (takes common elements of) set1 and set2 result put in dest
-  on entry: result in r3, set1 in r4, set2 in r5
-}
-begin{asm}
-       {  load the begin of the result set in the data cache }
-{       dcbst    0,r3
-       li       r0,8
-       mtctr    r0
-       subi     r5,r5,4
-       subi     r4,r4,4
-       subi     r3,r3,4
-   LMMULSETS1:
-      lwzu      r0,4(r4)
-      lwzu      r10,4(r5)
-      and       r0,r0,r10
-      stwu      r0,4(r3)
-      bdnz      LMMULSETS1}
-end{ ['R0','R3','R4','R5','R10','CTR']};
-
-
-{$define FPC_SYSTEM_HAS_FPC_SET_SUB_SETS}
-function fpc_set_sub_sets(const set1,set2: fpc_normal_set): fpc_normal_set;{assembler;}[public,alias:'FPC_SET_SUB_SETS']; compilerproc;
-{
-  computes the diff from set1 to set2 result in dest
-  on entry: result in r3, set1 in r4, set2 in r5
-}
-begin{asm}
-       {  load the begin of the result set in the data cache }
-{       dcbst    0,r3
-       li       r0,8
-       mtctr    r0
-       subi     r5,r5,4
-       subi     r4,r4,4
-       subi     r3,r3,4
-   LMSUBSETS1:
-      lwzu      r0,4(r4)
-      lwzu      r10,4(r5)
-      andc      r0,r0,r10
-      stwu      r0,4(r3)
-      bdnz      LMSUBSETS1}
-end{ ['R0','R3','R4','R5','R10','CTR']};
-
-
-{$define FPC_SYSTEM_HAS_FPC_SET_SYMDIF_SETS}
-function fpc_set_symdif_sets(const set1,set2: fpc_normal_set): fpc_normal_set;{assembler;}[public,alias:'FPC_SET_SYMDIF_SETS']; compilerproc;
-{
-   computes the symetric diff from set1 to set2 result in dest
-  on entry: result in r3, set1 in r4, set2 in r5
-}
-begin{asm}
-       {  load the begin of the result set in the data cache }
-{       dcbst    0,r3
-       li       r0,8
-       mtctr    r0
-       subi     r5,r5,4
-       subi     r4,r4,4
-       subi     r3,r3,4
-   LMSYMDIFSETS1:
-      lwzu      r0,4(r4)
-      lwzu      r10,4(r5)
-      xor       r0,r0,r10
-      stwu      r0,4(r3)
-      bdnz      LMSYMDIFSETS1}
-end{ ['R0','R3','R4','R5','R10','CTR']};
-
-
-{$define FPC_SYSTEM_HAS_FPC_SET_COMP_SETS}
-function fpc_set_comp_sets(const set1,set2: fpc_normal_set): boolean;{assembler;}[public,alias:'FPC_SET_COMP_SETS']; compilerproc;
-{
-  compares set1 and set2 zeroflag is set if they are equal
-  on entry: set1 in r3, set2 in r4
-}
-begin{asm}
-{       li       r0,8
-       mtctr    r0
-       subi     r3,r3,4
-       subi     r4,r4,4
-    LMCOMPSETS1:
-       lwzu     r0,4(r3)
-       lwzu     r10,4(r4)
-       sub.     r0,r0,r10
-       bdnzt    cr0*4+eq,LMCOMPSETS1
-       cntlzw   r3,r0
-       srwi.    r3,r3,5}
-end{ ['R0','R3','R4','R10','CR0','CTR']};
-
-
-{$define FPC_SYSTEM_HAS_FPC_SET_CONTAINS_SET}
-function fpc_set_contains_sets(const set1,set2: fpc_normal_set): boolean;{assembler;}[public,alias:'FPC_SET_CONTAINS_SETS']; compilerproc;
-{
-  on exit, zero flag is set if set1 <= set2 (set2 contains set1)
-  on entry: set1 in r3, set2 in r4
-}
-begin{asm}
-{       li       r0,8
-       mtctr    r0
-       subi     r3,r3,4
-       subi     r4,r4,4
-    LMCONTAINSSETS1:
-       lwzu     r0,4(r3)
-       lwzu     r10,4(r4)}
-       { set1 and not(set2) = 0? }
-{       andc.    r0,r0,r10
-       bdnzt    cr0*4+eq,LMCONTAINSSETS1
-       cntlzw   r3,r0
-       srwi.    r3,r3,5}
-end{ ['R0','R3','R4','R10','CR0','CTR']};
-
-
-
-{$ifdef LARGESETS}
-
-procedure do_set(p : pointer;b : word);{assembler;}[public,alias:'FPC_SET_SET_WORD'];
-{
-  sets the element b in set p works for sets larger than 256 elements
-  not yet use by the compiler so
-}
-begin{asm}
-{       pushl %eax
-       movl p,%edi
-       movw b,%ax
-       andl $0xfff8,%eax
-       shrl $3,%eax
-       addl %eax,%edi
-       movb 12(%ebp),%al
-       andl $7,%eax
-       btsl %eax,(%edi)
-       popl %eax}
-end;
-
-
-procedure do_in(p : pointer;b : word);{assembler;}[public,alias:'FPC_SET_IN_WORD'];
-{
-  tests if the element b is in the set p the carryflag is set if it present
-  works for sets larger than 256 elements
-}
-begin{asm}
-{        pushl %eax
-        movl p,%edi
-        movw b,%ax
-        andl $0xfff8,%eax
-        shrl $3,%eax
-        addl %eax,%edi
-        movb 12(%ebp),%al
-        andl $7,%eax
-        btl %eax,(%edi)
-        popl %eax}
-end;
-
-
-procedure add_sets(set1,set2,dest : pointer;size : longint);{assembler;}[public,alias:'FPC_SET_ADD_SETS_SIZE'];
-{
-  adds set1 and set2 into set dest size is the number of bytes in the set
-}
-begin{asm}
-{      movl set1,%esi
-      movl set2,%ebx
-      movl dest,%edi
-      movl size,%ecx
-  LMADDSETSIZES1:
-      lodsl
-      orl (%ebx),%eax
-      stosl
-      addl $4,%ebx
-      decl %ecx
-      jnz LMADDSETSIZES1}
-end;
-
-
-procedure mul_sets(set1,set2,dest : pointer;size : longint);{assembler;}[public,alias:'FPC_SET_MUL_SETS_SIZE'];
-{
-  multiplies (i.E. takes common elements of) set1 and set2 result put in
-  dest size is the number of bytes in the set
-}
-begin{asm}
-{         movl set1,%esi
-         movl set2,%ebx
-         movl dest,%edi
-         movl size,%ecx
-     LMMULSETSIZES1:
-         lodsl
-         andl (%ebx),%eax
-         stosl
-         addl $4,%ebx
-         decl %ecx
-         jnz LMMULSETSIZES1}
-end;
-
-
-procedure sub_sets(set1,set2,dest : pointer;size : longint);{assembler;}[public,alias:'FPC_SET_SUB_SETS_SIZE'];
-begin{asm}
-{         movl set1,%esi
-         movl set2,%ebx
-         movl dest,%edi
-         movl size,%ecx
-     LMSUBSETSIZES1:
-         lodsl
-         movl (%ebx),%edx
-         notl %edx
-         andl %edx,%eax
-         stosl
-         addl $4,%ebx
-         decl %ecx
-         jnz LMSUBSETSIZES1}
-end;
-
-
-procedure sym_sub_sets(set1,set2,dest : pointer;size : longint);{assembler;}[public,alias:'FPC_SET_SYMDIF_SETS_SIZE'];
-{
-   computes the symetric diff from set1 to set2 result in dest
-}
-begin{asm}
-{      movl set1,%esi
-      movl set2,%ebx
-      movl dest,%edi
-      movl size,%ecx
-  LMSYMDIFSETSIZE1:
-      lodsl
-      movl (%ebx),%edx
-      xorl %edx,%eax
-      stosl
-      addl $4,%ebx
-      decl %ecx
-      jnz LMSYMDIFSETSIZE1}
-end;
-
-
-procedure comp_sets(set1,set2 : pointer;size : longint);{assembler;}[public,alias:'FPC_SET_COMP_SETS_SIZE'];
-begin{asm}
-{      movl set1,%esi
-      movl set2,%edi
-      movl size,%ecx
-  LMCOMPSETSIZES1:
-      lodsl
-      movl (%edi),%edx
-      cmpl %edx,%eax
-      jne  LMCOMPSETSIZEEND
-      addl $4,%edi
-      decl %ecx
-      jnz LMCOMPSETSIZES1}
-      { we are here only if the two sets are equal
-        we have zero flag set, and that what is expected }
-{  LMCOMPSETSIZEEND:}
-end;
-
-{$IfNDef NoSetInclusion}
-procedure contains_sets(set1,set2 : pointer; size: longint);{assembler;}[public,alias:'FPC_SET_CONTAINS_SETS'];
-{
-  on exit, zero flag is set if set1 <= set2 (set2 contains set1)
-}
-begin{asm}
-{        movl set1,%esi
-        movl set2,%edi
-        movl size,%ecx
-    LMCONTAINSSETS2:
-        movl (%esi),%eax
-        movl (%edi),%edx
-        andl %eax,%edx
-        cmpl %edx,%eax}  {set1 and set2 = set1?}
-{        jne  LMCONTAINSSETEND2
-        addl $4,%esi
-        addl $4,%edi
-        decl %ecx
-        jnz LMCONTAINSSETS2}
-        { we are here only if set2 contains set1
-          we have zero flag set, and that what is expected }
-{    LMCONTAINSSETEND2:}
-end;
-{$EndIf NoSetInclusion}
-
-
-{$endif LARGESET}
-
 {
   $Log$
-  Revision 1.1  2002-12-24 21:30:20  mazen
+  Revision 1.2  2004-05-30 13:06:38  florian
+    * removed useless PowerPC and i386 code
+
+  Revision 1.1  2002/12/24 21:30:20  mazen
   - some writeln(s) removed in compiler
   + many files added to RTL
   * some errors fixed in RTL