paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 16:29:27 +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 } { is the last written character an special }
{ char ? } { char ? }
if (s[length(s)]='%') and 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('AX',upper(hs))>0) or
(pos('AL',upper(hs))>0)) then (pos('AL',upper(hs))>0)) then
tvarsym(current_procdef.funcretsym).varstate:=vs_assigned; tvarsym(current_procdef.funcretsym).varstate:=vs_assigned;
@ -320,7 +320,10 @@ initialization
end. end.
{ {
$Log$ $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 * 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 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 + added defines CPU32 and CPU64 for 32 bit and 64 bit CPUs