paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 20:46:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* define to get ansistring returns in ref instead of reg

Browse Source
This commit is contained in:
peter 1999-04-09 08:41:48 +00:00
parent 75b750e247
commit 370f15bcc4
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/cg386cal.pas
View File

@ -23,7 +23,7 @@
unit cg386cal; unit cg386cal;
interface interface
{$define EXtdebug} { $define AnsiStrRef}
uses uses
symtable,tree; symtable,tree;
@ -1023,6 +1023,11 @@ implementation
gettempansistringreference(hr); gettempansistringreference(hr);
exprasmlist^.concat(new(pai386,op_reg_ref(A_MOV,S_L,p^.location.register, exprasmlist^.concat(new(pai386,op_reg_ref(A_MOV,S_L,p^.location.register,
newreference(hr)))); newreference(hr))));
{$ifdef AnsiStrRef}
ungetregister(hregister);
p^.location.loc:=LOC_REFERENCE;
p^.location.reference:=hr;
{$endif}
{ unnessary ansi/wide strings are imm. disposed } { unnessary ansi/wide strings are imm. disposed }
if not(p^.return_value_used) then if not(p^.return_value_used) then
begin begin
@ -1196,7 +1201,10 @@ implementation
end. end.
{ {
$Log$ $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 * assembler inlining working for ag386bin
Revision 1.70 1999/03/24 23:16:46 peter Revision 1.70 1999/03/24 23:16:46 peter