@@ -94,44 +94,50 @@ const getGnatArgs = (args: string[]): string[] => {
94
94
* Map of known tasks/tools indexed by a string/taskKind
95
95
*/
96
96
const knownTaskKinds : { [ id : string ] : TaskProperties } = {
97
+ cleanProjectForProof : {
98
+ command : getGnatArgs ( [ 'gnatprove' , '--clean' ] ) ,
99
+ extra : undefined ,
100
+ title : 'Clean project for proof' ,
101
+ } ,
97
102
examineProject : {
98
- command : getGnatArgs ( [ 'gnatprove' , '--mode=flow' ] ) ,
103
+ command : getGnatArgs ( [ 'gnatprove' , '-j0' , '- -mode=flow'] ) ,
99
104
extra : undefined ,
100
105
title : 'Examine project' ,
101
106
} ,
102
107
examineFile : {
103
- command : getGnatArgs ( [ 'gnatprove' , '--mode=flow' , '-u' , '${fileBasename}' ] ) ,
108
+ command : getGnatArgs ( [ 'gnatprove' , '-j0' , '- -mode=flow', '-u' , '${fileBasename}' ] ) ,
104
109
extra : undefined ,
105
110
title : 'Examine file' ,
106
111
} ,
107
112
examineSubprogram : {
108
- command : [ 'gnatprove' , '--mode=flow' ] ,
113
+ command : [ 'gnatprove' , '-j0' , '- -mode=flow'] ,
109
114
extra : limitSubp ,
110
115
title : 'Examine subprogram' ,
111
116
} ,
112
117
proveProject : {
113
- command : getGnatArgs ( [ 'gnatprove' ] ) ,
118
+ command : getGnatArgs ( [ 'gnatprove' , '-j0' ] ) ,
114
119
extra : undefined ,
115
120
title : 'Prove project' ,
116
121
} ,
117
122
proveFile : {
118
- command : getGnatArgs ( [ 'gnatprove' , '-u' , '${fileBasename}' ] ) ,
123
+ command : getGnatArgs ( [ 'gnatprove' , '-j0' , '- u', '${fileBasename}' ] ) ,
119
124
extra : undefined ,
120
125
title : 'Prove file' ,
121
126
} ,
122
127
proveSubprogram : {
123
- command : [ 'gnatprove' ] ,
128
+ command : [ 'gnatprove' , '-j0' ] ,
124
129
extra : limitSubp ,
125
130
title : 'Prove subprogram' ,
126
131
} ,
127
132
proveRegion : {
128
- command : [ 'gnatprove' , '-u' , '${fileBasename}' ] ,
133
+ command : [ 'gnatprove' , '-j0' , '- u', '${fileBasename}' ] ,
129
134
extra : limitRegion ,
130
135
title : 'Prove selected region' ,
131
136
} ,
132
137
proveLine : {
133
138
command : getGnatArgs ( [
134
139
'gnatprove' ,
140
+ '-j0' ,
135
141
'-u' ,
136
142
'${fileBasename}' ,
137
143
'--limit-line=${fileBasename}:${lineNumber}' ,
0 commit comments