Преглед на файлове

+ $PIC module switch directive

git-svn-id: trunk@1740 -
florian преди 20 години
родител
ревизия
5c92126933
променени са 1 файла, в които са добавени 6 реда и са изтрити 0 реда
  1. 6 0
      compiler/scandir.pas

+ 6 - 0
compiler/scandir.pas

@@ -780,6 +780,11 @@ implementation
       end;
 {$ENDIF}
 
+    procedure dir_pic;
+      begin
+        do_moduleswitch(cs_create_pic);
+      end;
+
     procedure dir_pop;
 
     begin
@@ -1188,6 +1193,7 @@ implementation
 {$IFDEF TestVarsets}
         AddDirective('PACKSET',directive_all, @dir_packset);
 {$ENDIF}
+        AddDirective('PIC',directive_all, @dir_pic);
         AddDirective('POP',directive_mac, @dir_pop);
         AddDirective('PROFILE',directive_all, @dir_profile);
         AddDirective('PUSH',directive_mac, @dir_push);