/compiler/alpha/rasm.pas
Pascal | 65 lines | 20 code | 9 blank | 36 comment | 0 complexity | efb2697d67d6916edbe1972f7c9ff447 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
1{ 2 Copyright (c) 1998-2002 by The Free Pascal Team 3 4 This unit does the parsing process for the inline assembler 5 6 This program is free software; you can redistribute it and/or modify 7 it under the terms of the GNU General Public License as published by 8 the Free Software Foundation; either version 2 of the License, or 9 (at your option) any later version. 10 11 This program is distributed in the hope that it will be useful, 12 but WITHOUT ANY WARRANTY; without even the implied warranty of 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 GNU General Public License for more details. 15 16 You should have received a copy of the GNU General Public License 17 along with this program; if not, write to the Free Software 18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 19 20 **************************************************************************** 21} 22{ 23 This unit does the parsing process for the inline assembler. 24} 25Unit Rasm; 26 27{$i fpcdefs.inc} 28 29Interface 30 31uses 32 node; 33 34 { 35 This routine is called to parse the instructions in assembler 36 blocks. It returns a complete list of directive and instructions 37 } 38 function assemble: tnode; 39 40 41Implementation 42 43 uses 44 { common } 45 cutils,cclasses, 46 { global } 47 globtype,globals,verbose, 48 systems, 49 { aasm } 50 cpubase,aasmbase,aasmtai,aasmdata,aasmcpu, 51 { symtable } 52 symconst,symbase,symtype,symsym,symtable, 53 { pass 1 } 54 nbas, 55 { parser } 56 scanner 57 // ,rautils 58 ; 59 60 function assemble : tnode; 61 begin 62 end; 63 64Begin 65end.