Browse Source

support external <dllname>; also for variables

peter 20 years ago
parent
commit
d24397b6e6
1 changed files with 8 additions and 3 deletions
  1. 8 3
      compiler/pdecvar.pas

+ 8 - 3
compiler/pdecvar.pas

@@ -1088,8 +1088,10 @@ implementation
                          is_dll:=true;
                          is_dll:=true;
                          dll_name:=get_stringconst;
                          dll_name:=get_stringconst;
                        end;
                        end;
-                      consume(_NAME);
-                      C_name:=get_stringconst;
+                      if try_to_consume(_NAME) then
+                        C_name:=get_stringconst
+                      else
+                        C_name:=sorg;
                     end;
                     end;
                    { consume the ; when export or external is used }
                    { consume the ; when export or external is used }
                    if semicolonatend then
                    if semicolonatend then
@@ -1318,7 +1320,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.97  2005-02-14 17:13:07  peter
+  Revision 1.98  2005-03-09 23:44:18  peter
+  support external <dllname>; also for variables
+
+  Revision 1.97  2005/02/14 17:13:07  peter
     * truncate log
     * truncate log
 
 
   Revision 1.96  2005/02/03 17:11:40  peter
   Revision 1.96  2005/02/03 17:11:40  peter