Browse Source

Use FPC_LOCALS_ARE_STACK_REG_RELATIVE macro to fix test for mips/mipsel

git-svn-id: trunk@29762 -
pierre 10 years ago
parent
commit
2095698a17
1 changed files with 6 additions and 1 deletions
  1. 6 1
      tests/tbs/tb0508.pp

+ 6 - 1
tests/tbs/tb0508.pp

@@ -5,7 +5,12 @@ type
 
 procedure proccall(p: codepointer);
 begin
-  PointerLocal(p)(get_caller_frame(get_frame));
+{$ifndef FPC_LOCALS_ARE_STACK_REG_RELATIVE}
+  PointerLocal(p)(get_caller_frame(get_frame,get_pc_addr));
+{$else}
+PointerLocal(p)(get_frame);
+{$endif}  
+
 end;
 
 procedure t1;