paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 20:29:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* removed radirect

Browse Source
This commit is contained in:
peter 2003-05-13 19:15:28 +00:00
parent 05c05f2555
commit 9ffa87206f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/x86/radirect.pas
View File

@ -142,7 +142,7 @@ interface
{ is the last written character an special }
{ char ? }
if (s[length(s)]='%') and
paramanager.ret_in_acc(current_procdef.rettype.def,current_procdef.proccalloption) and
(not paramanager.ret_in_param(current_procdef.rettype.def,current_procdef.proccalloption)) and
((pos('AX',upper(hs))>0) or
(pos('AL',upper(hs))>0)) then
tvarsym(current_procdef.funcretsym).varstate:=vs_assigned;
@ -320,7 +320,10 @@ initialization
end.
{
$Log$
Revision 1.2 2003-05-01 07:59:43 florian
Revision 1.3 2003-05-13 19:15:28 peter
* removed radirect
Revision 1.2 2003/05/01 07:59:43 florian
* introduced defaultordconsttype to decribe the default size of ordinal constants
on 64 bit CPUs it's equal to cs64bitdef while on 32 bit CPUs it's equal to s32bitdef
+ added defines CPU32 and CPU64 for 32 bit and 64 bit CPUs