浏览代码

+ Directive $EXTERNALSYM added, it is ignored for now

florian 23 年之前
父节点
当前提交
26351214da
共有 1 个文件被更改,包括 8 次插入1 次删除
  1. 8 1
      compiler/scandir.pas

+ 8 - 1
compiler/scandir.pas

@@ -835,6 +835,9 @@ implementation
         aktpackenum:=4;
         aktpackenum:=4;
       end;
       end;
 
 
+    procedure dir_externalsym;
+      begin
+      end;
 
 
 {****************************************************************************
 {****************************************************************************
                          Initialize Directives
                          Initialize Directives
@@ -899,6 +902,7 @@ implementation
         AddDirective('SATURATION',{$ifdef FPCPROCVAR}@{$endif}dir_saturation);
         AddDirective('SATURATION',{$ifdef FPCPROCVAR}@{$endif}dir_saturation);
         {ad 18.05.2001: Screen and Threadname for Netware}
         {ad 18.05.2001: Screen and Threadname for Netware}
         AddDirective('SCREENNAME',{$ifdef FPCPROCVAR}@{$endif}dir_screenname);
         AddDirective('SCREENNAME',{$ifdef FPCPROCVAR}@{$endif}dir_screenname);
+        AddDirective('EXTERNALSYM',{$ifdef FPCPROCVAR}@{$endif}dir_externalsym);
 
 
         AddDirective('SMARTLINK',{$ifdef FPCPROCVAR}@{$endif}dir_smartlink);
         AddDirective('SMARTLINK',{$ifdef FPCPROCVAR}@{$endif}dir_smartlink);
         AddDirective('STACKFRAMES',{$ifdef FPCPROCVAR}@{$endif}dir_stackframes);
         AddDirective('STACKFRAMES',{$ifdef FPCPROCVAR}@{$endif}dir_stackframes);
@@ -925,7 +929,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.15  2002-05-18 13:34:17  peter
+  Revision 1.16  2002-07-16 15:37:58  florian
+    + Directive $EXTERNALSYM added, it is ignored for now
+
+  Revision 1.15  2002/05/18 13:34:17  peter
     * readded missing revisions
     * readded missing revisions
 
 
   Revision 1.14  2002/05/16 19:46:44  carl
   Revision 1.14  2002/05/16 19:46:44  carl