Browse Source

- undid my changes from the previous two commits because it was a bug
in cg386cnv which I've now fixed (previous changes only masked it in
some cases) (merged from fixes branch)

Jonas Maebe 25 years ago
parent
commit
8e76008e98
1 changed files with 7 additions and 6 deletions
  1. 7 6
      compiler/tccnv.pas

+ 7 - 6
compiler/tccnv.pas

@@ -336,11 +336,7 @@ implementation
            as LOC_MEM, could also become LOC_REGISTER }
            as LOC_MEM, could also become LOC_REGISTER }
          if pstringdef(p^.resulttype)^.string_typ in [st_ansistring,st_widestring] then
          if pstringdef(p^.resulttype)^.string_typ in [st_ansistring,st_widestring] then
            { we may use ansistrings so no fast exit here }
            { we may use ansistrings so no fast exit here }
-           begin
-             procinfo^.no_fast_exit:=true;
-             if p^.registers32 < 2 then
-               p^.registers32 := 2;
-           end;
+           procinfo^.no_fast_exit:=true;
          p^.location.loc:=LOC_MEM;
          p^.location.loc:=LOC_MEM;
       end;
       end;
 
 
@@ -1028,7 +1024,12 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.4  2000-08-01 10:41:35  jonas
+  Revision 1.5  2000-08-02 07:20:32  jonas
+      - undid my changes from the previous two commits because it was a bug
+        in cg386cnv which I've now fixed (previous changes only masked it in
+        some cases) (merged from fixes branch)
+
+  Revision 1.4  2000/08/01 10:41:35  jonas
     * refined my previous IE(10) fix (in some cases, too many registers could
     * refined my previous IE(10) fix (in some cases, too many registers could
       be reserved) (merged from fixes branch)
       be reserved) (merged from fixes branch)