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

* ignore more delphi directives

Browse Source
This commit is contained in:
peter 2005-01-18 15:44:43 +00:00
parent b89cddc0ec
commit 0050ff5ab9
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/scandir.pas
View File

@ -626,7 +626,7 @@ implementation
begin begin
current_scanner.skipspace; current_scanner.skipspace;
current_scanner.readstring; current_scanner.readstring;
if not current_module.mode_switch_allowed and if not current_module.mode_switch_allowed and
not ((m_mac in aktmodeswitches) and (pattern='MACPAS')) then not ((m_mac in aktmodeswitches) and (pattern='MACPAS')) then
Message1(scan_e_mode_switch_not_allowed,pattern) Message1(scan_e_mode_switch_not_allowed,pattern)
else if SetCompileMode(pattern,false) then else if SetCompileMode(pattern,false) then
@ -887,7 +887,7 @@ implementation
if not (target_info.system in [system_powerpc_morphos]) then if not (target_info.system in [system_powerpc_morphos]) then
comment (V_Warning,'Syscall directive is useless on this target.'); comment (V_Warning,'Syscall directive is useless on this target.');
current_scanner.skipspace; current_scanner.skipspace;
sctype:=current_scanner.readid; sctype:=current_scanner.readid;
if (sctype='LEGACY') or (sctype='SYSV') or (sctype='SYSVBASE') or if (sctype='LEGACY') or (sctype='SYSV') or (sctype='SYSVBASE') or
(sctype='BASESYSV') or (sctype='R12BASE') then (sctype='BASESYSV') or (sctype='R12BASE') then
@ -1049,6 +1049,18 @@ implementation
begin begin
end; end;
procedure dir_nodefine;
begin
end;
procedure dir_hppemit;
begin
end;
procedure dir_weakpackageunit;
begin
end;
procedure dir_codepage; procedure dir_codepage;
var var
s : string; s : string;
@ -1098,6 +1110,7 @@ implementation
AddDirective('GOTO',directive_all, @dir_goto); AddDirective('GOTO',directive_all, @dir_goto);
AddDirective('HINT',directive_all, @dir_hint); AddDirective('HINT',directive_all, @dir_hint);
AddDirective('HINTS',directive_all, @dir_hints); AddDirective('HINTS',directive_all, @dir_hints);
AddDirective('HPPEMIT',directive_all, @dir_hppemit);
AddDirective('IOCHECKS',directive_all, @dir_iochecks); AddDirective('IOCHECKS',directive_all, @dir_iochecks);
AddDirective('IMPLICITEXCEPTIONS',directive_all, @dir_implicitexceptions); AddDirective('IMPLICITEXCEPTIONS',directive_all, @dir_implicitexceptions);
AddDirective('INCLUDEPATH',directive_all, @dir_includepath); AddDirective('INCLUDEPATH',directive_all, @dir_includepath);
@ -1119,6 +1132,7 @@ implementation
AddDirective('MINENUMSIZE',directive_all, @dir_packenum); AddDirective('MINENUMSIZE',directive_all, @dir_packenum);
AddDirective('MMX',directive_all, @dir_mmx); AddDirective('MMX',directive_all, @dir_mmx);
AddDirective('MODE',directive_all, @dir_mode); AddDirective('MODE',directive_all, @dir_mode);
AddDirective('NODEFINE',directive_all, @dir_nodefine);
AddDirective('NOTE',directive_all, @dir_note); AddDirective('NOTE',directive_all, @dir_note);
AddDirective('NOTES',directive_all, @dir_notes); AddDirective('NOTES',directive_all, @dir_notes);
AddDirective('OBJECTCHECKS',directive_all, @dir_objectchecks); AddDirective('OBJECTCHECKS',directive_all, @dir_objectchecks);
@ -1157,6 +1171,7 @@ implementation
AddDirective('WAIT',directive_all, @dir_wait); AddDirective('WAIT',directive_all, @dir_wait);
AddDirective('WARNING',directive_all, @dir_warning); AddDirective('WARNING',directive_all, @dir_warning);
AddDirective('WARNINGS',directive_all, @dir_warnings); AddDirective('WARNINGS',directive_all, @dir_warnings);
AddDirective('WEAKPACKAGEUNIT',directive_all, @dir_weakpackageunit);
AddDirective('WRITEABLECONST',directive_all, @dir_writeableconst); AddDirective('WRITEABLECONST',directive_all, @dir_writeableconst);
AddDirective('Z1',directive_all, @dir_z1); AddDirective('Z1',directive_all, @dir_z1);
AddDirective('Z2',directive_all, @dir_z2); AddDirective('Z2',directive_all, @dir_z2);
@ -1168,7 +1183,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.51 2005-01-09 20:24:43 olle Revision 1.52 2005-01-18 15:44:43 peter
* ignore more delphi directives
Revision 1.51 2005/01/09 20:24:43 olle
* rework of macro subsystem * rework of macro subsystem
+ exportable macros for mode macpas + exportable macros for mode macpas