Browse Source

* always use the non-dotted name for function calls and disable putting constants into the got (should be: toc) for now; fixing cycle with "-Cg"

git-svn-id: trunk@8172 -
tom_at_work 18 years ago
parent
commit
5428135ca7
1 changed files with 5 additions and 5 deletions
  1. 5 5
      compiler/powerpc64/cgcpu.pas

+ 5 - 5
compiler/powerpc64/cgcpu.pas

@@ -544,7 +544,7 @@ end;
 procedure tcgppc.a_call_name(list: TAsmList; const s: string);
 procedure tcgppc.a_call_name(list: TAsmList; const s: string);
 begin
 begin
     if (target_info.system <> system_powerpc64_darwin) then
     if (target_info.system <> system_powerpc64_darwin) then
-      a_call_name_direct(list, s, true, true)
+      a_call_name_direct(list, s, false, true)
     else
     else
       begin
       begin
         list.concat(taicpu.op_sym(A_BL,get_darwin_call_stub(s)));
         list.concat(taicpu.op_sym(A_BL,get_darwin_call_stub(s)));
@@ -715,10 +715,10 @@ begin
     internalerror(2002090902);
     internalerror(2002090902);
   { if PIC or basic optimizations are enabled, and the number of instructions which would be
   { if PIC or basic optimizations are enabled, and the number of instructions which would be
    required to load the value is greater than 2, store (and later load) the value from there } 
    required to load the value is greater than 2, store (and later load) the value from there } 
-  if (((cs_opt_peephole in current_settings.optimizerswitches) or (cs_create_pic in current_settings.moduleswitches)) and
-    (getInstructionLength(a) > 2)) then
-    loadConstantPIC(list, size, a, reg)
-  else
+//  if (((cs_opt_peephole in current_settings.optimizerswitches) or (cs_create_pic in current_settings.moduleswitches)) and
+//    (getInstructionLength(a) > 2)) then
+//    loadConstantPIC(list, size, a, reg)
+//  else
     loadConstantNormal(list, size, a, reg);
     loadConstantNormal(list, size, a, reg);
 end;
 end;