* profiling fix

compiler/x86/cgx86.pas

@@ -1480,17 +1480,29 @@ unit cgx86;
 
 
     procedure tcgx86.g_profilecode(list : taasmoutput);
+    
       var
-        pl : tasmlabel;
+        pl           : tasmlabel;
+        mcountprefix : String[4];
+        
       begin
         case target_info.system of
         {$ifndef NOTARGETWIN32}
            system_i386_win32,
         {$endif}
            system_i386_freebsd,
+	   system_i386_netbsd,
+//	   system_i386_openbsd,
            system_i386_wdosx,
            system_i386_linux:
              begin
+		Case target_info.system Of 
+		 system_i386_freebsd : mcountprefix:='.';
+		 system_i386_netbsd : mcountprefix:='__';
+//		 system_i386_openbsd : mcountprefix:='.';
+		else
+  		 mcountPrefix:='';
+		end;
                 objectlibrary.getaddrlabel(pl);
                 list.concat(Tai_section.Create(sec_data));
                 list.concat(Tai_align.Create(4));
@@ -1498,7 +1510,7 @@ unit cgx86;
                 list.concat(Tai_const.Create_32bit(0));
                 list.concat(Tai_section.Create(sec_code));
                 list.concat(Taicpu.Op_sym_ofs_reg(A_MOV,S_L,pl,0,NR_EDX));
-                a_call_name(list,target_info.Cprefix+'mcount');
+                a_call_name(list,target_info.Cprefix+mcountprefix+'mcount');
                 include(rgint.used_in_proc,RS_EDX);
              end;
 
@@ -1737,7 +1749,10 @@ unit cgx86;
 end.
 {
   $Log$
-  Revision 1.85  2003-10-30 16:22:40  peter
+  Revision 1.86  2003-10-30 18:53:53  marco
+   * profiling fix
+
+  Revision 1.85  2003/10/30 16:22:40  peter
     * call firstpass before allocation and codegeneration is started
     * move leftover code from pass_2.generatecode() to psub