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

* update target_asm according to outputformat

Browse Source
This commit is contained in:
peter 2002-01-29 19:43:11 +00:00
parent c09e7bb537
commit 86a3df0e9d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/parser.pas
View File

@ -415,6 +415,7 @@ implementation
aktalignment:=initalignment; aktalignment:=initalignment;
aktpackenum:=initpackenum; aktpackenum:=initpackenum;
aktoutputformat:=initoutputformat; aktoutputformat:=initoutputformat;
set_target_asm(aktoutputformat);
aktoptprocessor:=initoptprocessor; aktoptprocessor:=initoptprocessor;
aktspecificoptprocessor:=initspecificoptprocessor; aktspecificoptprocessor:=initspecificoptprocessor;
aktasmmode:=initasmmode; aktasmmode:=initasmmode;
@ -551,6 +552,7 @@ implementation
aktpackenum:=oldaktpackenum; aktpackenum:=oldaktpackenum;
aktmaxfpuregisters:=oldaktmaxfpuregisters; aktmaxfpuregisters:=oldaktmaxfpuregisters;
aktoutputformat:=oldaktoutputformat; aktoutputformat:=oldaktoutputformat;
set_target_asm(aktoutputformat);
aktoptprocessor:=oldaktoptprocessor; aktoptprocessor:=oldaktoptprocessor;
aktspecificoptprocessor:=oldaktspecificoptprocessor; aktspecificoptprocessor:=oldaktspecificoptprocessor;
aktasmmode:=oldaktasmmode; aktasmmode:=oldaktasmmode;
@ -629,7 +631,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.26 2001-11-02 22:58:02 peter Revision 1.27 2002-01-29 19:43:11 peter
* update target_asm according to outputformat
Revision 1.26 2001/11/02 22:58:02 peter
* procsym definition rewrite * procsym definition rewrite
Revision 1.25 2001/10/25 21:22:35 peter Revision 1.25 2001/10/25 21:22:35 peter