* define to get ansistring returns in ref instead of reg

compiler/cg386cal.pas

@@ -23,7 +23,7 @@
 unit cg386cal;
 interface
 
-{$define EXtdebug}
+{ $define AnsiStrRef}
 
     uses
       symtable,tree;
@@ -1023,6 +1023,11 @@ implementation
                             gettempansistringreference(hr);
                             exprasmlist^.concat(new(pai386,op_reg_ref(A_MOV,S_L,p^.location.register,
                               newreference(hr))));
+{$ifdef AnsiStrRef}
+                            ungetregister(hregister);
+                            p^.location.loc:=LOC_REFERENCE;
+                            p^.location.reference:=hr;
+{$endif}
                             { unnessary ansi/wide strings are imm. disposed }
                             if not(p^.return_value_used) then
                               begin
@@ -1196,7 +1201,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.71  1999-03-31 13:55:04  peter
+  Revision 1.72  1999-04-09 08:41:48  peter
+    * define to get ansistring returns in ref instead of reg
+
+  Revision 1.71  1999/03/31 13:55:04  peter
     * assembler inlining working for ag386bin
 
   Revision 1.70  1999/03/24 23:16:46  peter