Quellcode durchsuchen

* Modification for new symtable

daniel vor 25 Jahren
Ursprung
Commit
e72ff5f936
1 geänderte Dateien mit 10 neuen und 2 gelöschten Zeilen
  1. 10 2
      compiler/t_linux.pas

+ 10 - 2
compiler/t_linux.pas

@@ -80,15 +80,20 @@ begin
 {$IFDEF NEWST}
   current_module^.linkothersharedlibs.
    insert(new(Plinkitem,init(SplitName(module),link_allways)));
+  { do nothing with the procedure, only set the mangledname }
+  if name<>'' then
+    aktprocdef^.setmangledname(name)
+  else
+    message(parser_e_empty_import_name);
 {$ELSE}
   current_module^.linkothersharedlibs.
    insert(SplitName(module),link_allways);
-{$ENDIF NEWST}
   { do nothing with the procedure, only set the mangledname }
   if name<>'' then
     aktprocsym^.definition^.setmangledname(name)
   else
     message(parser_e_empty_import_name);
+{$ENDIF NEWST}
 end;
 
 
@@ -467,7 +472,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.12  2000-03-02 13:12:37  daniel
+  Revision 1.13  2000-03-12 08:24:03  daniel
+    * Modification for new symtable
+
+  Revision 1.12  2000/03/02 13:12:37  daniel
     * Removed a comment to fix gtk.
 
   Revision 1.11  2000/02/28 17:23:57  daniel