[Openmcl-cvs-notifications] r11000 - /trunk/source/lisp-kernel/m4macros.m4

[gb at clozure.com]

Author: gb
Date: Mon Oct  6 20:26:25 2008
New Revision: 11000

Log:
We're really not using COFF symbol/line-number stuff; it's more like
ELF/BSD stabs with some small variations.

Modified:
    trunk/source/lisp-kernel/m4macros.m4

Modified: trunk/source/lisp-kernel/m4macros.m4
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/m4macros.m4 (original)
+++ trunk/source/lisp-kernel/m4macros.m4 Mon Oct  6 20:26:25 2008
@@ -72,7 +72,9 @@
 =

 ifdef([WINDOWS],[define([SYSstabs],[COFFstabs])
                define([CNamesNeedUnderscores],[])
-               define([LocalLabelPrefix],[L])])
+               define([LocalLabelPrefix],[L])
+	       define([StartTextLabel],[Ltext0])
+	       define([EndTextLabel],[Letext])])
 =

 =

 /*  Names exported to (or imported from) C may need leading underscores.  =
*/
@@ -106,7 +108,7 @@
 ])
 =

 define([_emit_COFF_source_line_stab],[
-        .loc 1 $1 0
+        _emit_ELF_source_line_stab($1)
 ])
 =

 =

@@ -155,10 +157,7 @@
 /*   starts .text section  */
 =

 =

-define([_beginfile],[ifdef([WINDOWS],[
-        .file 1 "__file__"
-        .text
-],[
+define([_beginfile],[
 	.stabs "__pwd__",N_SO,0,0,StartTextLabel()
 	.stabs "__file__",N_SO,0,0,StartTextLabel()
 ifdef([PPC64],[
@@ -168,15 +167,12 @@
 	.text
 StartTextLabel():
 # __line__ "__file__"
-])])
+])
 =

 define([_endfile],[
-ifdef([WINDOWS],[
-],[
 	.stabs "",N_SO,0,0,EndTextLabel()
 EndTextLabel():
 # __line__
-])
 ])
 =

 define([_startfn],[define([__func_name],$1)