pierre
před 26 roky
|
@@ -1,9 +0,0 @@
|
|
|
-Unit tbug744;
|
|
|
-
|
|
|
-Interface
|
|
|
-
|
|
|
-Uses tbug744a;
|
|
|
-
|
|
|
-Implementation
|
|
|
-
|
|
|
-end.
|
|
@@ -1,10 +0,0 @@
|
|
|
-Unit tbug744a;
|
|
|
-
|
|
|
-Interface
|
|
|
-
|
|
|
-Uses tbug744;
|
|
|
-
|
|
|
-Implementation
|
|
|
-
|
|
|
-end.
|
|
|
-
|
|
@@ -1,7 +1,11 @@
|
|
|
{$MODE objfpc}
|
|
|
{$H+}
|
|
|
program stackcrash;
|
|
|
-uses sysutils;
|
|
|
+uses
|
|
|
+{$ifdef go32v2}
|
|
|
+ dpmiexcp,
|
|
|
+{$endif go32v2}
|
|
|
+ sysutils;
|
|
|
type
|
|
|
TMyClass = class
|
|
|
public
|