paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 01:26:10 +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;
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