Only call Crash() from Terminate()

magv · magv · commit 75b5da929e59 · 2026-01-23T15:45:37.000+01:00
diff --git a/sources/sort.c b/sources/sort.c
@@ -1574,7 +1574,7 @@ WORD PutOut(PHEAD WORD *term, POSITION *position, FILEHANDLE *fi, WORD ncomp)
 				MLOCK(ErrorMessageLock);
 				MesPrint("Ran into precompressed term");
 				MUNLOCK(ErrorMessageLock);
-				Crash();
+				Terminate(-1);
 				return(-1);
 			}
 		}
@@ -1651,7 +1651,7 @@ WORD PutOut(PHEAD WORD *term, POSITION *position, FILEHANDLE *fi, WORD ncomp)
 				MLOCK(ErrorMessageLock);
 				MesPrint("CompressSize of %10l is insufficient",AM.CompressSize);
 				MUNLOCK(ErrorMessageLock);
-				Crash();
+				Terminate(-1);
 				return(-1);
 			}
 		}

Original file line number	Diff line number	Diff line change
`@@ -1574,7 +1574,7 @@ WORD PutOut(PHEAD WORD term, POSITION position, FILEHANDLE *fi, WORD ncomp)`
`1574`	`1574`	`MLOCK(ErrorMessageLock);`
`1575`	`1575`	`MesPrint("Ran into precompressed term");`
`1576`	`1576`	`MUNLOCK(ErrorMessageLock);`
`1577`		`- Crash();`
	`1577`	`+ Terminate(-1);`
`1578`	`1578`	`return(-1);`
`1579`	`1579`	`}`
`1580`	`1580`	`}`
`@@ -1651,7 +1651,7 @@ WORD PutOut(PHEAD WORD term, POSITION position, FILEHANDLE *fi, WORD ncomp)`
`1651`	`1651`	`MLOCK(ErrorMessageLock);`
`1652`	`1652`	`MesPrint("CompressSize of %10l is insufficient",AM.CompressSize);`
`1653`	`1653`	`MUNLOCK(ErrorMessageLock);`
`1654`		`- Crash();`
	`1654`	`+ Terminate(-1);`
`1655`	`1655`	`return(-1);`
`1656`	`1656`	`}`
`1657`	`1657`	`}`