Add mips cpu code and generate helpful message for unsupported cpu

git-svn-id: trunk@22532 -

tests/tbs/tb0072.pp

@@ -11,41 +11,58 @@
 
 procedure nothing(x,y: longint);assembler;
 {$ifdef CPUI386}
+{$define SUPPORTED}
 asm
   mov eax,x
   mov ebx,y
 end;
 {$endif CPUI386}
 {$ifdef CPU68K}
+{$define SUPPORTED}
 asm
   move.l  x,d0
   move.l  y,d1
 end;
 {$endif CPU68K}
 {$ifdef CPUPOWERPC}
+{$define SUPPORTED}
 asm
   mr r5,x
   mr r6,y
 end;
 {$endif CPUPOWERPC}
 {$ifdef CPUARM}
+{$define SUPPORTED}
 asm
   mov r2,x
   mov r3,y
 end;
 {$endif CPUARM}
 {$ifdef CPUX86_64}
+{$define SUPPORTED}
 asm
   movl x,%eax
   movl y,%ecx
 end;
 {$endif CPUX86_64}
 {$ifdef CPUSPARC}
+{$define SUPPORTED}
 asm
   mov x,%i0
   mov y,%i1
 end;
 {$endif CPUSPARC}
+{$ifdef CPUSMIPS}
+{$define SUPPORTED}
+asm
+  lw $t1,x
+  lw $t2,y
+end;
+{$endif CPUMIPS}
+{$ifndef SUPPORTED}
+asm
+end;
+{$endif ndef SUPPORTED}
 
 {procedure nothing(x,y: longint);
 begin
@@ -56,4 +73,9 @@ begin
 end; }
 
 Begin
+{$ifndef SUPPORTED}
+  Writeln('The CPU of this test is not supported by test tbs/tb0072.pp');
+  Writeln('Please add assembler code corresponding to this CPU to source');
+  halt(1);
+{$endif ndef SUPPORTED}
 end.