Changeset 14165 for trunk/abcl/build.xml

Timestamp:

10/05/12 15:20:57 (8 years ago)

Author:

Mark Evenson

Message:

Ant target to 'abcl.compile.lisp.debug' via JDWP.

With this target, he Lisp compilation is invoked with the contents of
the JVM property "abcl.compile.lisp.debug.jvmarg". The default value
of this property suspends the JVM at the start of the compilation,
listening on port 6789.

File:

• trunk/abcl/build.xml (modified) (4 diffs)

trunk/abcl/build.xml

@@ -82 +82 @@
 
     <patternset id="abcl.objects">
-      <!-- "system.lisp" is dynamically created by COMPILE-SYSTEM -->
+      <!-- "system.lisp" is dynamically created by COMPILE-fSYSTEM -->
       <include name="org/armedbear/lisp/system.lisp"/> 
       <include name="org/armedbear/lisp/**/*.class"/>
@@ -233 +233 @@
     <property name="system.lisp.file" 
               value="${build.classes.dir}/org/armedbear/lisp/system.lisp"/>
-    
+
     <target name="abcl.compile.lisp" 
             depends="abcl.copy.lisp,abcl.compile.java,abcl.system.update.maybe,abcl.fasls.uptodate"
             unless="abcl.fasls.uptodate.p">
-      <echo>
+      <abcl.compile.lisp/>
+    </target>
+
+    <macrodef name="abcl.compile.lisp">
+      <element name="additional.jvmarg" optional="true"/>
+      <sequential>
+        <echo>
 Compiling Lisp system 
 from ${abcl.home.dir}
@@ -253 +259 @@
         <jvmarg value="-Dabcl.home=${abcl.home.dir}${file.separator}"/>
         <jvmarg value="-Dabcl.autoload.verbose=Y"/>
+        <additional.jvmarg/>
         <arg value="--noinit"/>
         <arg value="--nosystem"/>
@@ -261 +268 @@
         <fileset file="${abcl.startup.file}"/>
       </concat>
+        </sequential>
+    </macrodef>
+
+    <property name="abcl.compile.lisp.debug.jvmarg"
+              value="-agentlib:jdwp=transport=dt_socket,server=y,address=6789,suspend=y"/>
+    <target name="abcl.compile.lisp.debug" 
+            depends="abcl.copy.lisp,abcl.compile.java,abcl.system.update.maybe,abcl.fasls.uptodate"
+            unless="abcl.fasls.uptodate.p">
+      <echo>Debugging with jvmarg ${abcl.compile.lisp.debug.jvmarg}</echo>
+      <abcl.compile.lisp> 
+          <additional.jvmarg>
+            <jvmarg value="${abcl.compile.lisp.debug.jvmarg}"/>
+          </additional.jvmarg>
+      </abcl.compile.lisp>
     </target>